Nieuw werkblad maken vba code

[Marky76]

In het volgende voorbeeld wordt een nieuw werkblad gemaakt en vervolgens wordt in de eerste kolom een lijst van de bladnamen in de actieve werkmap geplaatst.

Set newSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newSheet.Cells(i, 1).Value = Sheets(i).Name
Next i

Heb al dit stukje code, maar weet niet goed hoe ik de onderdelen moet dimmen opdat het werkt.

Groeten, Mark.

 

[Spiderman]

Hoi Marky76,

Zoiets:

    [COLOR="Red"]Dim newSheet As Worksheet
    Dim i As Integer[/COLOR]
    Set newSheet = Sheets.Add(Type:=xlWorksheet)
    For i = 1 To Sheets.Count
        newSheet.Cells(i, 1).Value = Sheets(i).Name
    Next i

P.S. Variable doe je niet dimmen, maar declareren: Dat kan met Dim, maar ook bijvoorbeeld met Public, Private en nog een paar meer

 

[Marky76]

Bedankt voor de oplossing en de raad.

Mark.