besteht die Möglichkeit eine oder mehrere Zahlen aus einer Variable a) zu erkennen b) in einer anderen Variable zu speichern/ zu isolieren?
Variable = ("PLZ 76000 Hambuger Str. 17/23")
Gruß
Darren
Sub t()
Dim ar As Variant
ar = Split("PLZ 76000 Hambuger Str. 17/23", " ")
MsgBox ar(1)
End Sub
cuSub t()
Dim strEingabe As String, strText As String, strZahlen As String
Dim lngZahlen As Long, i As Integer
strEingabe = "PLZ 76000 Hambuger Str. 17/23"
For i = 1 To Len(strEingabe)
If IsNumeric(Mid(strEingabe, i, 1)) Then
strZahlen = strZahlen & Mid(strEingabe, i, 1)
Else
strText = strText & Mid(strEingabe, i, 1)
End If
Next i
MsgBox strText
MsgBox CLng(strZahlen) ' CLng wandelt Text in Zahl um
End Sub