Hallo Experten
ich brauche hilfe mit einer VBA Programmierung. Ich habe mehrere Zeilen mit einem Text in Excel, das sieht so aus:
A1: „Beispiel (xxx) Beispiel“
A2: „Beispiel (yyy) Beispiel“
A3: „(ZZZ) Beispiel“
aus diesen Texten möchte ich nun alles zwischen den Klammer und inklusive den Klammern rauslöschen.
Ich hoffe es ist so verständlich genug und mir kann jemand helfen.
Gruß
Sascha
Sub löschen()
Dim str As String
strString = Cells(RowIndex:=3, ColumnIndex:=1).Text
strString = Left(strString, InStr(1, strString, "(") - 1) & \_
Right(strString, Len(strString) - InStr(1, strString, ")"))
MsgBox strString
End Sub
Mit dem Befehl Cells().Text ließt du aus was in der ausgewählten Zelle steht. left holt sich den linken Teil des Subs bis „)“ - 1 und right den rechten, ab „)“. Wobei man erst die Stelle des gewünschten Zeichens berechnen muss, und dann von der Gesamtlänge (len) des Strings abziehen muss. und msgbox gibt dann aus.
Hallo Artur,
Sub löschen()
Dim str As String
strString = Cells(RowIndex:=3, ColumnIndex:=1).Text
strString = Left(strString, InStr(1, strString, „(“) - 1)
_
Right(strString, Len(strString) - InStr(1, strString,
„)“))
MsgBox strString
End Sub
und right den rechten, ab „)“. Wobei man erst
die Stelle des gewünschten Zeichens berechnen muss, und dann
von der Gesamtlänge (len) des Strings abziehen muss. und
msgbox gibt dann aus.
richtig, ich erspar mir aber diese Rechnerei und nehme Mid und lasse da den dritten Parameter weg:
MsgBox Mid(Range(„A1“), InStr(Range(„A1“), „)“) + 1)
Und, du kannst ja machen was du willst, ich kann dir nur empfehlen immer Option Expilizit zu benutzen.
Gruß
Reinhard