Ohne Überschriften Kopieren
06.12.2008 14:09:00
Wolfgang
ich hatte gedacht, das bekäme ich wenigstens hin, leider nicht. Der untenstehende Code kopiert mir alle Datensätze aus den Tabellen1-4 in die Tabelle "Gesamt"; Wie muß ich den Code verändern, damit ich die Überschriften aus Zeile 1 nicht mitkopiert bekomme? - Danke schon jetzt für die Rückmeldung.
Herzliche Grüße
Wolfgang
Sub CopyGesamt()
Dim lngRow As Long, X As Long
lngRow = 1
With Worksheets("Gesamt")
.UsedRange.Delete
For X = 1 To Worksheets.Count
If Worksheets(X).Name = "Tabelle1" Or Worksheets(X).Name = "Tabelle2" Or Worksheets(X). _
_
Name = "Tabelle3" Or Worksheets(X).Name = "Tabelle4" Then
Worksheets(X).Range("A1").CurrentRegion.Copy .Cells(lngRow, 1)
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End If
Next
End With
End Sub