Excel VBA Vorlagentabellenblatt fügen mit Namensabfrage

[Excelmania]

Hallo.

ich habe ich einer Excel-Arbeitsmappe ein verstecktes Tabellenblatt das Vorlage dient. Über einen Button soll abgefragt werden, wie der neue Name lautet und dann soll das Tabellenblatt immer hinter das Tabellenblatt Auswertung eingefügt werden.

Es klappt leider nur nicht so richtig. Vielleicht hat von Euch jemand eine Lösung?

Dim tbname As String
tbname = InputBox("Nummer der Anforderung?", "Anforderung")

If tbname <> "" Then

    Sheets("Vorlage").Visible = True
    Sheets("Vorlage").Select
    Sheets("Vorlage").Copy After:=Sheets("Summe")
    Sheets("Vorlage (2)").Name = "AF" & tbname
    Sheets("Vorlage").Visible = xlVeryHidden
   
End If

 

[deineMudda]

@Excelmania Versteh dein Problem nicht, deine Lösung funktioniert. Kann leider keine xlsm-Datei hochladen, du musst die Dateiendung von Hand ändern. Das Tabellenblatt nach dem die Vorlage eingefügt wird heißt Summe und nicht Auswertung.