Hi nochmal :)..

habe hoffe ich ein kleines Problem...;)

zunächst einmal der Code:

Sub do()

Dim intRow As Integer, intLastRow As Integer
Dim gesamt As Worksheet
Dim y As Long, lngZeilen As Long, lngZeilen2 As Long, y2 As Long
Dim wkb As Workbook
Dim textboxDat As Date
Dim datum As Date
Dim zeit As String
Dim datum2 As Date
Dim zeit2 As String

        textboxDat = TextBox3.Value

        Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\P325130\Desktop\kopie Neuwagen\Neuwagenmanagement.xls")
        Set gesamt = wkb.Sheets("Neuwagen")

        lngZeilen = gesamt.Cells(gesamt.Rows.Count, 1).End(xlUp).Row

            
        For y = 2 To lngZeilen
          
        wkb.Activate
        Sheets("Neuwagen").Activate
                    
        datum = Sheets("Neuwagen").Cells(y, 13).Value
        zeit = Sheets("Neuwagen").Cells(y, 14).Text
                     
      
        If datum = textboxDat And zeit = "9:00" Then
        Label120.Caption = Cells(y, 5).Value 'Name
        Label121.Caption = Cells(y, 12).Value 'Kennzeichen
        Label208.Caption = Cells(y, 1).Value 'FIN
        
        ElseIf datum = textboxDat And zeit = "9:15" Then
        Label188.Caption = Cells(y, 5).Value
        Label190.Caption = Cells(y, 12).Value
        Label209.Caption = Cells(y, 1).Value

     Else

'        MsgBox "Datum nicht gefunden"

        End If
        Next y


For y = 2 To lngZeilen
          
        wkb.Activate
        Sheets("Neuwagen").Activate
        
        datum2 = Sheets("Neuwagen").Cells(y, 32).Value
        zeit2 = Sheets("Neuwagen").Cells(y, 33).Text
        
                
        If datum2 = textboxDat And zeit2 = "9:00" Then
        Label300.Caption = Cells(y, 31).Value
        Label313.Caption = Cells(y, 29).Value
        Label362.Caption = Cells(y, 30).Value
                       
        ElseIf datum2 = textboxDat And zeit2 = "9:15" Then
        Label299.Caption = Cells(y, 31).Value
        Label312.Caption = Cells(y, 29).Value
        Label325.Caption = Cells(y, 30).Value

     Else

'        MsgBox "Datum nicht gefunden"

        End If
        Next y

End Sub()

Problem: Der erste For-Block wird ausgeführt und die Werte werden in die Labels reingeschrieben. Der zweite For-Block wird nicht ausgeführt, es werden keine Werte in die Labeles reingeschrieben. Habe die Labelbezeichnungen auch überprüft (stimmt alles). Nur die Übernahme klappt iwie nicht. Gibts da ein offensichtlichen Fehler?

Gruß Sino