Hallo,

bei der Suche nach einem Makro, was in Klammern gesetzte Textteile ausliest (in einer Zelle kann mehr als 1 Klammerinhalt enthalten sein), habe ich das unten stehende Makro gefunden, was grds. gut funktioniert.

Allerdings haben die Textteile in den Klammern bei mir unterschiedliche Längen. Ich habe es bisher nicht hinbekommen, das Makro so anzupassen, dass der Inhalt der Klammern unabhängig von der Länge ausgelesen wird.

Hat jemand eine Idee?

Viele Grüße
Tom


Sub ZahlenExtrahieren()

Dim LRow As Long
Dim i As Integer
Dim Start As Integer
Dim Anz As Integer
Dim rngZelle As Range
Dim myString As String

LRow = Cells(Rows.Count, 1).End(xlUp).Row
'Hier Bereich anpassen
For Each rngZelle In Range("B2:B" & LRow)
Anz = Len(rngZelle) - Len(Replace(rngZelle, "(", ""))
myString = ""
For i = 1 To Anz
Start = WorksheetFunction.Find("#", _
WorksheetFunction.Substitute(rngZelle, "(", "#", i))
myString = myString & Mid(rngZelle, Start + 1, 5) & ", "
Next i
rngZelle.Offset(0, 1) = myString
Next rngZelle

End Sub