Laufzeitfehler 13
23.10.2005 18:37:46
Lorenz
Wenn bei Variante eins mehrere Zellen markiert sind und z.B. Entf-Taste(Inhalte löschen)gedrückt wird, so erscheint Visual Basic Fehler 13 "Typen unverträglich"
Vielleicht sind die Überlappungsbereiche schuld?!? Weil in der Variante zwei passiert dieser Fehler nicht.
Hat vielleicht wer `ne Lösung parat?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
1.Variante
If Target.Row >= 233 And Target.Row <= 254 And Target.Column = 114 Then
With Target.Offset(0, -15)
.Value = "=StdMulti"
.Value = .Value
If .Value = "0" Then .Value = ""
End With
With Target.Offset(0, 4)
.Value = "=Tag_Summe"
.Value = .Value
If .Value = "0" Then .Value = ""
End With
With Target.Offset(0, 3)
.Value = "=SAP"
.Value = .Value
If .Value = "0" Then .Value = ""
End With
End If
2.Variante
If Target.Row >= 6 And Target.Row <= 89 Then _
Rows(Target.Row).Calculate
Select Case Target.Column
Case 6, 9, 12
With Target.Offset(0, 1)
.Value = "=Zeig_Art1"
.Value = .Value
End With
Case 14
With Target.Offset(0, 1)
.Value = "=Zeig_Art2"
.Value = .Value
End With
end if
End Sub
Grüsse
Lorenz