Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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


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

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige