Hallo Sino,
Ordnung ist das halbe Leben...
zeile = Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To zeile
With Sheets("Neuwagen")
fin1 = .Cells(x, 1).Value
End With
If (fin = fin1) Then
TextBox13.Value = Cells(x, 12).Value
TextBox2.Value = Cells(x, 26).Value
Label87.Caption = Cells(x, 14).Text
Label42.Caption = Cells(x, 15).Value
Else
zeile1 = Cells(Rows.Count, 29).End(xlUp).Row
For y = 2 To zeile1
With Sheets("Neuwagen")
fin2 = .Cells(y, 30).Value
End With
If (fin = fin2) Then
Label429.Caption = Sheets("Neuwagen").Cells(y, 32).Value
Label431.Caption = Sheets("Neuwagen").Cells(y, 33).Text
End If
Next x <--- HIER x löschen!
End If
Next y <--- HIER y löschen!
ein bischen Struktur und schon erkennt man den Fehler, lösche bitte das x und das y dann sollte es gehen! In VBA benötigt man nicht unbedingt die Variable nach NEXT, aber eine falsche führt zu Fehlern.
Gruß Detlev
|