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
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Code anpassen auf Bereich kopieren

VBA Code anpassen auf Bereich kopieren
25.01.2005 09:10:17
roger
Guten Morgen
Ich habe folgenden Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Activate
Sheets("VegIrr.prog").Select
letzte_Zeile = Cells(Rows.Count, 2).End(xlUp).Row
If letzte_Zeile >= 25 Then
Rows(letzte_Zeile).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

Nun möchte ich gerne nicht nur die letzte Zeile kopieren und als Werte wieder einfügen, sondern den ganzen Bereich oberhalb der letzten Zelle bis Zeile 26.
Kann mir da jemand helfen?
Vielen Dank,
roger

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Code anpassen auf Bereich kopieren
WernerB.
Hallo Roger,
wie gefällt Dir das?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim letzte_Zeile As Long
ThisWorkbook.Activate
Sheets("VegIrr.prog").Select
letzte_Zeile = Cells(Rows.Count, 2).End(xlUp).Row
If letzte_Zeile < 26 Then
letzte_Zeile = 26
End If
With Range(Rows(26), Rows(letzte_Zeile))
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: VBA Code anpassen auf Bereich kopieren
25.01.2005 11:55:55
roger
Funktioniert bestens, herzlichen Dank,
roger

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige