AW: Diagramm aus Daten verschiedener Arbeitsblätte
17.08.2006 11:05:17
ingUR
Hallo, Marina,
vielleicht tut es diese Modul-Prozedur, die die Blöcke der in der Mappe enthaltenen Arbeitsblätter in die Tabelle 1 untereinander fortlaufend schreibt.
Option Explicit
Sub MakroBereicheSammeln()
Dim ws As Worksheet, ws1 As Worksheet
Dim r As Long, c as integer
Set ws1 = Worksheets("Tabelle1")
For Each ws In Worksheets
If ws.Name <> ws1.Name Then
ws.Range("A11:B22").Cells.Copy
r = 11 * r + 1
ws1.Cells(r,1).PasteSpecial
End If
Next ws
ws1.Range ("A1")
Set ws1 = Nothing
End Sub
Wenn du das Anordnen nebeneinander benötigst, dann ist die Berechnung der ersten Zielzelle in der For-Schleife zu verändern.
c = 2 * c + 1
ws1.Range(cells(1, c)).PasteSpecial
Sollen nicht alle Blätter in die Prüfung einbezogen werden, so gibt es verschiedenen Wege, diese Prüfung zu gestalten, je nach Vorgabe in der Tabellenliste.
Ebenso sind natürlich andere Zielbereiche und auch der Zieltabellenname, der hier noch mit "Tabelle1" angegeben wurde, möglich und von Dir anzupassen.
Hoffe, dass dies helfen kann.
Gruß,
Uwe