function liefert Laufzeitfehler 6
06.10.2020 16:28:53
Stefan
ich weiß mal wieder nicht weiter.
die nachfolgende Function liefert mir aus einem String die darin enthaltenen Zahlen
Function hausnummer(rngzelle As Range) As String
Dim lngZ As Long
Application.Volatile
For lngZ = 1 To Len(rngzelle)
Select Case Mid(rngzelle, lngZ, 1)
Case 0 To 9
hausnummer = hausnummer & Mid(rngzelle, lngZ, 1)
Case Else
End Select
Next lngZ
If hausnummer = "" Then hausnummer = "0"
End Function
Aufgerufen wird sie mit dieser Befehlszeile aus einem Makro:
hausnr = CInt(hausnummer(.Range("E" & z)))
Leider liefert sie nicht immer, sondern meldet bei manchen übegebenen Zellinhalten Laufzeitfehler 6: Überlauf
Beispielweise bei dem folgenden Inhalt:
Papenstraße 123-125
Ich kann dezidiert mittels Einzelschritten verfolgen wie die Function nacheinander die Ziffern 123125 fehlerlos extrahiert, in hausnummer steht dann der string "123125" und sobald die Befehlszeile End
Function aufgerufen wird (also offensichtlich bei der Rückgabe des strings an das aufrufende _
Makro), kommt der Fehler.
irgendeine Idee, was da die Ursache ist ?