Office: String nach bestimmten Zeichen abschneiden?

asphalt · 26. November 2006

Hallo,
Kann mir jemand bitte sagen, wie ich von einem String einen bestimmten Teil extrahiere.
Der Inhalt der Variable ist immer folgendermassen aufgebaut.
Code:

= Name--LS-Nachname
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

--LS- ist immer vorhanden und ich möchte jetzt den Teil "Name" extrahieren.

Danke

:)

losgehts · 27. November 2006

Hi Asphalt!
Die beiden Codes schreiben Dir die gesuchten Werte in den Direktbereich: Code:

Sub trennen()
Dim Str As String
Str = "Name--LS-Nachname"
Debug.Print Left(Str, InStr(Str, "-") - 1) '"Name"
Debug.Print Right(Str, Len(Str) - InStr(Str, "-") - 4) '"Nachname"
End Sub

Sub mitarray()
Dim Arr() As String
Dim Str As String
Str = "Name--LS-Nachname"
Arr = Split(Str, "-")
Debug.Print Arr(LBound(Arr))
Debug.Print Arr(UBound(Arr))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist da etwas für Dich dabei?

asphalt · 28. November 2006

Hallo Losgehts :-)
Danke für deine hilfe, ich denke aber dass deine Lösungen für mich nicht passen, ich muss den code erst testen. denn der Name könnte auch einen Bindestrich haben. Ich müsste --LS- verwenden und den rest davon Abschneiden, einmal vorne und einmal hinten.
Danke

jinx · 28. November 2006

Moin, asphalt,

dann solltest Du Dir die InStr-Funktion im Objektkataog einmal näher ansehen: Gibt einen Wert vom Typ Variant (Long) zurück, der die Position des ersten Auftretens einer Zeichenfolge innerhalb einer anderen Zeichenfolge angibt.

von Excel97

Dim SuchText, SuchZeichen, Pos1
Suchtext ="XXpXXpXXPXXP" ' Zu durchsuchende
' Zeichenfolge.
SuchZeichen = "P" ' Nach "P" suchen.

' Reiner Textvergleich ab Position 4. Das Ergebnis ist 6.
Pos1 = Instr(4, Suchtext, SuchZeichen, 1)

' Binärer Vergleich ab Position 1. Das Ergebnis ist 9.
Pos1 = Instr(1, Suchtext, SuchZeichen, 0)

' Standardmäßig wird der Vergleich binär durchgeführt
' (wenn das letzte Argument nicht angegeben wird).
Pos1 = Instr(Suchtext, SuchZeichen) ' Liefert 9.

Pos1 = Instr(1, Suchtext, "W") ' Liefert 0.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aus dem gelieferten Startwert und der Länge der Suchbegriff lassen sich dann die anderen Werte durch Textfunktionen Links/Left bzw. Teil/Mid und Rechts/Right ableiten...

Office: String nach bestimmten Zeichen abschneiden?

String nach bestimmten Zeichen abschneiden?

String nach bestimmten Zeichen abschneiden?

String nach bestimmten Zeichen abschneiden?

String nach bestimmten Zeichen abschneiden? - Similar Threads - String bestimmten Zeichen

Erlaubte Zeichen an bestimmten Stellen von Strings

Strings: Alle Zeichen vor einem bestimmten Zeichen löschen

Anzahl bestimmter Zeichen in String ermitteln

String nach bestimmten Zeichen abschneiden

String auslesen bis zu einem bestimmten Zeichen

VBA: Spalten einblenden, wenn in Eingabezelle bestimmter String

Bestimmte Zeichen im String entfernen bis Bedingung erfüllt