tabbladen

[Jack Nouws]

Hoe kun je snel 100 tabbladen bij maken?

Gr. Jack

 

[Ginger]

Jack Nouws, Zet deze code maar in een module van je bestand...

Sub VoegToe()
Dim i As Integer

    For i = 1 To 100
        Sheets.Add after:=Sheets(Sheets.Count)
    Next i

End Sub

Groet, Leo

 

[Jack Nouws]

Jack Nouws, Zet deze code maar in een module van je bestand...

Sub VoegToe()
Dim i As Integer

    For i = 1 To 100
        Sheets.Add after:=Sheets(Sheets.Count)
    Next i

End Sub

Groet, Leo

Ok bedankt:thumb: Het werkt!

 

[Wigi]

Deze code maakt tabbladen aan met de namen die staan in een bepaald bereik:

Verander blad1 en A1:A100 nog.

Sub tabbladenmaken()

    Dim r As Range
    Dim ws As Worksheet
    
    For Each r In Sheets("blad1").Range("A1:A100")
        
        If r.Value <> "" Then
            
            On Error Resume Next
            Set ws = ThisWorkbook.Worksheets.Add
            ws.Name = r.Value
            On Error GoTo 0
            
        End If
        
    Next

End Sub

Wigi