Datum finden Problem VBA
24.02.2014 16:51:12
Matze
ich weis mal wieder nicht wo mein Gedankenfehler ist, das nervt jetzt schon etwas länger,...grrr.
Habe dieses Makro
Private Sub Workbook_Open()
Dim Bereich As Range
Dim Zx As Date
Application.ScreenUpdating = False
Zx = Date
Worksheets(Month(Date)).Select
Set Bereich = Range("B10:B" & Rows.Count).Find(Zx, lookat:=xlWhole)
If Not Bereich Is Nothing Then
Range("C" & Bereich.Row).Select
Else
MsgBox "Datum nicht gefunden !"
End If
Set Bereich = Nothing
Application.ScreenUpdating = True
Call Makro1 'Ansichtseinstellung
Call OnlyScreen 'Als einzelnes Blatt anzeigen
Call SchutzOn 'Blattschutz für JEDES Blatt
End Sub
Die Tabellen(Blätter) sind in der Datei Januar-Dezember auch als erste gesetzt , danach kommen dann Andere Tabellen(Blätter) im VBAEditor Tabelle1-Tabelle12
Es erscheint die MsgBox "Datum nicht gefunden"
Jemand eine Idee?
Matze
Anzeige