Hallo Zusammen,
ich habe ein kleines Problem, und zwar,
möchte ich mit meiner Makro einen gefilterten Bereich in ein anderes Sheet kopieren. Aber ich möchte dabei nicht die Kopzeile kopieren. (Also die erste Zeile).
Anbei mein aktueller Stand der Dinge.
Würde mich über eure Hilfe sehr freuen.
Sub Schaltfläche1_Klicken()
Sheets("Daten").Select
Range("A2").CurrentRegion _
.SpecialCells(xlCellTypeVisible).Copy
Sheets("Archiv").Select
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
Loop
Cells(i, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
End Sub |