Tabellen zusammenfassen mit VBA... bitte HILFE !
10.08.2003 21:15:29
Michael
ich habe eine Excel Datei mit 13 Tabellen.
12 davon sind aufgeteilt in Monate (Januar bis Dezember) und die 13. soll meine Jahresübersicht werden, in der alle Daten der 12 Tabellen zusammengeschrieben werden sollen.
Habe bereits ein SKRIPT dazu gefunden, nur leider nur für 2 Tabellen:
Sub ZusammenFuehren()
Dim wks As Worksheet
Dim rngA As Range, rngB As Range
Dim iRow As Integer, iCounter As Integer, iCol As Integer
Application.ScreenUpdating = False
Set rngA = Worksheets("Tabelle1").Range("A1").CurrentRegion
Set rngB = Worksheets("Tabelle2").Range("A1").CurrentRegion
Set wks = Worksheets("Tabelle3")
iCol = rngA.Columns.Count
If rngB.Columns.Count > iCol Then
iCol = rngB.Columns.Count
End If
For iCounter = 1 To iCol
wks.Cells(1, iCounter) = "Spalte" & iCounter
Next iCounter
wks.Rows(1).Font.Bold = True
rngA.Range("A1").CurrentRegion.Copy wks.Range("A2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
rngB.Range("A1").CurrentRegion.Copy wks.Cells(iRow, 1)
wks.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=wks.Cells(1, wks.UsedRange.Columns.Count + 1), _
Unique:=True
wks.Range(wks.Cells(1, 1), wks.Cells(1, iCol)). _
EntireColumn.Delete
wks.Columns.AutoFit
End Sub
Wäre superklasse, wenn mir jemand ein Skript für 12 Tabellen liefern könnte, bzw. das vorhandene für 13 Tabellen umschreibt, da ich leider Gottes kein VBA kann ....
Vielen Dank im Voraus, Michael