AW: datumsabhängigen anfang finden
14.09.2008 10:10:00
Tino
Hallo,
bei mir kommt nur ein Fehler, wenn dieses gesuchte Datum in Spalte F nicht vorhanden ist.
Alternativ könnte man den Fehler so abfangen.
Microsoft Excel Objekt DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Call Zelle_Mit_Datum_Heute
End Sub
Sub Zelle_Mit_Datum_Heute()
Dim lngRow As Long
Sheets("Tabellen").Select
With Application.WorksheetFunction
On Error Resume Next
lngRow = .Match(CDbl(Date), Columns("F"), 0)
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0
End With
Cells(lngRow, "F").Select
End Sub
Sollte noch eine Message Box aufgehen wenn dieses Datum nicht vorhanden ist dann so.
Microsoft Excel Objekt DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Call Zelle_Mit_Datum_Heute
End Sub
Sub Zelle_Mit_Datum_Heute()
Dim lngRow As Long
Sheets("Tabellen").Select
With Application.WorksheetFunction
On Error Resume Next
lngRow = .Match(CDbl(Date), Columns("F"), 0)
If Err.Number <> 0 Then
MsgBox "Datum: " & Date & " nicht gefunden!", vbCritical
Exit Sub
End If
On Error GoTo 0
End With
Cells(lngRow, "F").Select
End Sub
Gruß Tino