Office: Teilstring aus String auslesen

Hallo Leute kann mir jemand helfen.


Ich habe Ein string mit einträgen die durch Komma getrennt sind.
Jetzt möchte ich jeden Teilstring bis zum Komma auslesen.

und dann mit einem Neuen String vergleichen.

:)

 

HAllo

Versuch es mal so:
Option Explicit

Public Sub teest()
Dim strS As String
Dim SuchString As String
Dim L As Long
Dim Spl As Variant
strS = "trz,abc,efg,hijklmo,trz,testen,trz"
SuchString = "trz"
Spl = Split(strS, ",")
For L = 0 To UBound(Spl)
If Spl(L) = SuchString Then MsgBox "Gefunden nach dem " & L & " ten Komma"
Next
End Sub


ransi

 

Du gibst den Suchstring an.

Was in meinem string für ein eintrag steht ist mir nicht bekannt und wie land auch nicht, ich weiss nur das es durch komma getrennt ist.

 

Hallo Fusel80,

dann solltest du uns wissen lassen, woher dein String kommt und ebenso, woher der zu suchende Teilstring.

Gruß Peter

 

Hallo


Ähm...

und:

Wenn du nicht weisst was mit was verglichen werden soll, woher sollen wir das denn wissen ??

ransi

 

Code:

 

Hallo,

Kann mir jemand sagen wie ich aus einem String ein Teilstring der immer durch komma getrennt ist auslesen kann.Dabei möchte ich immer den string vor dem komma auslesen.

 

Hallo Fusel80,

so?

	A	B
1	Schmidt, Heinz	Schmidt

B1 : =LINKS(A1;FINDEN(",";A1)-1)

EDIT: Habe gerade erst deinen Beitrag vom Freitag gesehen. Warum machst du hier einen neuen Thread auf? Und was passt dir an den Antworten von ransi und extr3m nicht? Beides sind meiner Meinung nach passende Antworten auf deine Anfrage. Hast du die überhaupt ausprobiert?

Gruß Ingolf

 

Entweder InStr Function
vb@rchiv · Befehlsreferenz · InStr-Funktion
zusammen mit Mid Function
vb@rchiv · Befehlsreferenz · Mid-Funktion

oder die Split function
vb@rchiv · Befehlsreferenz · Split-Funktion

 

Kann mir jemand sagen was ich hier falsch mache und was noch fehlt?


Public Function StringBefüllen()
Dim MeinString As String
Dim n As Integer



n = 1
For n = 1 To 100
MeinString = MeinString + Tabelle1.Cells(n, 1) + ","
Next n
n = 1

For n = 1 To Len(MeinString)
Tabelle1.Cells(n, 2) = InStr(1, MeinString, ",")

Next n


End Function

 

Hallo Fusel80,

Ingolf hat völlig recht - warum ein neuer Thread, wenn Du zum selben Thema bereits einen offen hast und Dir dort eine Lösung vorgeschlagen wurde?

Schau doch mal, dass dort weiterdiskutiert wird, denn sonst gehen die Infos aus den dort vorgesclagenen Lösungen verloren. *Smilie

cu
myfake

 

Hallo Fusel80,

die Funktion InStr gibt nicht die Teilstrings zwischen den Kommas zurück, sondern die Positionen der Kommas. Da du in der Schleife die Suche immer bei der Position 1 beginnst (1. Parameter der Funktion InStr), wird hier jedoch immer die Position des ersten Kommas zurückgegeben. Und die wird dann in Spalte B geschrieben.

Im Übrigen bleibe ich bei meiner Kritik (siehe EDIT meiner ersten Antwort). Sieh dir doch das Makro von extr3m mal genau an. Er umgeht das Problem, dass InStr immer vom ersten Zeichen des Strings an sucht, und so immer das erste Komma findet, indem er den durchsuchten String bei jedem Schleifendurchlauf kürzt. Das heißt, der Teilstring vor dem ersten Komma wird (inklusive Komma) abgeschnitten, das zweite Komma wir somit zum ersten.

Und ransi hat dir eine sehr schöne Lösung mit der Split-Methode und einem Array geliefert.

Gruß Ingolf

 

Kann mir Jamand sagen was ich da falsch mach. Ich steh irgend wie auf der Leitung ind komm nicht weiter.

Mein Code

Public Function StringBefüllen()
Dim MeinString As String
Dim n As Integer



n = 1
For n = 1 To 100
MeinString = MeinString + Tabelle1.Cells(n, 1) + ","
Next n
n = 1

For n = 1 To Len(MeinString)
Tabelle1.Cells(n, 2) = InStr(1, MeinString, ",")

Next n


End Function

 

Hallo Fusel80,

der Code von ransi entspricht genau Deiner Eingangsfrage. Du musst nur gedanklich "SuchString" durch "Neuen String" ersetzen.

Was Du jetzt anbietest, ist eine Drehung um 180 Grad: Zusammensetzen eines Strings statt Ermitteln Teilstring. Fällt Dir das selber nicht auf?

 

Mir fällt das schon auf.Das ist absicht.Ich möchte Einträge aus Tabelle getrennt durch ein komma in ein string reinschreiben,dann möcht ich es auslesen.Das ist Übungshalber nur damit ich die Funktionen beherrsche später in meinem eigentlichen Programm sieht es etwas anders aus.