|
Guten Tag;
Ich habe einen Code gefunden der auch ganz gut funktioniert.
Leider überschreibt er mir aber immer die letzte Zeile anstatt darunter einzufügen.
"Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 18 Then 'Änderung in Spalte R
If Target.Value <> "" Then
lrow = Sheets("Auf Areal").Range("A65536").End(xlUp).Row '1. freie Zeile wird ermittelt
Range("A" & Target.Row & ":S" & Target.Row).Cut Sheets("Journal").Range("A" & lrow & ":S" & lrow)
End If
End If
End Sub"
Vielleicht kann jemand von euch den Fehler finden...
Danke im Voraus
Gruss
|