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

Ansicht des Beitrags:
Von:
Marco
Datum:
31.01.2023 16:30:27
Views:
501
Rating: Antwort:
  Ja
Thema:
Sheet kopieren und mit fortlaufendem Datum bennen

Hallo zusammen,

ich bin totaler Neuling, was das Thema Makro´s in Excel betrifft.
Bin aber von den Möglichkeiten begeistert.

Ich benötige für eine Tabelle, die ich monatlich neu erstellen muss ein Marko welches es mir ermöglicht, das aktuelle Arbeitsblatt zu kopieren und umzubenennen mit einem fortlaufendem Datum (nur Wochentage).

Ich habe mir auch schon einen Code zusammen "gesucht" jedoch bekomme ich es nicht hin, das vor dem Datum noch der Wochentag steht.
Mein Traum wäre es wenn das Sheet nach folgender Logik benannt werden würden  Mi 01.02.2023.

Ich hoffe hier Unterstützung zu bekommen.

Vielen Dank vorab.

Gruß

Marco

 

Sub BlätterEinfügen()
Dim Last As Integer, First As Integer, i As Integer, Tage As Integer

Application.ScreenUpdating = False
With ActiveSheet
   First = weekDay(.Range("A1"))
   Last = Day(Application.EoMonth(.Range("A1"), 0))
   Tage = Application.NetworkDays(First, Last)
   .Name = .Range("A1")
End With
For i = 2 To Tage
   Select Case Weekday(Sheets(i - 1).Range("A1"), 2)
      Case Is < 5
         Sheets(i - 1).Copy after:=Sheets(i - 1)
         ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 1
         ActiveSheet.Name = Range("A1")
      Case 5
         Sheets(i - 1).Copy after:=Sheets(i - 1)
         ActiveSheet.Range("A1") = Sheets(i - 1).Range("A1") + 3
         ActiveSheet.Name = Range("A1")
   End Select
Next
Application.ScreenUpdating = True
End Sub
 

 

 


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
Rot Sheet kopieren und mit fortlaufendem Datum bennen
31.01.2023 16:30:27 Marco
NotSolved
31.01.2023 19:01:05 Gast22959
NotSolved