Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rows einfügen

Forumthread: Rows einfügen

Rows einfügen
01.07.2003 09: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 09: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 09: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 10:29:52
Ulf
Danke für eure Hilfe
ulf

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige