Clever-Excel-Forum

Hallo zusammen,

ich würde gerne einen Zahlenwert aus einer Zelle lesen, wobei die Zelle "A1" Text enthält zb:

"Excel ID 23 Word"

Ich möchte also nur die 23 auslesen. Dabei sollte berücksichtigt werden, dass der Zahlenwert 1-4 stellig sein kann.

Vielen Dank!
Korain

Hi Korain,

Du kannst folgende Funktion verwenden:

Code:
Function GibZahlAusZelle(rng As Range, Optional Trennzeichen As String = " ") As Integer

    Dim varArr, var, ret As Integer

    varArr = Split(rng.Value, Trennzeichen)

        For Each var In varArr

            If IsNumeric(var) Then ret = var: Exit For

        Next

    GibZahlAusZelle = ret

End Function

Du musst ihr den Range übergeben (Bsp.: A1) und falls nicht nach Leerzeichen getrennt werden soll, kann optional ein anderes Trennzeichen angegeben werden.

Aufruf in VBA:

Code:
Dim iZ as integer

iz = GibZahlAusZelle(Tabelle1.cells(1,1))

oder mit Komma als Trennzeichen:

Code:
Dim iZ as integer

iz = GibZahlAusZelle(Tabelle1.cells(1,1), ",")

oder als Funktion in einer Tabellenzelle: = GibZahlAusZelle(A1)

Korain

Ralf A