Kopfzeile löschen bzw. nicht mitkopieren
24.08.2005 17:08:28
helmar
Sub Auto_Open()
Dim i As Integer
Dim Quelle As Range
Dim Ziel As Range
With ActiveWorkbook
.Worksheets("Total Data").Delete
.Worksheets.Add Before:=.Worksheets(7)
ActiveSheet.Name = "Total Data"
For i = 2 To 6
Set Quelle = .Worksheets(i).UsedRange
Set Ziel = Worksheets(7).Cells(Rows.Count, "A").End(xlUp)(1)
Quelle.Copy Destination:=Ziel
Next
End With
End Sub
Leider haben alle Tabellen in der ersten Zeile den Tabellenkopf, den ich in der konsolidierten Tabelle nun x-Mal habe.
Kann mir jemand dabei helfen das Makro so zuverändern, dass es die Kopfzeile nur beim ersten Tabellenblatt mitkopiert und danach nicht mehr oder ggf. nach dem Kopieren alle gleichen Zeilen identifiziert und dann löscht. THX
Zusatzfrage:
Kann man ausdrücken, dass nur Tabellenblätter mit einer bestimmten Registerfarbe berücksichtigt werden sollen? (Abgefahren)