Hallo Zusammen,
ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then 'Änderung in Spalte E
If Target.Value <> "" Then
lrow = Sheets("aaaa").Range("E65536").End(xlUp).Row + 1 '1. freie Zeile wird ermittelt
Range("A" & Target.Row & ":I" & Target.Row).Cut Sheets("aaaa").Range("A" & lrow & ":I" & lrow)
End If
End If
End Sub
Status:
Mit diesem Code erreiche ich das bei einer Bedingung (hier Änderung in Spalte E) die Zeile in einem anderen Sheet reinkopiert werden.
Da aber zum Teil sehr große Lücken im Tabelle 1 damit entstehen möchte ich das die anderen Zeilen, bei dem die Bedingung nicht zutrifft, fortlaufend aufgerückt werden sodass ich zwischen den einzelnen Zeilen keine Lücken habe.
jemand eine Idee wie es gehen könnte?
Danke"!
