Hallo,
kann jemand ein fehler in der folgenden Programmierung entdeckung:
For i = 3 To 27
With Sheets("Datenblatt")
If UserForm1.ComboBox1.Value = Sheets("Stufen").Cells(i, 1) Then
.Cells(19, 7) = Sheets("Stufen").Cells(i, 25) 'KV
.Cells(10, 7) = Sheets("Stufen").Cells(i, 13) 'Unterbringung
.Cells(25, 10) = Sheets("Stufen").Cells(i, 26) 'Abruf?
.Cells(36, 4) = Sheets("Stufen").Cells(i, 14) 'Hof
.Cells(36, 7) = Sheets("Stufen").Cells(i, 15) 'Gesund
.Cells(36, 10) = Sheets("Stufen").Cells(i, 16) 'Fitneß
.Cells(40, 4) = Sheets("Stufen").Cells(i, 17) 'EDV
.Cells(44, 4) = Sheets("Stufen").Cells(i, 18) 'Bibel
.Cells(44, 7) = Sheets("Stufen").Cells(i, 19) 'Winsen
.Cells(44, 10) = Sheets("Stufen").Cells(i, 20) 'Koran
.Cells(44, 13) = Sheets("Stufen").Cells(i, 21) 'Peiner
.Cells(48, 4) = Sheets("Stufen").Cells(i, 22) 'AAT
.Cells(48, 7) = Sheets("Stufen").Cells(i, 23) 'PAG
.Cells(40, 7) = Sheets("Stufen").Cells(i, 19) 'Tischtennis
End If
Next
End With
For i = 4 To 27
With Sheets("Eingaben")
If ComboBox1.Value = .Cells(i, 1) Then
.Cells(i, 40) = TextBox42.Value
.Cells(i, 41) = TextBox43.Value
.Cells(i, 42) = CheckBox16.Value
.Cells(i, 43) = CheckBox17.Value
.Cells(i, 44) = CheckBox18.Value
.Cells(i, 45) = CheckBox19.Value
.Cells(i, 46) = CheckBox21.Value
.Cells(i, 47) = CheckBox22.Value
.Cells(i, 48) = CheckBox23.Value
End If
Next
End With
Bekomme die Fehlermeldung "Next ohne For" nach der ersten Schleife. Ich habe die Befehl "With" eingebaut um das Ganze zu beschleunigen und jetzt gibt die Fehlermeldung.
Weiß jemand warum?
Gruß
Martin