'bestimmten Uhrzeit in Spalte H gesucht werden .
'Sollte die Uhrzeit gefunden werden brauch ich die Werte aus Spalte G & A
 
Private Sub Command1_Click()
    Dim ex As Excel.Application
    Dim exRange As Excel.Range
    Dim sA As String
    Dim sG As String
    Dim r As Long
    Dim max As Long
 
    Set ex = New Excel.Application
 
    Call ex.Workbooks.Open("C:\test.xls", , True)
 
    Set exRange = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
    max = exRange.Row
 
    For r = 1 To max
        If ex.Cells(r, 8).Value = meineUhrzeit Then
            sA = ex.Cells(r, 1).Value
            sG = ex.Cells(r, 9).Value
            '...
       Exit For
        End If
    Next r
 
    Set exRange = Nothing
 
    Call ex.Workbooks(1).Close
    Call ex.Quit
    Set ex = Nothing
End Sub