PDA

Vollständige Version anzeigen : Zeichenfolge in Zelle suchen, wenn gefunden: Rest in andere Spalte


FrankAs
18.08.2017, 10:32
Ich möchte eine Zelle (Spalte D) nach einer ganz bestimmten Zeichenfolge durchsuchen,
und wenn die Zeichenfolge gefunden wurde, den Rest der Zelle (alles nach dieser
Zeichenfolge) in Zelle Spalte E kopieren.

Beispiel:

Ich suche nach der Zeichenfolge "fs"

Zelle D hat folgenden Inhalt:

{rtf1ansideff0{fonttbl{f0fnilfcharset0 Tahoma;}}viewkind4uc1pardlang1031f0fs18 - polierenparpar}

Bei erfolgreicher Suche (hier z.B. Zeichenfolge in Stelle 87 gefunden) möchte ich den Rest der Zelle
(Position + 6 / hier also ab Stelle 93) in Spalte E kopieren.

Wie kann ich das umsetzen?

Anmerkung: Ich bin absoluter Neuling in Sachen VBA, deshalb wären ausführliche Antworten echt klasse
(inkl. erforderlicher Deklarationen etc.). Vielen Dank.

feliweb
18.08.2017, 10:40
Hallo Frank,


geht auch ohne VBA

in E1:



=WECHSELN(D1;"fs";"")

jack_D
18.08.2017, 10:50
Moin Moin,

wenns mit VBA sein soll dann wäre das eine Variante:
Option Explicit

Sub TrennSplit()

Dim Anfang As Long
Dim Ende As Long
Dim Zeile As Long
Dim Suchstring As String

Anfang = 1 'Anfang definieren
Ende = 2 'Ende definieren
Suchstring = "fs"

With Worksheets("Tabelle1")
For Zeile = Anfang To Ende
If .Cells(Zeile, 4) <> "" Then
.Cells(Zeile, 5) = Mid(.Cells(Zeile, 4), _
InStr(.Cells(Zeile, 4), Suchstring) + 6, _
Len(.Cells(Zeile, 4)) - InStr(.Cells(Zeile, 4), Suchstring) + 6)
End If
Next Zeile
End With

End Sub


btw. die Zeichenfolge "fs" findet es bei mir an Position 74 NICHT an 87


Grüße

FrankAs
18.08.2017, 11:00
Hi feliweb,

danke für den Tipp; das war leider nicht das, was ich umsetzen möchte.
Aber jack_D hat wohl soeben etwas Passendes eingestellt.

Gruß

Frank

FrankAs
18.08.2017, 11:14
Hallo jack_D,

ich bin begeistert! So funktioniert das exakt, wie ich es brauche.
Nun habe ich noch ein paat Feinheiten umzusetzen, aber das bekomme ich auch noch hin.

Super! 1000 Dank!

LG

Frank

feliweb
18.08.2017, 11:38
Hi,

ok. Aus reinem Interesse für mich:

Wo liegt denn bei dem Ergebnis ein Unterschied?

Übersehe ich da was?

jack_D
18.08.2017, 21:07
Moin Moin.

Danke für die Rückmeldung.

Zu deiner Frage.:
Das Ergebnis ist halt ein anderes wie das was du ausweißt.
Du hast dich wahrscheinlich nur verzählt :-)

Wenn du von Position 1 nach "fs" zählst kommt man halt nur auf 74 stellen ...


Grüße