Excel VBA - Daten erfassen mit einer Schleife

16/09/2007 - 23:14 von Marion Scheffels | Report spam
Hi @all!

Ich möchte X Zeilen mit Daten auslesen, wobei X sich von Fall zu Fall
àndern kann.

Also habe ich diese Schleife:

For i = 1 To X
artikelnummer(i) = Cells(zeile, 2).Value
artikel(i) = Cells(zeile, 3).Value
stueck(i) = Cells(zeile, 4).Value
preis(i) = Cells(zeile, 6).Value
porto(i) = Cells(zeile, 7).Value
zeile = zeile + 1
Next i

Ich vermute, ich lege die Dateinamen falsch fest; sie sollen mit i
verknüpft werden, um spàter auch mit einer solchen Schleife wieder
woanders eingefügt werden zu können.
Fehlermeldung:
Fehler beim Kompilieren: Erwarte Datenfeld.

Wie schreib ich das richtig?

Vielen Dank!
MarionS
einwegadresse@marions.de

"Didn't they say the pen was mightier than the sword?" - James Bond
"Thanks to me they were right!" - Q
(GoldenEye)
 

Lesen sie die antworten

#1 Beverly
17/09/2007 - 06:02 | Warnen spam
Hi Marion,

ich habe leider nicht feststellen können, an welcher Stelle "Dateinamen" ins
Spiel kommen, aber so wie ich deine Aufgabenstellung verstanden habe,
könntest du alle Werte auf einmal in ein gemeinsames Array einlesen

Dim arrWerte()
For i = 1 To X
ReDim Preserve arrWerte(0 To 4, 0 To X)
arrWerte(0, i - 1) = Cells(zeile, 2).Value
arrWerte(1, i - 1) = Cells(zeile, 3).Value
arrWerte(2, i - 1) = Cells(zeile, 4).Value
arrWerte(3, i - 1) = Cells(zeile, 6).Value
arrWerte(4, i - 1) = Cells(zeile, 7).Value
zeile = zeile + 1
Next i

Beim Auslesen musst du darauf achten, dass das Array bei 0 beginnt, d.h. der
15. Wert ist als Nr. 14 zu behandeln.

Bis spàter,
Karin


"Marion Scheffels" wrote:

Hi @all!

Ich möchte X Zeilen mit Daten auslesen, wobei X sich von Fall zu Fall
àndern kann.

Also habe ich diese Schleife:

For i = 1 To X
artikelnummer(i) = Cells(zeile, 2).Value
artikel(i) = Cells(zeile, 3).Value
stueck(i) = Cells(zeile, 4).Value
preis(i) = Cells(zeile, 6).Value
porto(i) = Cells(zeile, 7).Value
zeile = zeile + 1
Next i

Ich vermute, ich lege die Dateinamen falsch fest; sie sollen mit i
verknüpft werden, um spàter auch mit einer solchen Schleife wieder
woanders eingefügt werden zu können.
Fehlermeldung:
Fehler beim Kompilieren: Erwarte Datenfeld.

Wie schreib ich das richtig?

Vielen Dank!
MarionS


"Didn't they say the pen was mightier than the sword?" - James Bond
"Thanks to me they were right!" - Q
(GoldenEye)

Ähnliche fragen