sheet nach Datum/Monat öffnen?
23.02.2005 13:37:57
Dani
Ich möchte eine Datei öffnen und dabei auf ein bestimmtes Tabellenblatt automatisch zugreifen - und das aktivieren des Tabellenblatt sollte nach Monat erfolgen
Ich hab versucht ....
Worksheets("Datum").Activate
Range("A1").Select
If Worksheets("Datum").Cell(1, 1) = Februar Then ...."A1" = Heute()
Worksheets(3).Activate
End If
oder so...
Monat = 11
d = DateSerial(2005, Monat, 1)
myMonth = Format(d, "MMMM")
On Error Resume Next
Sheets(myMonth).Activate
If Err.Number 0 Then Msgbox Err.Description, vbCritical, myMonth
On Error GoTo 0
beides Funktioniert nicht
bitte... was kann ich tun