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