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