letzte Zeile finden und kopieren + weitere Zeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Zeilen_kopieren() Dim loLetzte As Long With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Rows(loLetzte - 8 & ":" & loLetzte).Copy .Rows(loLetzte + 1) .Range(Cells(loLetzte, 2), .Cells(loLetzte, 3)).ClearContents End With End Sub

Sub Zeilen_kopieren() Dim loLetzte As Long With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Rows(loLetzte - 8 & ":" & loLetzte).Copy .Rows(loLetzte + 1) .Range(Cells(1, 2), .Cells(1, 3)).ClearContents End With End Sub

Hi Werner,
besten Dank für deine abermalige Rückmeldung. Mache dich nicht an den angegebenen Zellen B28, C29 fest.
Im Endeffekt soll es so sein, wie du in deinem letzten Satz angedeutet hast: im Bereich, der durch dein Makro eingefügt wurde, sollen nach dem einfügen immer bestimmte Zellen geleert werden. Um bei den Beispielzellen zu bleiben so wie du schreibst immer die fünfte Zeile/zweite Spalte. Meine originaldatei ist größer und insb. mehrspaltiger als das Beispiel.
Was ich eigentlich möchte, ist, dass in demjenigen Zellbereich, der durch Deinen Code unterhalb eingefügt wurde, bestimmte Zellen geleert werden. Als Laie würde ich sagen, man muss den eben eingefügten Bereich selektieren und dann sagen: "leere in diesem Bereich die Zellen (2,2), (4,5), (7,9)". Diese Zeilen/Spaltenangaben sind momentan nur Dummies, da ich noch nicht genau weiß, welche Zellen es genau sein werden (die eingangs angefügte Datei ist nur ein vereinfachtes Beispiel meiner eigentlichen Datei, in Summe werden es wahrscheinlich 6 verschiedene Zellen sein, die geleert werden müssen).
Habe es hier nochmal versucht zu veranschaulichen, was ich genau möchte. Hoffe es wird dadurch verständlicher. https://www.herber.de/bbs/user/113199.xlsx
Danke und viele GRüße
Uwe

Sub Zeilen_kopieren() Dim loLetzte As Long With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Rows(loLetzte - 8 & ":" & loLetzte).Copy .Rows(loLetzte + 1) .Range(Cells(loLetzte, 2), .Cells(loLetzte, 3)).ClearContents End With End Sub

Hi Wolfgang,
danke für deine Antwort. Wie schon von Werner geschrieben, ist er der "Zurhilfeeilende" und ich der "Verzweifelte".
Was meinst du genau mit auskommentieren? Ich hatte versucht, "loletzte" durch die Zeilennummer zu ersetzen, in der ich eine Zelle leeren möchte, also

.Range(Cells(2, 2), .Cells(2, 3)).ClearContents

... allerdings ohne Erfolg. Was ich eigentlich möchte, ist, dass in demjenigen Zellbereich, der durch Werners Code unterhalb eingefügt wurde, bestimmte Zellen geleert werden. Als Laie würde ich sagen, man muss den eben eingefügten Bereich selektieren und dann sagen: "leere in diesem Bereich die Zellen (2,2), (4,5), (7,9)". Diese Zeilen/Spaltenangaben sind momentan nur Dummies, da ich noch nicht genau weiß, welche Zellen es genau sein werden (die eingangs angefügte Datei ist nur ein vereinfachtes Beispiel meiner eigentlichen Datei).
Habe es hier nochmal versucht zu veranschaulichen, was ich genau möchte. Hoffe es wird dadurch verständlicher. https://www.herber.de/bbs/user/113199.xlsx
Danke und viele GRüße
Uwe

Beliebteste Forumthreads (12 Monate)

letzte Zeile finden und kopieren + weitere Zeilen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte Zeile finden und kopieren + weitere Zeilen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread