Probleme mit Schleife
08.05.2008 17:47:35
Mister
wo ist der Fehler in dieser Schleife?
Sub Makro1
For i = 4 To 27
If ComboBox1.Value = Sheets("Eingaben").Cells(i, 1) Then
With Worksheets("Eingaben")
.Cells(i, 1) = UserForm1.ComboBox1.Value
.Cells(i, 2) = UserForm1.OptionButton1.Value
.Cells(i, 3) = UserForm1.OptionButton2.Value
.Cells(i, 4) = UserForm1.OptionButton3.Value
.Cells(i, 5) = UserForm1.TextBox1.Value
.Cells(i, 6) = UserForm1.TextBox2.Value
.Cells(i, 7) = UserForm1.TextBox3.Value
.Cells(i, 8) = UserForm1.TextBox4.Value
.Cells(i, 9) = UserForm1.TextBox17.Value
.Cells(i, 10) = UserForm1.ComboBox12.Value
End With
End If
Next
End Sub
Bekomme immer wieder End-If Ohne If Block Fehlermeldungen.
Gruß
Martin