'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

Public Function extract_qm(alter_Text As Range) As Variant
  pos = InStr(1, alter_Text.Text, "qm")
  extract_qm = "'qm'=?"
  If pos > 0 Then
    i = 1
    sz_space = True
    gefunden = False
    Do
      ziffer = Mid(alter_Text.Text, pos - i, 1)
      Select Case ziffer
        Case "0" To "9": i = i + 1
                         sz_space = False
                         'sind überhaupt noch weiter Zeichen da?
                         If i >= pos Then gefunden = True
         Case " ":
                  If sz_space Then
                    i = i + 1
                  Else
                    gefunden = True
                  End If
        Case ",", ".": gefunden = True 'evtl. Sonderbehandlung notwendig?
        Case Else: gefunden = True 'normaler Text
                   sz_space = False 'evtl keine Zahl vorhanden?
      End Select
    Loop Until gefunden
    extract_qm = CInt(Mid(alter_Text.Text, pos - i + 1, i - 1))
  End If
End Function
'Ausgabe:
'eine Zahl --> qm
'#WERT! --> Zahl nicht vorhanden oder falsch formatiert
'"qm=?" --> "qm" nicht im Text gefunden