Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Rows einfügen

Forumthread: Rows einfügen

Rows einfügen
01.07.2003 11:15:01
Ulf
Hallo diesmal etwas schwerer,
Ich möchte eine Zeile auf dem gerade aktivem Arbeitsblatt ausschneiden und auf einem anderen Blatt in die jeweils nächste freie Zeile einfügen. Hat jemand von euch eine Lösung?
Danke für eure Bemühungen
Ulf
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rows einfügen
01.07.2003 11:43:16
Remo
Hallo Ulf
Probier mal das:
Selection.Cut Worksheets(2).[a65536].End(xlUp).Offset(1, 0)
Gruss Remo

AW: Rows einfügen
01.07.2003 11:40:28
Mac4
Hallo Ulf,
folgendes Makro schneidet die Zeile der aktiven Zelle in Tabelle1 aus, wechselt in Tabelle2 und fügt hier hinter dem letzten Datensatz die ausgescnittenene Daten wieder ein.
Musst Du ggf. anpassen!

Sub test()
ActiveCell.EntireRow.Cut
Sheets("Tabelle2").Select
ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
End Sub


Anzeige
Danke für eure Hilfe
01.07.2003 12:29:52
Ulf
Danke für eure Hilfe
ulf

Forumthreads zu verwandten Themen

Anzeige
Anzeige