ich habe hier im Forum einen Beitrag gefunden (12 Jahre alt :D) zu dem ich eine Frage habe.
Wie lässt sich die untere Funktion so abändern, dass nicht der Inhalt der letzten Klammer, sondern der Inhalt der ersten Klammer kopiert wird?
Sub TextKlammern()
Dim wks As Worksheet, lngZeile As Long, strKlammerText As String
Const lngSpalteOrig = 1 'Spalte A
Const lngSpalteKlammer = 2 ' Spalte B
Set wks = ActiveSheet
With wks
For lngZeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
strKlammerText = TextausletzterKlammer(.Cells(lngZeile, lngSpalteOrig).Value)
If strKlammerText "" Then
.Cells(lngZeile, lngSpalteKlammer) = strKlammerText
.Cells(lngZeile, lngSpalteOrig) = _
Replace(.Cells(lngZeile, lngSpalteOrig), "(" & strKlammerText & ")", "", 1)
End If
Next lngZeile
End With
End Sub
Function TextausletzterKlammer(strText As String) As String
If InStr(1, strText, ")") > 0 And InStr(1, strText, "(") > 0 Then
TextausletzterKlammer = Mid(strText, InStrRev(strText, "(", -1) + 1, _
InStrRev(strText, ")", -1) - InStrRev(strText, "(", -1) - 1)
End If
End Function
Viele Grüße