Schleifen-Problem
24.02.2004 16:57:35
Benjamin Gaus
zeile = 30
spalte = 1
For i = 1 To Abwesend_SR
prompt31 = "Namen der Abwesenden geltenden Gruppen-SR? (Einzel Eingabe der Personen!)"
Namen_Abwesend = Application.InputBox(prompt31)
Tabelle1.Cells(zeile, spalte).Value = Namen_Abwesend
If spalte = 4 Then
zeile = zeile + 1
spalte = 1
End If
If spalte = 1 Then
spalte = spalte + 3
End If
Tabelle1.Cells(30, 10).Value = zeile
Tabelle1.Cells(30, 11).Value = spalte
Next i
Ich möchte Namen eingeben, das klappt aus, bloß wird nach der dritten Eingabe ein falscher Platz in Excel ausgewählt. Warum?
Ausgabe:
Erster Name: Spalte 30 Zeile 1
Zweiter Name: Spalte 30 Zeile 4
Dritter Name: Spalte 31 Zeile 4 (korrekt wäre Zeile 1)
aber was ist an den If-Schleifen falsch?
ich bin noch Anfänger, aber das verstehe ich nicht, warum das nicht korrekt ausgegeben wird!
hoffe ihr könnt mir helfen?
Bis dann