Laufzeitfehler 13 Typen unverträglich
09.12.2013 17:48:11
Kleofaas
nachdem ich von Euch hervorragende Hilfe bei meiner letzten Anfrage erhalten habe, habe ich diesen (modifizierten) Code eingebaut:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" And Target = "VWNF" Then
If MsgBox("Verkauf mit Stützungsantrag?", _
vbYesNo + vbQuestion, "Frage") = vbYes Then
Target.Offset(0, 5) = "Ja"
Else
Target.Offset(0, 5) = "Nein"
End If
End If
End Sub
Er funktioniert einwandfrei, aber nun habe ich das Problem das ich bei dem Versuch einige Zellinhalte zu löschen (die am Code unbeteiligt sind) einen - Laufzeitfehler 13 Typen unverträglich - erhalten.Beim Debuggen ist die Zeile: - If Target.Address = "$C$6" And Target = "VWNF" Then -
markiert.