Blattkopieren mit Datum ausser Sonntag
28.01.2020 16:12:49
Dominik
Dank dem super Forum hier bin ich schon ziemlich weit gekommen mit meim Excel VBA.
Ich möchte folgendes erreichen: Das Blatt soll kopiert werden und ans Ende gestellt werden, als Blattname jeweils das Datum von Morgen, ausser Morgen ist Sonntag, dann das Datum von Montag. Soweit funktioniert das auch, ausser wenn ich das Makro an einem Samstag ausführe, dann kopiert es das Blatt nicht und überschreibt das aktuelle Blatt.
Da ich kaum VBA Kenntnisse habe sehe ich den Fallstrick nicht. Könnt ihr mir da weiterhelfen?
Hier mein VBA:
Sub Blattkopieren()
' Blattkopieren Makro
Dim oMuster As Worksheet
Dim tmpDate As Date
'Set oMuster = Worksheets(ActiveSheet)
Set oMuster = ActiveSheet
tmpDate = Date + 1
If Weekday(tmpDate, vbMonday) Function CheckTabelle(strTabName$) As Boolean
On Error Resume Next
CheckTabelle = ThisWorkbook.Sheets(strTabName).Index 0
On Error GoTo 0
End Function