Kopie in die nächste freie Zeile
09.02.2022 15:25:19
Juli
Ich tüftel gerade (als blutiger Anfänger) an folgendem Problem:
Aus Tabelle1 werden, anhand von Werten (Ja oder Nein) in Spalte 8 & 9, ganze Zeilen in Tabelle6 kopiert und aus Tabelle1 gelöscht.
Das funktioniert soweit auch fehlerfrei.
ABER:
Da ich als Ziel ja fest "A2" definiert habe, überschreibt er natürlich immer die vorherigen Einträge dort.
Wie kann ich das Ziel "A2" jetzt so abändern, dass die neuen Zeilen erst in die nächste freie Zeile in Tabelle6 kopiert werden?
Sub ZeilenÜbertragenPMA()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim rngBereich As Range
With Tabelle1
Set rngBereich = .Rows(2)
lngZeileMax = Cells(Rows.Count, 1).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
If .Cells(lngZeile, 8).Value = "Ja" And .Cells(lngZeile, 9).Value = "Nein" Then
Set rngBereich = Union(rngBereich, .Rows(lngZeile))
End If
Next lngZeile
rngBereich.Copy Destination:=Tabelle6.Range(A2)
End With
'(Hier steht jetzt noch die Löschroutine)'
End Sub
