Invoegen namen workbooks

[Geschuffelde]

Hallo !

Ik ben een beginner met VBA en vond deze code online.

Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

Werkt prima maar de output moet komen in cel C10 - hoe doe ik dat?

Dank!

 

[Niels28]

voor deze keer het antwoord, dit is basis kennis dus het lijkt met beter dat je eerst een cursus neemt of vba boek leest.

Sub SheetNames()
For i = 1 To Sheets.Count
Cells(9 + i, 3) = Sheets(i).Name
Next i
End Sub

Niels

 

[Geschuffelde]

Dank je Niels!

Ik heb VBA for Dummies besteld

Ik zet alle namen van de werkbladen op mijn voorblad - maar wil de naam "voorblad" niet tonen. Hoe kan ik doen dat doen?

 

[Niels28]

Die heb ik ook gelezen :thumb:

Sub SheetNames()
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) <> "VOORBLAD" Then c01 = c01 & Sheets(i).Name & "|"
Next i
Range("C10").Resize(UBound(Split(c01, "|"))) = Application.Transpose(Split(c01, "|"))
End Sub

Niels