Zellen auschneiden und in anderes Tabellenblatt an
24.07.2005 12:10:58
Harald
Ich möchte aus einem Tabellenblatt Zeilen ausschneiden und in ein anderes Tabellenblatt einfügen.
Wenn ich im nächsten Schritt erneut Zeilen ausschneide soll er sie an die zuerst Verschobenen anfügen.
Ich habe einen Code geschreiben aber an dem funktioniert noch was nicht.
Ich finde meinen Fehler nicht!! Vieleicht kann mir jemand helfen.
danke
Mein Code:
Sub Versenden_in_Archiv()
'Sheet wir ausgewählt
Sheets("Aktuell").Select
Range("A1:F15").Select
Selection.Cut
'Wechsel in Sammelliste
Sheets("Archiv").Select
'Letzte Zelle benutzte Zelle in Spalte A wird ermittelt
Range("A1").SpecialCells(xlCellTypeLastCell).Select
'Markierung springt eine Zeile abwärts
ActiveCell.Offset(1, 0).Select
'Ausgeschnittene Zeilen werden angefügt
ActiveSheet.Paste
'Wechsel zurück auf Ausgangsposition
Sheets("Aktuell").Select
Range("A1").Select
End
Sub
Anzeige