Thema Datum  Von Nutzer Rating
Antwort
Rot Sheet kopieren
20.05.2020 19:14:42 Cosmo
NotSolved
20.05.2020 20:17:17 Cosmo
NotSolved
20.05.2020 21:30:13 Cosmo
NotSolved

Ansicht des Beitrags:
Von:
Cosmo
Datum:
20.05.2020 19:14:42
Views:
60
Rating: Antwort:
  Ja
Thema:
Sheet kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Sheet kopieren
20.05.2020 19:14:42 Cosmo
NotSolved
20.05.2020 20:17:17 Cosmo
NotSolved
20.05.2020 21:30:13 Cosmo
NotSolved