VBA Wert aus Zelle auslesen

[Korain]

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

[Ralf A]

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)