Daten in Array einlesen

Jochen · 2005-02-21T22:45:36+00:00

Hallo, wie kann ich aus 4 verschieden Blättern die Zahlenwerte in einen einzigen Array lesen? Die Werte stehen immer in Spalte A von A1 bis A? Danke Jochen

Hallo Jochen!
Z.B so.

Sub ArrayMulti()
Dim rng As Range
Dim arr As Variant
Dim tmp As String
Dim wks As Worksheet
Dim lastRow As Long
   For Each wks In ThisWorkbook.Worksheets

   lastRow = IIf(wks.Range("A65536") <> "", 65536, _
               wks.Range("A65536").End(xlUp).Row)

   arr = wks.Range("A1:A" & lastRow)

   tmp = tmp & Join2(arr, ";")

   Next
arr = Split(Left(tmp, Len(tmp) - 1), ";")
End Sub
Function Join2(field As Variant, Optional delimit As String) As String
'zweidimensionales array zu string umwandeln
Dim n As Long, m As Long
Dim temp As String
If delimit = "" Then delimit = " "
   For n = LBound(field, 2) To UBound(field, 2)
      For m = LBound(field, 1) To UBound(field, 1)

      temp = temp & field(m, n) & delimit

      Next
   Next
Join2 = temp
End Function

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Hallo Jochen!
Hie eine Variante in der du die Blattnamen angeben kannst!
Das Array ist vom Typ Variant, der inhalt hängt also von den Daten ab!
Wenn Zahlen in deinen Zellen stehen, dann sind auch Zahlen im Array!

Option Explicit
Sub ArrayMulti()
Dim rng As Range
Dim arr As Variant
Dim tmp As String
Dim wks As Worksheet
Dim lastRow As Long, n As Integer
Dim SheetArray As Variant
'Hier die Tabellennamen angeben!
SheetArray = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
   For n = 0 To UBound(SheetArray)

   lastRow = IIf(Sheets(SheetArray(n)).Range("A65536") <> "", 65536, _
               Sheets(SheetArray(n)).Range("A65536").End(xlUp).Row)

   arr = Sheets(SheetArray(n)).Range("A1:A" & lastRow)

   tmp = tmp & Join2(arr, ";")

   Next

'Hier das komplette Array!
arr = Split(Left(tmp, Len(tmp) - 1), ";")
End Sub
Function Join2(field As Variant, Optional delimit As String) As String
'zweidimensionales array zu string umwandeln
Dim n As Long, m As Long
Dim temp As String
If delimit = "" Then delimit = " "
   For n = LBound(field, 2) To UBound(field, 2)
      For m = LBound(field, 1) To UBound(field, 1)

      temp = temp & field(m, n) & delimit

      Next
   Next
Join2 = temp
End Function

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Forumthread: Daten in Array einlesen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten in Array einlesen

Forumthread: Daten in Array einlesen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread