staffel mit schleifen macht problem dring. HILFE
28.08.2007 14:15:39
Marcel
hab einen Fehler und keine ahnung warum. Wie immer halt.
Also folgendes Problemchen.
Ich lese Werte und staffeln in 2 arrays ein.
Anschließend soll das programmchen checken ob der wert in die staffel paßt oder nicht.
Falls ja soll es den staffelindex in ein feld schreiben wenn nicht soll der rest ermittelt werden
und es geht in die nächste staffel.
Wenn jemand ne idee hätte wäre ich sehr dankbar. Wenns mal klappt möchte ich damit nähmlich einen
ganzen Datensatz bearbeiten.
Hier mein "SkripT" warum es auch immer nicht paßt:
Sub staffel()
'Arrays
Dim wert(7) As Variant
Dim staffel(6) As Variant
Dim rest(7) As Variant
Dim sumwert(7) As Variant
'Hilfsvariablen
Dim i As Integer
Dim n As Integer
Dim p As Integer
Dim puffer As Integer
Dim q As Integer
Dim k As Integer
For i = 1 To 6
wert(i) = Sheets("Tabelle1").Range(Chr(65 + i) & 1).Value
staffel(i) = Sheets("Tabelle1").Range(Chr(65 + i) & 2).Value
Next i
'markiert später das Ende für die schleife
wert(7) = 0
'Anfangswert eingesetzt
rest(1) = 0
sumwert(1) = wert(1)
'Laufvariablen zurück gesetzt
n = 1
i = 1
While wert(i) 0
While staffel(n) >= (sumwert(i) + rest(n)) Or i > 6
If i > 1 Then
Sheets("Tabelle1").Range(Chr(65 + i - 1) & 4).Value = n
End If
sumwert(i) = sumwert(i) + wert(i)
i = i + 1
Wend
' der rest der in die neue Staffel überführt wird!
rest(n) = sumwert(i) - staffel(n)
'Staffelzähler
n = n + 1
Wend
MsgBox "fertig"
End Sub
Viell sieht jemand was. Viel dank im Vorraus.
Gruß MArcel
Anzeige