ich habe es nur hinbekommen, dass das neue Tabellenblatt den Namen aus der Zelle h8 des Sheets ".Übersicht" bekommt. Das funktioniert auch! Ich möchte allerdings, dass das neue Tabellenblatt nach dem Inhalt der aktiven Zelle im Sheet ".Übersicht" benannt wird.
Sub Vorlage_02_erstellen()
' Copy der Vorlage erstellen
Sheets("Vorlage").Select
Sheets("Vorlage").Copy after:=Sheets(1)
' Tabellenblatt nach dem Inhalt einer Zelle benennen
bname = Sheets(".Übersicht").Range("h8").Value
ActiveSheet.Name = bname
'Tabellenblätter sortieren
Dim i As Integer, j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub
Wäre nett von Euch, wenn mir jemand helfen könnte.
Danke und Gruss
Kai