Office: (Office 2019) Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Hallo,

kann mir jemand bitte bei folgenderm Helfen.
Habe etwas ähnliches gefunden was ich brauche, nur noch eine kleine Änderung ist notwendig.

Aufgabe:
Es wird geprüft, ob in Spalte Q ein Wert enthalten ist. Wenn ja, wird die komplette Zeile in das Blatt Target übernommen.

Problem:
Das übernommene im Blatt Target soll untereinander geschrieben werden und nicht überschrieben werden beim nächsten mal.

Hoffe ich konnte es richtig erklären.

Danke im Voraus !




Sub CopyValues()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 17).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, 17)) Then
lRowT = lRowT + 1
Worksheets("Target").Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End Sub

 

"Hoffe ich konnte es richtig erklären."
Nicht erklären, sondern Datei mit Wunschlösung posten.

 

Hi,

Du musst schon die Blätter alle mit referenzieren, da sonst alles im aktiven Blatt ermittelt wird.

 

Hier ist die Datei,

wenn mann öfters auf den Button klickt sollte es untereinander auf der Target Seite eingefügt werde.
Hoffe jetzt konnte ich es etwas verständlicher machen.

Danke

 

Hi plisno,

ersetze mal lRowT = 1 durch

lRowT = Worksheets("Target").Cells(2000, 17).End(xlUp).Row

Die 2000 musst du ggfs. anpassen

Gruß
Jürgen