Jetzt fehlt noch die Kontrolle
06.11.2008 13:19:00
NeptunesChild
jetzt habe ich lange mit der nchfolgenden Funktion gelebt, doch jetzt benötige ich noch die Abfrage, ob in der gefundenen Zelle ein Wert steht oder nicht.
Private Sub Workbook_Open()
Sheets(Month(Date) + 1).Activate
ActiveSheet.Cells(WorksheetFunction.Match(CDbl(Date), _
ActiveSheet.Range("B:B"), 0), 9) = Format(Now - 2 / 1440, "hh:mm")
ActiveWorkbook.Save
Application.WindowState = xlMinimized
End Sub
Vielleicht habt Ihr ja eine Idee.
Lieben Gruß
Neptune
Anzeige