Liebe VBA-Experten,
ich möchte aus einer Spalte mit Zeitangaben im Viertelstundenintervall(Spalte "A:A") die Zeile mit der richtigen Uhrzeit ausgegeben haben. Mein bisher verwendeter Code funktioniert nicht, ich vermute, dass ich ein Formatproblem habe.
Kann mir hier bitte jemand behilflich sein?
Sub ZeitausSpalte()
Dim i As Double
Dim Zeile1 As Long
i = ActiveSheet.Range("D2").Value
On Error Resume Next
Zeile1 = WorksheetFunction.Match(i, Worksheets("Tabelle4").Range("A:A"), 0)
On Error GoTo 0
If Zeile1 = 0 Then
MsgBox "nicht gefunden"
Else
Debug.Print Zeile1
End If
End Sub
Für Hilfe wäre ich sehr dankbar.
Freundliche Grüße von Matthias und guten Rutsch!
|