Typenfehler 13 beim Private Sub
21.06.2019 14:00:05
Leon.DerProf
ich muss wieder zu Wort melden, weil ich echt nicht mehr weiterweiß.
Ich habe folgenden Befehl in den Editor eines Tabellenblattes hinzugefügt.
Es funktioniert perfekt.
Private Sub Worksheet_Change1(ByVal Target1 As Range)
If Target1.Column = 1 And Target1 = "" Then
Application.EnableEvents = False
Target1.FormulaLocal = "=ZEILE()-2"
Application.EnableEvents = True
End If
End Sub
Nach dem selben Prinzip möchte ich diese Funktionalität in ein anderes Tabellenblatt übertragen.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target = "" Then
Application.EnableEvents = False
Target.FormulaLocal = "=ZEILE()-4"
Application.EnableEvents = True
End If
End Sub
Beim fettmarkierten Teil wird ein Typenfehler angezeigt "Typen unversträglich".Ich weiß echt nicht, woran das liegen könnte.