Problem mit Code
14.12.2017 10:33:03
Philip
Ich habe ein Problem mit einem Code den mir jemand hier im Forum erstellt hat.
Sub Tage_erstellen()
Dim x&
Application.ScreenUpdating = False
For x = 2 To 31
Sheets("01").Copy After:=Sheets(x - 1)
With ActiveSheet
.Name = x
.Move After:=Sheets(Sheets.Count)
.TextBox3.text = DateSerial(Year(Now), Month(Now), x)
'WE-Register einfärben
If Weekday(CDate(.TextBox3), vbMonday) > 5 Then
With ActiveWorkbook.Sheets(x).Tab
.Color = 49407
.TintAndShade = 0
End With
End If
End With
Next
End Sub
Dieser Code kopiert mir ein Tabellenblatt und macht 30kopien davon und fügt jeweils das Datum vom 1. bis 31. in die Textbox3 ein.Das funktioniert soweit alles einwandfrei aber ich kann diese Arbeitsmappe jeweils erst am ersten des Monats erstellen da sich der Code nur auf den aktuellen Monat bezieht, ich müsste diese aber vorher erstellen können, da ich diese schon benutzen muss.
Ich hoffe ihr könnt mir helfen, habe es schon selber versucht, bringe es jedoch nicht fertig.
Gruss Philip