Hallo,
habe folgendes Makro (nicht vollständig):
.
.
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
End If
Next y
Bei Ausführung bekomme ich immer ein Fehler. Ich glaube meine Syntax bei End If und der Next Variable stimmt nicht. Kann mir jemand kurz feedback dazu geben :)
Danke
Gruß Sino
|