kann mir jemand sagen warum bei dem unten stehenden Code der Fehler "Next ohne For" auftritt?
If ComboBox2 = "ändern" Then
Sheets("Baugruppe").Select
letzteZeile = ActiveSheet.UsedRange.Rows.Count
Cells.Find(What:=ComboBox1, After:=A1, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
For j = 1 To letzteZeile
If ActiveCell = ComboBox1 And _
ActiveCell.Offset(0, 1) = ComboBox1.List(ComboBox1.ListIndex, 1) And _
ActiveCell.Offset(0, 2) = TextBox1 And ActiveCell.Offset(0, 3) = TextBox2 And _
ActiveCell.Offset(0, 4) = TextBox3 And ActiveCell.Offset(0, 5) = TextBox4 And _
ActiveCell.Offset(0, 6) = TextBox5 And ActiveCell.Offset(0, 7) = TextBox6 And _
ActiveCell.Offset(0, 8) = TextBox7 And ActiveCell.Offset(0, 9) = TextBox8 And _
ActiveCell.Offset(0, 10) = TextBox9 And ActiveCell.Offset(0, 11) = TextBox10 And _
ActiveCell.Offset(0, 12) = TextBox11 And ActiveCell.Offset(0, 13) = TextBox12 And _
ActiveCell.Offset(0, 14) = TextBox13 And ActiveCell.Offset(0, 15) = TextBox14 And _
ActiveCell.Offset(0, 16) = TextBox15 And ActiveCell.Offset(0, 17) = TextBox16 And _
ActiveCell.Offset(0, 18) = TextBox17 And ActiveCell.Offset(0, 19) = TextBox18 And _
ActiveCell.Offset(0, 20) = TextBox19 And ActiveCell.Offset(0, 21) = TextBox20 And _
ActiveCell.Offset(0, 22) = TextBox21 And ActiveCell.Offset(0, 23) = TextBox22 And _
ActiveCell.Offset(0, 24) = TextBox23 And ActiveCell.Offset(0, 25) = TextBox24 And _
ActiveCell.Offset(0, 26) = TextBox25 And ActiveCell.Offset(0, 27) = TextBox26 And _
ActiveCell.Offset(0, 28) = TextBox27 Then
ActiveCell.Select
Else
Cells.FindNext(After:=ActiveCell).Activate
Next j
End If
Bin für eure hilfe sehr dankbar
Gruß
Hans