AW: Eine Mustersuche in Texten...
18.11.2016 14:21:44
Anton
Hallo Simone,
hier mein Lösungsvorschlag, hab es über zwei Funktionen gelöst:
Function PosErsteZiffer(rngZelle As Range) As Long
Dim lngZ As Long
Application.Volatile
For lngZ = 1 To Len(rngZelle)
Select Case Mid(rngZelle, lngZ, 1)
Case 0 To 9
PosErsteZiffer = lngZ
Exit Function
End Select
Next lngZ
End Function
Function AnzahlZiffern(rngZelle As Range) As Integer
Dim intZ As Integer
Application.Volatile
For intZ = 1 To Len(rngZelle)
If Mid(rngZelle, intZ, 1) Like "#" Then
AnzahlZiffern = AnzahlZiffern + 1
End If
Next intZ
End Function
Die Funktionen in ein Modul einfügen. Wenn Deine Daten ab Spalte A1 stehen dann in Spalte B1
=PosErsteZiffer(A1)
und ab Spalte C1
=AnzahlZiffern(A1)
eintragen. Nun hast Du Start- und Endpunkt des Zahlenblocks. Ab Spalte D1 mit
=TEIL(A1;B1;C1)
den Zahlenblock und ab Spalte E1 mit
=LINKS(A1;LÄNGE(A1)-LÄNGE(D1))
den Namen extrahieren.
Etwas umständlich aber funktioniert :)
VG Anton