Tabellenblatt1 kopieren, der Mappe hinzufügen
19.10.2016 16:29:00
Dieter(Drummer)
mit folgendem Code kopiere ich Tabelle1 und füge die Kopie hinten an:
Sub SheetCopy()
Sheets("Tabelle1").Copy After:=Sheets(Worksheets.Count)
Sheets("Tabelle1").Select
End Sub
Das funkioniert wie gewollt. Durch das kopieren von Tab1 entsteht wohl z.B. "Tabelle1(2).
Wie muss der Code lauten, dass die neu erstellen Tabs die laufende Tab.nummer bekommen, z.B. Tabelle2, Tabelle3 etc. und nicht die laufende Nummer in der Klammer).
Freue mich auf Hilfe.
Gruß, Dieter(Drummer)
Anzeige