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

Hallo Zusammen,

ich möchte ein Makro erstellen, dass in bestimmten Zellen nach einem Wert (Text) sucht und wenn dieser Text gefunden wird nach einem anderen Wert sucht. Wenn der zweite Wert NICHT gefunden wird, soll eine MsgBox geöffnet werden. Hat jemand eine Idee wie das gelöst werden könnte?

Gruß
Kurzpeter

 

Hi,

Idee schon, aber sie scheitert daran, dass niemand deinen genauen Tabellenaufbau kennt, also niemand weiß WO der erste und WO der zweite Text/Wert gesucht werden sollen und WONACH gesucht werden soll - also bitte Beispielmappe hochladen und genaue Erklärung.

Bis später,
Karin

 

Hallo,

ich habe eine Liste in Spalte A und eine in Spalte B. Dort stehen verschiedenen Texte in den Zeilen 1 bis 30. In diesen Zellen soll nach einem Wort (z.B. "Textteil1") gesucht werden. Wenn dieser vorhanden ist, soll weiter nach einem zweiten Wort gesucht werden (z.B. "Textteil2") Wenn dieses zweite Wort nicht gefunden wird, soll eine MsgBox erscheinen.
Ist das genug Information?
Sonst erstelle ich morgen noch eine Beispieltabelle.

Gruß
Kurzpeter

 

Hi,

was verstehst du unter "weiter suchen" - ab der Stelle wo das erste Wort gefunden wurde oder sind beide Suchbegriffe in ihrer Position unabhängig von einander? Soll Text1 nur in Spalte A gesucht werden und Text2 nur in Spalte B oder können beide sowohl in Spalte A als auch in Spalte B vorkommen? Du siehst, es gibt viele Möglichkeiten und du solltest schon ganz genau beschreiben, was wo und wie miteinader interagiert und eine Beispielmappe ist auf jeden Fall sinnvoll (wie schon geschrieben).

Bis später,
Karin

 

Hallo Karin,

danke schonmal für die gezielten Nachfragen. Ich mache gleich mal eine Beispieldatei.
Selbst habe ich es schon mit folgendem Code versucht:

Sub Meldung()
Dim Bereich As Range, zelle As Range
Set Bereich = Range("B1:B30")
For Each zelle In Bereich
If zelle.value Like "*Text1*" And zelle.value Like "*Text2*" Then MsgBox "ok" Else: MsgBox "Fehler" End If
Next

End Sub


Wo habe ich dort einen Fehler gemacht?

Gruß
Kurzpeter

 

Beispieltabelle

Im Anhang ist nun meine Beispieltabelle. Ich hoffe das ist in Ordnung so.
Ich benötige eine Funktion, die nach "wird zusätzlich die Option" in Spalte B sucht, 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.

 

Deine Mappe lässt sich leider nicht öffnen - "Dateiformat oder Dateiendung ungültig".

Bis später,
Karin

 

Ich habe nochmal eine Datei hochgeladen. Funktioniert es mit dieser? Was muss ich sonst beachten?

 

Funktioniert leider auch nicht mit dieser - selbe Fehlermeldung. Arbeitest du eventuell nicht mit MS-Excel sondern einer anderen Office-Variante?

Bis später,
Karin

 

Nein, ich habe als normale Excel-Arbeitsmappe gespeichert

 

Ich habe die Mappe jetzt auch jemand anderem zum Test geschickt - dieselbe Fehlermeldung.
Öffne sie mal bei dir und speichere sie als xlsm oder xlsb ab, vielleicht hilft das ja.

Bis später,
Karin

 

Neue Dateien

Hab ich gemacht. Ich hoffe es funktioniert.

 

Wieder dieselbe Fehlermeldung. Hast du einen Mac-Rechner?

Bis später,
Karin

 

Bild und Tabellen

Hallo,
ich habe nun nochmal alles neu eingefügt und gespeichert und ein Screenshot gemacht.
Die Tabelle ist recht einfach.

 

Hi,

und wonach soll nun wo und in welcher Reihenfolge gesucht werden? Diese Fragen hast du nacj wie vor nicht beantwortet. Bechreibe es doch einfach an einem konkreten Beispiel.

Bis später,
Kain