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:
383
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