Blätter Beschriften

Forumthread: Blätter Beschriften

Blätter Beschriften

19.05.2014 00:17:05

Walter

Hallo Excelfreunde,
Habe im ersten Tabellenblatt in Spalte "A" 16 Blattnamen stehen.
per VBA sollen 16 Tabellenblätter erzeugt werden.
Habe etwas passendes nicht gefunden.
Danke für die Hilfe.
Es grüßt
Walter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blätter Beschriften gefunden

19.05.2014 00:52:40

Walter

AW: Blätter Beschriften gefunden

19.05.2014 00:52:40

Walter

Hallo Freunde,
Habe etwas gefunden:

Sub x()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Set Bereich = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Zelle In Bereich
For i = 2 To Worksheets.Count
If Worksheets(i).Name = Zelle.Value Then
Bool = True
Exit For
Else
Bool = False
End If
Next i
If Bool = False Then
Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
nWS.Name = Zelle.Value
End If
Next Zelle
End 

Sub
Gruß
Walter

Forumthread: Blätter Beschriften

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread