da Du mir gestern super geholfen hast wende ich mich nochmals an Dich... Wir hatten geschrieben unter der Überschrift
"Aktuelle Zusammenführung" (verschiedene Tabellen sollen automaisch in Tabelle 1 eingefügt werden, unterschiedlich viele Zeilen aber die Spalten sind immer gleich (bis spalte Z).
Ich habe das Problem, dass auf Tabelle1 das gewünschte Ergebnis noch nicht erscheint, weil er die Überschriften aus Zeile 2 (jedes Blatt hat als Überschrift Zeile 1+2) mitkopiert.
Mittlerweile bin ich bei folgendem Makro angelangt:
Sub Zusammenführen()
Sheets("CBC").Range("A3:Z65536").ClearContents
Dim wks As Worksheet
For Each wks In Worksheets
'Tabelle1 soll als Zieltabelle nicht berücksichtigt werden
If wks.Name <> "CBC" Then
'Beispiel geht davon aus, dass die Tabellen in Zeile
'1 Überschriften haben:
wks.Range("A3:Z" & wks.Range("Z65536").End(xlUp).Row).Copy _
Destination:=Worksheets("CBC").Range("A" & _
Range("A65536").End(xlUp).Row + 1)
End If
Next wks
'Zielbereich in Tabelle1 wird nach Spalte A aufsteigend sortiert
Worksheets("CBC").Range("A3:Z" & Worksheets("CBC") _
.Range("Z65536").End(xlUp).Row).Sort _
Key1:=Range("A1"), Order1:=xlAscending, Header:=False
End Sub
Kannst Du, oder jemand anderes mir helfen?
Viiieeelen Dank
Sab