Tabellen glieichen struktur zusammenfassen
27.04.2005 22:51:43
mirko
ich stehe vor einem ungelöstem Problem, ich habe versucht mehere Tabelle welche gleich aufgebaut sind zusammenfassen und die Ergebnisse in eine neue Tabelle einfügen, was auch soweit klappt.
Aber ich möchte nur die z.B Summe aus diese Tabellen zusammenfassen, dh. nur bestimmte Zelle,,, geht das ?
Diese Code habe ich aus meinem Lerbuch:
Sub TabellenKonsolidieren()
Dim i As Integer
With ActiveWorkbook
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
Set rng = .Worksheets(i).UsedRange
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
rng.Copy Destination:=rng1
Next
End With
End
Sub
Danke
mirko
Anzeige