Thema Datum  Von Nutzer Rating
Antwort
31.01.2023 16:30:27 Marco
NotSolved
Blau Sheet kopieren und mit fortlaufendem Datum bennen
 31.01.2023 19:01:05 Gast22959
NotSolved

Ansicht des Beitrags:
Von:
Gast22959		 Datum:
31.01.2023 19:01:05		 Views:
515		 Rating:
     
Antwort:
  Ja
Thema:
Sheet kopieren und mit fortlaufendem Datum bennen

Datumformatierung geht zb. so Format(Date, "ddd dd.MM.YYYY")   'date ist beispilehaft der aktuelle Tag

deine Schleife habe ich dir etwas vereinfacht. Du solltest prüfen ob ein Blatt mit dem Namen bereits existiert. Es könnte ja sein das du das Makro ein zweites Mal laufen läßt, dann läuft es auf einen Fehler weil es keine 2 Sheets mit dem selben Namen geben kann. 

For i = 1 To Tage
     lday = Weekday(Sheets(i).Range("A1"), 2)
     Select Case lday
      Case Is <= 5
         'hier prüfen oder Fehlerbehandlung einfügen
         Sheets(i).Copy after:=Sheets(i) 
         Sheets(i + 1).Range("A1") = Sheets(i).Range("A1") + IIf(lday = 5, 3, 1)
         Sheets(i + 1).Name = Sheets(i + 1).Range("A1")
   End Select
Next

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
31.01.2023 16:30:27 Marco
NotSolved
Blau Sheet kopieren und mit fortlaufendem Datum bennen
 31.01.2023 19:01:05 Gast22959
NotSolved