Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

staffel mit schleifen macht problem dring. HILFE

staffel mit schleifen macht problem dring. HILFE
28.08.2007 12:15:39
Marcel
Hallo erstmal,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: staffel mit schleifen macht problem dring. HILFE
28.08.2007 13:21:00
Klaus-Dieter
Hallo Marcel,
meiner Ansicht nach wird der Fehler hier ausgelöst:

'Laufvariablen zurück gesetzt
n = 1
i = 1


So wie dein Quelltext die Arrays füllt, hat das niedrigste Feld die Adresse 0.
Viele Grüße Klaus-Dieter

Online-Excel

Na, so dringend war es wohl nicht. OwT
28.08.2007 22:05:34
Klaus-Dieter
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige