Tabellenblätter zusammenführen, aber
Christo
das folgende Makro funktioniert fast perfekt, bloss ...
- die Titelzeilen 1-5 der "Herkunftstabelle" werden immer mitkopiert
- im Zielblatt sollte in der Spalte "S" bei jedem Datensatz, die Herkunftstabelle stehen
( Die Daten der Herkunftstabellen haben im Maximum Spalten von A - P
Wer weiss Rat und jetzt schon Danke.
Christo
Sub Total_Tabelle()
Dim wksZ As Worksheet, wksQ As Worksheet, lngZ As Long, lngQ As Long
Set wksZ = Worksheets("Gesamt") ' Zielblatt "Gesamt" muss existieren
lngZ = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row
gesamt_Loeschen ' löscht den gesamten Inhalt in "Gesamt"
' erstellt die Titelzeile
For Each wksQ In Worksheets
With wksQ
If wksQ.Name = "Totale" Then GoTo sprung ' wird nicht kopiert
If wksQ.Name = "IST_VERS" Then GoTo sprung ' wird nicht kopiert
If wksQ.Name = "IST_STRV" Then GoTo sprung ' wird nicht kopiert
If .Name wksZ.Name Then
lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
If lngQ > 0 Then .Rows(2).Resize(lngQ).Copy wksZ.Rows(lngZ + 1)
lngZ = lngZ + lngQ
End If
sprung:
End With
Next wksQ
End Sub
Anzeige