Office: VBA: Array aus allen Tabellenblättern befüllen

Hallo, liebe VBA-Freaks,

ich hab mal eine Frage zu Arrays und deren Befüllung.
Wenn ich ein Array mit einer Range befülle, kann ich

Code:

meinArray = Range("A1:F30")

nehmen.

Wie muss mein Code aussehen, wenn ich "meinArray" aber aus allen vorhandenen
Tabellenblättern (alle haben den gleichen Range-Bereich - A1:F20) befüllen möchte??

Code:

For i = 2 To Worksheets.Count
    With Worksheets(i)
       meinArray = ???
    End With
Next i

Ich hoffe, ich konnte mich verständlich ausdrücken! ;-)
Vielen lieben Dank im Voraus für eure Hinweise, Denkanstöße und Hilfestellungen!

Caro

 

Hi Caro,

Code:

Sub ArrayFuellen()
   Dim arrWerte()
   Dim intZaehler As Integer
   Dim lngZeile As Long
   Dim intTab As Integer
   intZaehler = 1
   For intTab = 2 To Worksheets.Count
      With Worksheets(intTab)
         For lngZeile = 1 To 20
            ReDim Preserve arrWerte(1 To 5, 1 To intZaehler)
            arrWerte(1, intZaehler) = .Cells(lngZeile, 1)
            arrWerte(2, intZaehler) = .Cells(lngZeile, 2)
            arrWerte(3, intZaehler) = .Cells(lngZeile, 3)
            arrWerte(4, intZaehler) = .Cells(lngZeile, 4)
            arrWerte(5, intZaehler) = .Cells(lngZeile, 5)
            intZaehler = intZaehler + 1
         Next lngZeile
         lngZeile = 1
      End With
   Next intTab
End Sub

---

 

Halo Karin,

vielen lieben Dank - ich habs vermutet, aber nicht geschafft - über 2 schleifen ineinander!
jetzt hab ich es !! ;-)
DANKE vielmals!
Caro