Laufzeitfehler "13" / Typen unverträglich
10.10.2006 11:17:34
Thomas
Folgendes Problem:
In einem Sheet ist Folgender Code hinterlegt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("M17:M999")) Is Nothing Then
If LCase(Target) = "ok" Then
Target.Offset(0, -7).ClearContents
Target.Offset(0, -1) = "Erledigt"
Else
If LCase(Target) = "nok" Then
Target.Offset(0, -7).ClearContents
Target.Offset(0, -1) = "Retoure"
End If
End If
End If
End Sub
Wird nun ein Bereich markiert (B17:M17) und der inhalt gelöscht, bzw werden mehere Zeilen Inhalte eingefügt kommt Laufzeitfehler "13" Typen Unverträglich.
Wie kann ich bei solchen Aktionen den Laufzeitfehler umgehen?
Danke für eure Hilfe
Tom