Zelle durchsuchen

Bild

Betrifft: Zelle durchsuchen
von: Max
Geschrieben am: 11.08.2015 14:16:58

Hallo Leute!
Gibt es eine Möglichkeit eine Zelle nach einem Ausdruck z.B. "NJS" zu durchsuchen und bei einem Treffer die Zelle mit "NJS" zu überschreiben und bei keinem Treffer die Zelle mit "BJS" zu überschreiben.
In der Zelle steht sowas wie : "777x098544 LODFH NJS KL" drin. Das Vorhandensein von "NJS" ist mir lediglich die wichtigste Information.
Komme leider nicht weiter.
Danke für die Hilfe!

Bild

Betrifft: AW: Zelle durchsuchen
von: selli
Geschrieben am: 11.08.2015 14:22:38
hallo max,
hat excel alles schon on board.
suchen und ersetzen.
gruß
selli

Bild

Betrifft: AW: @Selli
von: Bernd
Geschrieben am: 11.08.2015 14:24:28
Hi,
und wie schreibt Excel ansonsten BJS hinein?
Würde mich auch intressieren, Danke
mfg Bernd

Bild

Betrifft: AW: @Selli
von: selli
Geschrieben am: 11.08.2015 14:28:32
hallo bernd,
wie so oft steckt der teufel im detail.
habe doch glatt übersehen, dass bei keinem treffer geschrieben werden soll.
schullijung.
gruß
selli

Bild

Betrifft: dann so..
von: selli
Geschrieben am: 11.08.2015 14:36:54
=WENN(ISTFEHLER(FINDEN("NJS";A1));"BJS";"NJS")
in einer hilfsspalte
gruß
selli

Bild

Betrifft: AW: sag ich ja, LOL owT
von: Bernd
Geschrieben am: 11.08.2015 14:38:28


Bild

Betrifft: AW: Zelle durchsuchen
von: Bernd
Geschrieben am: 11.08.2015 14:32:59
Hi,
teste mal:
=WENN(ISTFEHLER(FINDEN("NJS";D2));"BJS";"NJS")
mfg Bernd

Bild

Betrifft: AW: Zelle durchsuchen
von: JoWE
Geschrieben am: 11.08.2015 14:39:49
Hallo Max,
vermutlich würde sich die Frage bei nur einer einzelnen Zelle nicht stellen?
Und die Zelle soll tatsächlich überschrieben werden?
Dann vielleicht so?

Sub ersetze_zeichenkette_in_string()
    Dim ze As Range
    Dim sb As String
    Dim eb As String
    sb = "NJS" 'Suchbegriff
    eb = "BJS" 'Ersetzbegriff
    Dim myRng As Range
    Set myRng = Sheets("Tabelle1").Range("A1:A43") 'Anpassen
    For Each ze In myRng
        If InStr(1, ze, sb) Then
            ze.Value = sb
        Else
            ze.Value = eb
        End If
    Next
End Sub


Bild

Betrifft: AW: Zelle durchsuchen
von: Max
Geschrieben am: 12.08.2015 09:58:24
Vielen Dank JoWE, die Lösung funktioniert einwandfrei!!
Du hast es richtig erkannt, es sind an die 4000 Zellen mit einer Menge Informationen.
Nun kann ich diese auf die aussagefähige Infos beschränken.
Gruß

Bild

Betrifft: AW: Danke für die Rückmeldung oT
von: JoWE
Geschrieben am: 13.08.2015 21:13:49


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelle durchsuchen"