Danzig. So hieß doch auch ne Band, richtig?
"Mother" is mir da in Erinnerung, aber naja egal.
Ich würde mit RegEx rangehen.
Ich schmeiß einfach mal einen Code in die Runde, wenn Fragen dazu sein sollten, einfach melden:
Option Explicit
Sub Main()
Dim sSuchstring As String
Dim mc As Object
Dim item As Object
sSuchstring = "(GKV), Leistungen nach § 13b UStG ohne Vorsteuerabzug P S/AV 3153 Erhaltene Skonti aus Leistungen, 'um diese Nummern geht es"
'*** Reguläre Ausdrücke
With CreateObject("VBScript.Regexp")
'*** Zahlen in einer Collection sammeln
.Pattern = "[0-9]+"
.Global = True
'*** Prüfen, ob Ergebnis zustandekommt
If .Test(sSuchstring) = True Then
'*** Collection anlegen und Zahlen sammeln
Set mc = .Execute(sSuchstring)
'*** alle Zahlen durchlaufen (<== bzw hier, in Spalten schreiben)
For Each item In mc
Debug.Print item
Next
End If
End With
End Sub
|