Hallo Zusammen
Ich versuche mich gerade etwas mit VBA auseinander zu setzen und scheitere kläglich da mir sämtliche basics fehlen.
Aus einem Arbeitblatt (Projekte in Arbeit) möchte ich eine Zeile in ein neues Arbeitsblatt (Projekte abgeschlossen) verschieben sobald
in Spalte F "100%" eingetragen wird. Das Blatt (Projekte abgeschlossen) möchte ich erst aber der 3. Zeile befüllen lassen, da ich in Zeile 1 und 2 diverse Informationen eingetragen habe.
Mein Code funktioniert momentan nur wenn ich in Spalte F "erledigt" eintrage und das andere Arbeitsblatt leer ist.
Könnt ihr mir bitte helfen?
Gruss Benjamin
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZielZeile As Long
ZielZeile = Sheets("Projekte abgeschlossen").Cells(Rows.Count, 1).End(xlUp)
Set Target = Intersect(Target, Range("F1:F1000"))
If Target Is Nothing Then Exit Sub
If Target = "erledigt" Then
Target.EntireRow.Copy Destination:=Sheets("Projekte abgeschlossen").Cells(ZielZeile + 1, 1)
Target.EntireRow.Delete
End If
End Sub
|