mein Anliegen :
Die zu benötigten Dateien heissen: "beispiel test (12321).xls"
ich möchte nun nur die in klammern stehende zeichen als extra string haben.
Wie mache ich dass?
Könnt Ihr mir dazu tipps geben Bitte.
Viele Grüße
Merlin
=WENNFEHLER(TEIL(A1;FINDEN("(";A1)+1;FINDEN(")";A1)-FINDEN("(";A1)-1);"")
Gruß,
Sub aaa()
Dim x As String
x = "beispiel test (12321).xls"
x = Mid(x, InStr(x, "(") + 1)
x = Left(x, InStr(x, ")") - 1)
MsgBox x
End Sub