Office: Array dynamisch einlesen

ploeve · 6. November 2007

Hallo,

möchte aus einer Mappe alle Werte aus den Spalten A aus allen Blättern in ein Array einlesen.

Leider weiß ich am anfang noch nicht, wie groß dieses array sein muss.

Wie geh ich am besten vor?

Ich lauf zuerst einmal alle Blätter durch, nur wie mach ich das mit dem Counter i? ich weiß ja nicht, wie weit der laufen soll?!
Kann man das ohen Counter dynamisch machen?

Danke

Code:

For i=1 to XX
For Each sht In wkb1.Worksheets
arr1(,1) = sht.Cells(i, 1).Value
Next sht
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank

:)

jinx · 8. November 2007

Moin, ploeve,

die Anzahl der Werte feststellen und das Array per ReDim Preserve auf die neuen Werte umstellen...

ploeve · 8. November 2007

Hi jinx!

Danke für deine rasche Antwort!

So hab ichs zu lösen versucht, bin jedoch gescheitert.

Bin so vorgegangen:

Code:

lnEintraege = 0
For Each sht In wkb1.Worksheets
lnEintraege = lnEintraege + wkb1.Worksheets(sht.Name).Cells(Rows.Count, rngRange.Column).End(xlUp).Row
Next sht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann

Code:

ReDim arr2(1 To lnEintraege, 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur wir geh ich jetzt mit dem Befüllen weiter?
Genau hier hänge ich dann beim Counter:

So würd er mir das ja alles jedesmal überschreiben:
Code:

For i = 1 to lnEintraege
For Each sht In wkb1.Worksheets
arr1(,1) = sht.Cells(i, 1).Value
Next sht
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und so gehts ja auch nicht:
Code:

For Each sht In wkb1.Worksheets
For i = 1 to lnEintraege
arr1(,1) = sht.Cells(i, 1).Value
Next i
Next sht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich glaub ich steh am Schlauch... *biggrin.gif*

Danke!

chris-kaiser · 8. November 2007

hiho

Code:

Sub versuch()
Dim sh As Worksheet
Dim arr(), ges As Long, z As Long
For Each sh In Worksheets
For i = 1 To sh.Cells(Rows.Count, 1).End(xlUp).Row
ReDim Preserve arr(z)
arr(z) = sh.Cells(i, 1).Value
z = z + 1
Next
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist aber nicht getestet!

ploeve · 8. November 2007

Hi Chris!

Vielen Dank, funktioniert einwandfrei.
Hab nicht dran gedacht, dass ich die i-Counterschleife auch in die For Each reinnehmen kann...

Vielen Dank nochmal.

Matthias

Office: Array dynamisch einlesen

Array dynamisch einlesen

Array dynamisch einlesen

Array dynamisch einlesen

Array dynamisch einlesen - Similar Threads - Array dynamisch einlesen

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Formel bei Veränderung von dynamischem Array "mitziehen"?

Array-Inhalt löschen ("dynamisch")

Dynamische Matrixformeln und Verschüttetes Array Verhalten

Array dynamisch kürzen