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
|