Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA/Makro ergänzen Kopiere letzte 5

VBA/Makro ergänzen Kopiere letzte 5
17.01.2006 10:22:19
Fabio
Hallo zusammen,
Dank dem Forum habe ich ein "Script" erhalten, bei dem Excel auf "Knopfdruck"
-die letze Zeile markiert
-kopiert
-und dann als "neue" letzte Zeile einfügt.
Durch eine Änderung, brauche ich aber die "letzen 5" zeilen. Kann mir bitte jemand das Script erweitern so das Exel
-die letzen "5" Zeilen markiert
-kopiert
-und dann als "neue" letzte "Zeilen" einfügt :
Das "alte" Script :

Sub letzte_zeile_kopieren()
Rows(Range("A65535").End(xlUp).Row).Copy
Rows(Range("A65535").End(xlUp).Row + 1).Insert
Rows(Range("A65535").End(xlUp).Row).Select
End Sub

Vielen Dank !

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA/Makro ergänzen Kopiere letzte 5
17.01.2006 10:53:44
u_
Hallo,

Sub letzte5kopieren()
Dim iRow As Long
iRow = Range("a65536").End(xlUp).Row
If iRow > 5 Then
Range(Cells(iRow - 4, 1), Cells(iRow, 1)).EntireRow.Copy Cells(iRow + 1, 1)
Else
Range(Cells(1, 1), Cells(iRow, 1)).EntireRow.Copy Cells(iRow + 1, 1)
End If
End Sub

Gruß
Geist ist geil!
Danke und "Kleine" Ergänzungsbitte
17.01.2006 14:07:29
Fabio
Vielen Dank _u!
Könntest Du mir das Script noch um "zwei" Funktionen erweitern ?
(freilassen und markieren)
-die letzen "5" Zeilen markiert
-kopiert
***EINE ZEILE FREI LÄSST
-und dann als "neue" letzte "Zeilen" einfügt
***Und dann die "Neuen" letzen 5 Zeilen gleich markiert (Auswählt)
Danke !
Fabio
Anzeige
AW: Danke und "Kleine" Ergänzungsbitte
17.01.2006 15:11:09
u_
Hallo,

Sub letzte5kopieren()
Dim iRow As Long
iRow = Range("a65536").End(xlUp).Row
If iRow > 5 Then
Range(Cells(iRow - 4, 1), Cells(iRow, 1)).EntireRow.Copy Cells(iRow + 2, 1)
Else
Range(Cells(1, 1), Cells(iRow, 1)).EntireRow.Copy Cells(iRow + 2, 1)
End If
Range(Cells(iRow + 2, 1), Cells(65536, 1).End(xlUp)).EntireRow.Select
End Sub
Gruß
Geist ist geil!
AW: Danke -funktioniert
17.01.2006 16:39:45
Fabio
Herzlichen Dank - funktioniert perfekt !

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige