VBA, Datenfeld aus mehereren Tabellenblättern

Hallo Leute,
gestern habe ich Euer Forum intensivst durchforstet, aber nichts passendes gefunden.
Problem: Ich möchte alle Tabellenblätter meiner Exceldatei in ein Datenfeld einlesen. Bisher habe ich das folgendermaßen gemacht (Auszug):
ZeileAnz=5000
For BlattZähler = 0 To BlattAnz
With Worksheets("BlattZähler")
' Bereich je Blatt festlegen
SpalteAnz = .Cells(1, Columns.Count).End(xlToLeft).Column
Bereich = .Range(.Cells(1, 1), .Cells(ZeileAnz, SpalteAnz))
For ZeileZähler = 1 To ZeileAnz
For SpalteZähler = 1 To SpalteAnz
' Werte einlesen
ARRAY(ZeileZähler, SpalteZähler + SpalteGesamt) = _
Bereich(ZeileZähler , SpalteZähler)
Next SpalteZähler
Next ZeileZähler
End With
SpalteGesamt = SpalteGesamt + SpalteAnz - 1
Next BlattZähler
Das ganze dauer allerdings bei ca. 20 Blättern mit den beiden geschachtelten Schleifen eine ganze Zeit (ca. 20 sekunden).
Frage: Wie geht das ganze schneller?
Mit dem Union-Befehl die Bereiche zusammenfügen und den gesamten Bereich einem Datenfeld zuweisen klappt nicht, da sich der Union-Befehl wohl nur auf ein Tabellenblatt beziehen darf...
Aber das muss doch irgendwie schneller machbar sein...
Bin für jede Hilfe dankbar
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Demo() Dim wksArray() Dim wks As Worksheet, homeWks As Worksheet Dim i As Integer, startCol As Integer, endCol As Integer Dim rowCounter As Long startCol = 1 wksArray = Array("Tabelle1", "Tabelle2") Set homeWks = Worksheets("Blattzähler") 'Berechnung abschalten Application.Calculation = xlCalculationManual For i = 0 To UBound(wksArray) MsgBox Worksheets(i + 1).Cells(1, 1) 'den Bereich direkt kopieren With Worksheets(i + 1) .Range(.Cells(1, startCol), .Cells(1, endCol)).Copy homeWks.Cells(rowCounter, 1) End With rowCounter = rowCounter + 1 Next 'Berechnung wieder einschalten Application.Calculation = xlCalculationAutomatic End Sub

Danke für die Mühe
Vielleicht mach ich auch alles falsch - ich hab das GESAMTE Makro nochmal rauskopiert - vielleicht wird dann einiges klarer (siehe unten).
In Deinem Makro verstehe ich
.Range(.Cells(1, startCol), .Cells(1, endCol)).Copy homeWks.Cells(rowCounter, 1)
nicht. Aber ich glaube wir kommen der Sache näher. Deine Fragen sind mir ein wenig zu kompliziert - ich verstehe sie teilweise nicht. Deswegen hier also nochmal das GESAMTE Makro (Da ich so was das erste Mal mache bitte ich um Nachsicht - man lernt schließlich aus seinen Fehlern...)
Danke nochmal...


Sub M_280a(AusgRück As Variant, Druck As Boolean, Fehler As Boolean, AoR As String)
' Anzahl der Blätter für Ausgabe- bzw Rücknahmewerte ermitteln
Dim BlattZähler As Variant
Dim BlattAnz As Integer
For Each BlattZähler In Worksheets
If IsNumeric(Mid(BlattZähler.Name, 2)) = True Then BlattAnz = BlattAnz + 1
Next BlattZähler
BlattAnz = BlattAnz / 2
' Anzahl der Zeilen im letzten Rücknahmeblatt ermitteln
Dim ZeileAnz As Integer
ZeileAnz = Worksheets(CStr(AoR) + "0" + CStr(BlattAnz - 1)).Cells(Rows.Count, 1).End(xlUp).Row
' Anzahl der Spalten über alle Aus- bzw- Rücknahmeblätter ermiteln
Dim SpalteAnz As Integer
For BlattZähler = 1 To BlattAnz
With Worksheets(CStr(AoR) + "0" + CStr(BlattZähler - 1))
SpalteAnz = SpalteAnz + .Cells(9, Columns.Count).End(xlToLeft).Column - 1
End With
Next BlattZähler
' Feld erstellen
ReDim AusgRück(9 To 10, SpalteAnz)
' Alles einlesen
Dim Bereich
Dim ZeileZähler As Integer
Dim SpalteZähler As Integer
Dim SpalteGesamt As Integer
SpalteGesamt = 0
For BlattZähler = 0 To BlattAnz - 1
With Worksheets(CStr(AoR) + "0" + CStr(BlattZähler))
' Bereich je Blatt festlegen
SpalteAnz = .Cells(9, Columns.Count).End(xlToLeft).Column
Bereich = .Range(.Cells(9, 1), .Cells(ZeileAnz, SpalteAnz))
' Datum einlesen
For SpalteZähler = 2 To SpalteAnz
AusgRück(9, SpalteZähler - 1 + SpalteGesamt) = Bereich(1, SpalteAnz - SpalteZähler + 2)
Next SpalteZähler
For ZeileZähler = 11 To ZeileAnz
' WKN einlesen
AusgRück(ZeileZähler, 0) = Bereich(ZeileZähler - 8, 1)
' Werte einlesen
For SpalteZähler = 2 To SpalteAnz
AusgRück(ZeileZähler, SpalteZähler - 1 + SpalteGesamt) = Bereich(ZeileZähler - 8, SpalteAnz - SpalteZähler + 2)
Next SpalteZähler
Next ZeileZähler
weiter2:
End With
SpalteGesamt = SpalteGesamt + SpalteAnz - 1
Next BlattZähler
If Druck <> False Then Call M_80Druck(AoR, BlattAnz, AusgRück)
End Sub

Beliebteste Forumthreads (12 Monate)

VBA, Datenfeld aus mehereren Tabellenblättern

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

103 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA, Datenfeld aus mehereren Tabellenblättern

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

103 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread