ich hoffe auf eure hilfe bei meinem bescheidenem problem.
ich möchte per button neue tabellen aus einer "muster"-tabelle erstellen. diese müssen/sollen eine durchlaufende nummerierung erhalten. nach dieser numerierung sollte noch eine (zu vergebender) name stehen (im beispiel unten Monatsnamen). ich dachte dabei auf eine eingabe über eine input box.
die excel-datei sollte dann ungefähr so aussehen:
Hauptabelle (mit button)
Mustertabelle (test)
test (1) - Januar
test (2) - Februar
...
das versuchte ich mit folgenden code:
Private Sub CommandButton1_Click()
Sheets("test").Copy After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Visible = True
neuer_name = Application.InputBox("Enter a name")
Worksheets(Sheets.Count).Name = Worksheets(Sheets.Count).Name & " - " & neuer_name
End Sub
funktioniert aber nicht ganz, da er nicht wirklich nummeriert. er bleibt immer bei "test (2)"!?
kann man das irgendwie lösen
liebe grüße,
hans