Hallo,
ich habe folgenden Code (als Anfänger) geschrieben:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 10 And Target.Value = "Erledigt" Then
Range(Worksheets(1).Cells(Target.Row, 1), _ Worksheets(1).Cells(Target.Row, 14))
OldRow.Select
Selection.Cut
Dim Workshet As Range: Set Workshet = _ Worksheets("Erledigt").Range("A3", "A20000")
Dim Cell As Range
Dim counter As Integer: counter = 3
Dim NewPlace As Range
For Each Cell In Workshet
If Cell.Value = "" Then
Worksheets("Erledigt").Activate
Worksheets("Erledigt").Cells(counter, 1).Select
Exit For
End If
counter = counter + 1
Next
ActiveSheet.Paste
End If
End Sub
Ich will damit bezwecken das bei Änderung einer Listbox auf den Eintrag "Erledigt" die betroffene Zeile in das nächste Worksheet verschoben wird.
Ich bekomme jedoch immer den Fehler 13 "Typen unverträglich" bei "If Target.Column...": , wobei die sub aber korrekt ausgeführt wird.
Hat Jemand eine Ahnung woran das liegen könnte ?
Vieln Dank im Voraus
Homer
|