Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hi Karin,

jetzt wo Du es schreibst....stimmt ist logisch ...

Vielen Dank für deine Mühe.

Gruß
Markus

Hallo Leute,

versuche mich seit gestern mit VBA auseinander zu setzten. Habe hier einen Code der eigentlich funktioniert aber ein Fehler ist scheinbar noch drin. Zum Ablauf : Wenn ich im Arbeitsblatt1 (Projekte) in der Spalte E einen Dropdown mit Erledigt auswähle, soll
die Zeile in das Arbeitsblatt 2 (erledigte Projekte) verschoben werden. Dieses macht es auch, aber leider im in die gleiche Zeile. Hätte es aber lieber fortlaufend in die nächstfreie Zeile verschoben.

hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Erledigte Zeile in Blatt 1
'ausschneiden und in Blatt 2 - in nächste freie Zeile einfügen
'
Dim Zeile As Long
Set Target = Intersect(Target, Range("E1:E2000"))
If Target Is Nothing Then Exit Sub
If Target = "Erledigt" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 9)).Copy _
Destination:=Sheets("erledigte Projekte").Cells(Rows.Count, 1).End(xlUp).Offset(4, 0)
Target.EntireRow.Delete
End If
End Sub

Vieleicht habt ihr da einen Lösungsansatz für mich..

Gruß
Markus