Monatsblatt auswählen
AndreasS
warum läuft das nicht?
Sub Monatsblatt_öffnen()
monat = Month(Date)
If monat.Value = 1 Then
Sheets("Januar").Select
End If
If monat.Value = 4 Then
Sheets("April").Select
End If
End Sub
Danke für jede Hilfe!
Gruß Andreas