VBA Code

Private Sub CommandButton7_Click()
Dim WB As Workbook
Dim Namen As String
Dim intx As Integer, inty As Integer
Set WB = ActiveWorkbook
Namen = InputBox("Bitte geben Sie den Namen für die neue Tabelle ein:")
If Namen  "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[A1]
'Blätter sortieren :
For intx = 1 To Sheets.Count
For inty = intx To Sheets.Count
If UCase(Sheets(inty).Name) 

Kann man noch hingehen und den neuen Tabellenblatt-Namen im Blatt "Suchen" in Spalte P ab Zelle 2 sortiert übertragen da hier ein LinkFillRange aus einer ComboBox steht
Hoffentlich hat jemand eine Lösung
Gruss
Bigi