Office: Strings: Alle Zeichen vor einem bestimmten Zeichen löschen

Hallo zusammen,

ich habe mal wieder ein Problem bei dem ich nicht weiterkomme...


Und zwar suche ich mit Hilfe einer InputBox nach Wörtern in einer bestimmten Spalte.
Da das Wort sich "noch" nicht im gewünschten "Format" befindet, muss ich dies mit VBA bearbeiten.

Beispiel:

abc[hallo_123|def]

Gesucht soll werden: hallo_123
Das heißt.
1. Alle Zeichen Vor "[" sollen gelöscht werden, inklusive "[" (Die Anzahl der Zeichen vor "[" ist variabel)
2. Alle Zeichen nach "|" sollen gelöscht werden, inklusive "|"
und

Leider bekomme ich Schritt 1 nicht hin ...

Schritt 2 sieht folgendermaßen aus:

PHP:

         If InStr(suchwort, "|") <> 0 Then
suchwort = VBA.Left(suchwort, VBA.InStr(1, suchwort, "|") - 1)  ab "|" werden alle zeichen gelöscht
End If


:)

 

Hi,

einen ähnlichen Fall hatten wir schonmal, deshalb versuchen folgendes:

VBE (Alt+F11) -> rechtsklick Modul anlegen -> den Code in das Modul - speichern.

A1: Hier steht dein bisheriger Wert
A2: =getTeilworte(A1;"[";"|")


Code:

 

Code:

 

ach ja, geht auch mit felxiblen "Trennern":
Code:

 

Vielen Dank für die Antworten *Smilie

Mein Code sieht vereinfacht nun so aus:

PHP:

         Sub Suchen()
MsgBox Suchwort(strWort:=InputBox("was Wird gesucht?", "Eingabe:"), strVon:="[", strBis:="|")
End Sub

Function Suchwort( _
ByRef strWort As String, _
Optional ByRef strVon As String = "", _
Optional ByRef strBis As String = "") As String
Suchwort = Split(Split(strWort, strBis)(0), strVon)(UBound(Split(strWort, strVon)))
End Function


 

Ach wie schön geht das doch mit Power Query ...
"Text zwischen den Trennzeichen" und das Ergebnis ist gegeben. *cool.gif*

 

Code:

Code:

 

Dann bitte erklär mir mal wie *confused.gif*

Bekomme immer mehr das Gefühl mich damit beschäftigen zu müssen. :thinkaboutit:


edit:
Zefix!

Über Transformieren -> Spalte teilen -> Nach Trennzeichen


Sachen gibts ...

 

Vielen Dank *Smilie

 

Moin,
in Excel 2019/365 gibt es unter Transformieren|Gruppe Textspalte-Extrahieren die Auswahlmöglichkeit "Text zwischen den Trennzeichen" ... Echt Luxus! *wink.gif*

Ob dieses Feature bereits in früheren Versionen verfügbar ist, weiß ich im Moment nicht. In jedem Fall geht da aber auch Text nach Trennzeichen (extrahieren) und Text vor Trennzeichen, dann müssen keine (überflüssigen) Spalten gelöscht werden. *wink.gif*

 

Also einen kleinen Mackel hab ich grad entdeckt beim testen..

und zwar sobald ich z.B. Suchbegriffe habe wie:
|abcd[hallo_123|def Durch bearbeiten soll: hallo_123 herauskommen

bekomme ich die Fehlermeldung:"Index Außerhalb des gültigen Bereichs"

Liegt wahrscheinlich am vorangestellten "|"

Wie kann man das überlisten?

PHP:

         Sub Suchen()

Dim feldname As String




feldname = Suchwort(strWort:=InputBox("Was Wird gesucht?", "Eingabe:"), strVon:="[", strBis:="|")

End Sub

Function Suchwort( _
ByRef strWort As String, _
Optional ByRef strVon As String = "", _
Optional ByRef strBis As String = "") As String
Suchwort = Split(Split(strWort, strBis)(0), strVon)(UBound(Split(strWort, strVon)))
End Function


 

Moin,

oder ganz einfach als Formel:
Code:

Viele Grüße
derHöpp

 

Power Query *cool.gif*

Trennzeichen von äußerst rechts

 

Mit der Kraft Deiner Gedanken, die Du bei der Bereitstellung aussagekräftiger Musterdaten gespart hast?

Code:

 

Perfekt Vielen Dank *biggrin.gif* *biggrin.gif*