Worksheets_Change -> Fehler 13
04.01.2013 19:07:22
ing.grohn
frohes neues Jahr und viel Gesundheit!!
ich hab ein kleines Problem:
in einer Tabelle wird über WorkSheets_Change in Spalte C und d eine Formel eingetragen, wenn in _ Spalte B ein Wert eingetragen ist und Spalte C leer ist:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value "" And Target.Offset(0, 1).Value = "" Then
Application.EnableEvents = False
Target.Offset(0, 1).Formula = "=Strecke(RC[-1])"
Target.Offset(0, 2).Formula = "=IF(RC[-2]"""",streckekm(RC[-2]),"""")"
Application.EnableEvents = True
End If
End If
End Sub
das funktioniert wies soll
Aber!
wenn ich in Spalte B mehre Zellen markiere und dann entferne (Del-Taste) läuft die Zeile "If Target.Value "" And Target.Offset(0, 1).Value = "" Then" in die Fehlermeldung 13 (Typen nicht verträglich).
Wie kann ich das abstellen?
vielen Dank für Eure Hilfe
Mit freundlichen Grüßen
Albrecht
Anzeige