Blatt kopieren, fortlaufend nummerieren
22.04.2022 16:54:11
King
ich habe ein Datenerfassungsblatt in Excel und möchte, dass dieses per Makro kopiert, in ein neues Blatt eingefügt und fortlaufend durchnummeriert wird.
Das Datenblatt besteht für das Jahr 2018.
Bei der Erstellung des neuen Blatts soll dieses in "Datenblatt 20xx" umbenannt werden wobei die Jahreszahl fortlaufend durchnummeriert werden soll.
In den Zellen "F4" und "F46" steht das Erfassungsjahr (2018), welches bei der Aktivierung des Makros ebenfalls fortlaufend Nummeriert werden soll.
Die Schaltfläche, welche das Makro auslöst ist mit der Jahreszahl des neu zu erstellenden Blatts (2019) versehen, soll natürlich auch fortlaufen Nummeriert werden und befindet sich auf einer Quadratischen Form.
Die Erstellung und Nummerierung des neuen Blatts hab ich bereits selbst geschafft. Damit bin ich mit meinem Excel Fähigkeiten leider an meine Grenzen gestoßen.
Sub WS()
Dim n#
With Worksheets.Add(after:=Sheets(Sheets.Count))
For n = 2019 To 2035
On Error Resume Next
If n = 2019 Then
.Name = "Erfassung " & " " & n
Else
.Name = "Erfassung" & " " & n
End If
If Err.Number = 2035 Then Exit For
Next
End With
End Sub
Liebe Grüße und Danke schonmal im vorraus!!!