Monat: April 2017
-
Excel Funktion: Zahlen aus Zelle extrahieren
Der folgende VBA-Code gibt alle numerischen Zeichen einer Zelle zurück. Der Code kann in ein beliebiges Modul geschrieben und im Sheet als Zellfunktion aufgerufen werden. Zellfunktion Beispiel: =getzahl(A1) Function getzahl(zelle As Range) As String Text = zelle.Value Dim zahl As String zahl = „“ For i = 1 To Len(Text) If IsNumeric(Mid(Text, i, 1)) =…