[VBA] Laufzeitfehler '6': Überlauf

[Rabe]

Hi,

mit diesem Code ändere ich den Zellinhalt:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Target.Column = 4 Or Target.Column = 10 Then
      If Not IsEmpty(Target) Then oldValue = Asc(Target)
   End If
End Sub

Wenn ich aber nun mehrere Spalten oder Zeilen markiere, kommt die Fehlermeldung:
Laufzeitfehler '6': Überlauf
in der Zeile mit dem Exit Sub

Wie kann ich das verhindern / umgehen? Ich dachte, diese Zeile ist genau zur Verhinderung solcher Fehler da.

[Jonas0806]

Hi Ralf,

.Count ist ein potentieller Fehler. Mit .CountLarge solltest Du das Problem in den Griff bekommen.

[Rabe]

Hi,

danke, jetzt tritt der Fehler momentan nicht mehr auf. Das war es vermutlich.