Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren der letzten Zeile und einfügen

Kopieren der letzten Zeile und einfügen
19.11.2004 13:27:47
Christian
Hallo,
ich habe eine Liste, in der verschiedene Produkte in den Zeilen stehen. In Spalte A sind diese über die Zeilen durchnummeriert. Jetzt benötige ich ein Makro, das mir in dieser Liste, das letzte Produkt findet (über Zeilennummerierung in A) und die gesamte letzte Zeile kopiert und eins unter dem letzten Produkt einfügt.
Danke
Christian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren der letzten Zeile und einfügen
19.11.2004 13:44:14
Siegfried
Diesen Code bei einem Schalter einfügen:

Private Sub CommandButton1_Click()
Dim LastRow As Integer
LastRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious, SearchOrder:=xlByRows).Row
ActiveSheet.Range("A" + Format(LastRow + 1)).Value = LastRow + 1
ActiveSheet.Range("B" + Format(LastRow + 1)).Value = ActiveSheet.Range("B" + Format(LastRow)).Value
End Sub

grüße Siegfried
AW: Kopieren der letzten Zeile und einfügen
xule
Hallo
so z.B.

Sub kopiere()
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Reihe einer bestimmten Spalte
ActiveSheet.Rows(LR).Copy Destination:=Rows(LR + 1)
End Sub

Gruß UD
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige