Laufzeitfehler
13.04.2003 19:18:48
WilhelmR.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim BBBereich As Range
Set BBBereich = Range("B14:B51")
If Intersect(ActiveCell, BBBereich) Is Nothing Then Exit Sub
Dim intZahl As Double
intZahl = Sheets("PUR Schalen").Range("L10").Value
Application.EnableEvents = False
Target = WorksheetFunction.RoundUp(Target / intZahl, 0) * intZahl
Application.EnableEvents = True
End Sub
Dieser Teilungsfaktor wird über intZahl in die Formel übernommen.
Problem: Wenn ich nun meine Eingabe in Spalte B löschen will, geht das nur wenn ich Zelle nach Zelle einzeln lösche.
Markiere ich meine Eingabe z.B. B15 bis B20 und lösche die Markierung per "entf", erhalte ich eine Fehlermeldung: Laufzeitfehler 13; Typen unverträglich.
Danach läuft auch das Makro nicht mehr, bis zu einem Neustart der Datei.
Gibt es dafür eine Erklärung bzw. Lösung?
Wilhelm