ich hab ein kleines Problem mit einem Code. Wenn ich ein Projekt abgeschlossen ist wird in Zeile 76 ein x eingetragen. Diese Eingabe erfolgt über ein Userforum. Das x wird eingetragen durch das Userforum. Jedoch wird das Projekt nicht im "Main sheet" gelöscht und übertragen in die "closed Projects". Trage ich das x manuell ein funktioniert alles wie gewünscht. anbei findet ihr meinen Code, vielleicht kann mir jemand helfen.
Gruß Jens
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 76 Then
If Target = "x" Then
Sheets("Main sheet").Rows(TRow).copy
Sheets("Closed Projects").Cells(Sheets("Closed Projects").Cells(Rows.Count, 2).End( _
xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Main sheet").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub