Daten aus Tabellenblatt kopieren
08.08.2008 22:24:43
Jochen
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht()
Dim intS As Integer 'letzte belegte Spalte auf Blatt 1
Sheets("Daten").Columns("C:H").Copy
With Sheets("Übersicht")
intS = .Cells(1, Columns.Count).End(xlToLeft).Column
.Cells(1, intS).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
Dabei werden einfach die Spalten C bis H kopiert und wieder eingefügt.
Wie kann ich den Code abändern, das von der Spalte C:H die erste Zeile NICHT mitkopiert werden und die Informationen auf dem tabellenblatt "Übersicht" erst ab A2 eingefügt werden (erste Zeile soll leer bleiben)
Danke mal
Gruss
Jochen