sheetsindex

[CvD]

Beste forumleden,

Ik ben bezig met een vbascript, maar het lukt niet helemaal.
Hieronder heb ik een stuk script en dat werk, maar zodra ik van de 1 een 2 maak werkt hij niet meer.

Range("A6").Select
ActiveCell.FormulaR1C1 = "= " & Worksheets(1).Name & "!RC"
Ik werk met Excel2003.

Kan iemand mij laten weten waar de fout zit.

Alvast bedankt.

mvg,
CvD

 

[Superzeeuw]

Voor de beste antwoorden kom je naar HelpMij.
Maar vergeet niet je voorbeeld bestand mee te nemen.

 

[Cobbe]

Deze code blijkt toch perfect te werken:

Sub test()
ActiveCell.FormulaR1C1 = "= " & Worksheets(2).Name & "!RC"
Range("A6").FormulaR1C1 = "=" & Worksheets(1).Name & "!RC"
Range("A7").FormulaR1C1 = "=" & Worksheets(2).Name & "!RC"
Range("A8").FormulaR1C1 = "=" & Worksheets(3).Name & "!RC"
End Sub

Mocht deze het onverhoopt niet doen zal je wel een vb moeten posten.

Cobbe

 

[CvD]

Beste Cobbe,

Bedankt voor je reactie.
Ik heb het script in mijn excel geplakt, echter bij de eerste regel krijg ik al een foutmelding.
Als ik deze regel verwijder dan werkt de eerstvolgende regel, maar de volgende ook al niet meer.
Dus zodra het getal 1 verandert werkt de formule niet meer.
Het indexnummer van de tabladen hoger dan 1 wordt niet herkend?

 

[cow18]

volgens mij maak je kringverwijzigen of heb ik het mis ?
vervolgens moet je kijken wie worksheet(1), 2, 3 zijn, want dat is niet zeker hetzelfde als wat je zou veronderstellen
en als laatste uitsmijter, heb je misschien grafiekbladen erin staan, want daar kan hij natuurlijk geen celwaarden uit halen.

 

[Cobbe]

Je hebt wellicht maar 1 blad in je werkbook actief.

Cobbe

 

[CvD]

Ik wil op het eerste werkblad in cel A6 de waarde hebben van het tweede tabblad, in cel A7 de waarde van het derde tabblad enz.
De tabladen 2 en verder hebben allemaal dezelfde indeling en zijn werkbladen.
Ik gebruik geen grafieken.

 

[Cobbe]

Dan kun je ook deze verwijzing gebruiken:

ActiveCell = Sheets(2).Range(ActiveCell.Address)

Succes, Cobbe

 

[CvD]

Beste Cobbe,

Bedankt deze werkt.
Ik zal de status van de vraag op opgelost zetten.