Office: (Office 2016) Bedingung Wert vorhanden und anderer Wert nicht vorhanden

Es sol nach dem Text "wird zusätzlich die Option" in Spalte B gesucht werden (dot stehen unterschiedliche Texte mit vielen Wörtern), wenn dieser Satz gefunden wird, soll weiter nach dem Wort das auf diesen Satz Folgt (Wort3) in Spalte A gesucht werden. Falls dieses Wort nicht gefunden wird, soll eine Fehlermeldung erscheinen. Falls es gefunden wird, soll nichts passieren.

 

Ich hatte geschrieben: an einem konkreten Beispiel - in deiner Tabelle gibt es weder den Text "wird zusätzlich die Option" in Spalte B noch "Wort3" in Spalte A - also sind eine Suche und deine Beschreibung völlig sinnlos, weil BEIDES nicht gefunden werden kann.

Bis später,
Karin

 

konkreter

Ich habe die Tabelle aktualisiert. Ich weiß nicht wie ich noch konkreter werden soll. In Spalte A steht doch auch das Wort3.

 

Es soll also in Spalte A nach dem String gesucht werden, welcher in Spalte B ANSCHLIEßEND an den TEILTEXT "wird zusätzlich die Option" INNERHALB des Gesamttextes steht...

Code:

Sub Suchen()
    Dim rngB As Range
    Dim rngA As Range
    Dim strA As String
    Set rngB = Columns(2).Find("wird zusätzlich die Option", lookat:=xlPart)
    If Not rngB Is Nothing Then
        strA = Mid(rngB.Value, InStr(rngB.Value, """wird zusätzlich die Option"""))
        strA = Application.Substitute(strA, """wird zusätzlich die Option""", "")
        strA = Application.Substitute(Left(strA, InStr(2, strA, " ")), " ", "")
        Set rngA = Columns(1).Find(strA, lookat:=xlPart)
        If rngA Is Nothing Then MsgBox strA & " nicht gefunden"
    Else
        MsgBox "In Spalte B nichts gefunden"
    End If
End Sub

Bis später,
Karin

 

Hallo,
vielen Dank schonmal. Deine Beschreibung ist genau richtig. Leider findet er den String in Spalte B nicht, obwohl dieser auf den Teiltext "wird zusätzlich die Option" folgt und in Spalte A steht.
Was genau passiert bei dem Befehl Is Nothing then? Und sind rngB und rngA nur für die Definition des Ranges oder beinhalten sie auch eine Funktion?
Vielleicht kannst du das Makro nochmal erklären?

Gruß
Kurzpeter

 

Ich habe es nun nochmal versucht, indem ich den Text nochmal in die Spalten eingegeben habe. Eigentlich sind die Texte aus einem anderen Tabellenblatt mit der INDEX VERGEICH Funktion eingefügt. Wenn ich die Texte direkt eingebe kommt der Laufzeitfehler '5' Ungültiger Prozeduraufruf oder ungültiges Argument.

 

Hi,

das kann ich nicht nachvollziehen - siehe meine Beispielmappe: dort wird keine MsgBox ausgegeben weil der String ("Wort5") im Anschluss an "wird zusätzlich die Option" in Spalte A in Zeile 11 enthalten ist.
Im Beispiel habe ich den noch Code kommentiert.

If ... Is Nothing bedeutet dass das die Bedingung nicht erfüllt ist und If ... Not Is Nothing bedeutet dass die Bedingung erfüllt ist

Bis später,
Karin

 

Danke für die Datei. Wenn ich die Anführungszeichen entferne funktioniert es nicht mehr. Ich habe sie sowohl in dem Text in der Spate als auch im Code entfernt.

 

Was verstehst du unter funktioniert es nicht mehr - mit der Aussage kann man absolut nichts anfangen, denn das kann bedeuten dass der Code einen Fehler auslöst oder dass der Suchbegriff nicht mehr gefunden wird. Bedenke bitte dass du allein vor deinem Bildschirm sitzt und niemand sehen kann was dort abläuft - ich kann also nur raten, und das erschwert das Helfen ungemein...

Wenn du die Anführungszeichen im Text in Spalte B entfernst, dann müssen im Code die doppelten - und NUR die doppelten - Anführungszeichen entfernt werden.

Bis später,
Karin

 

mit Verweisen

Ich versuche es nochmal mit einer Tabelle, ich habe an der Datei von dir etwas verändert. Die Daten werden nun von einem anderen Tabellenblatt ausgelesen. In meiner Datei passiert das mit der INDEX VERGLEICH Kombination. Das Makro habe ich direkt in das Tabellenblatt geschrieben. Ich hoffe die Datei kann geöffnet werden.

 

Deine hochgeladene Mappe lässt sich nicht öffnen. Verwendest du nun einen Mac-Computer oder nicht? Beantworte doch einfach mal meine Fragen - ich habe es satt, immer nur raten zu müssen.

Wenn sich deine Daten aus Formeln ergeben, dann muss dies bei der Suche angegeben werden - ergänze folgende beiden Zeilen:

Code:

    ' suche in Spalte B, vergleicht Teilinhalt, sucht in Werten
    Set rngB = Columns(2).Find("wird zusätzlich die Option", lookat:=xlPart, [COLOR=#ff0000]LookIn:=xlValues[/COLOR])

und

Code:

        ' im Spalte A nach dem String suchen, vergleicht Teilinhalt, sucht in Werten
        Set rngA = Columns(1).Find(strA, lookat:=xlPart, [COLOR=#ff0000]LookIn:=xlValues[/COLOR])

Bis später,
Karin

 

Entschuldige, ich verwende einen Windows PC. Ich weiß auch nicht warum es mit der Datei nicht funktioniert. Aber du hast mir sehr geholfen. Die Funktion läuft bis jetzt super. Ich werde sie noch weiter testen. Aber jetzt schonmal: vielen Dank für deine gute und schnelle Hilfe.