|
Hallo zusammen
Ich habe mich heute zum ersten Mal und bisher teilweise erfolgreich an folgende Aufgabe gewagt:
Beim Klicken des Buttons soll:
das Sheet mit dem Namen "Vorlage" kopiert werden und ans Ende gesetzt werden
Der Name des Sheets soll das Datum von morgen sein im Format ddd, dd.mmm.yyyy sein.
Bei erneutem klicken sollte kein Sheet 2x erstellt werden. Bsp. Mi, 20.Mai.2020 (1)
z.z. habe ich das:
Public Sub CopySheetAndRename()
Dim szTodayDate As String
szTodayDate = Format(Date + 1, "ddd dd.mmm.yy")
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
On Error Resume Next
Worksheets(szTodayDate).Activate
End Sub
Habe es nun einige Stunden versucht, aber nicht hinbekommen.
Ich hoffe daher von Eurem Wissen profitiren zu können :)
Für Eure Bemühungen bedanke ich mich bereits im Voraus
Cosmo
|