Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA .. Wenn Wort in Zelle vorkommt dann

Forumthread: VBA .. Wenn Wort in Zelle vorkommt dann

VBA .. Wenn Wort in Zelle vorkommt dann
16.06.2022 18:08:49
Sabbel
Hallo,
ich möchte wenn ein Wort (zum Beispiel Hans) in der Zelle B4 vorkommt soll das eine sonst das andere ausgeführt werden.
Kann mir jemand helfen?
B4 = In den Feld stehen viele Sachen unter anderem Hans

        If Range("B4") = "Hans" Then
... mach das eine
Else
... mach das andere
End If
Liebe Grüße
Sabbeö
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Range("B4") Like "*Hans*" Then...
16.06.2022 18:11:26
{Boris}
VG, Boris
AW: If Range("B4") Like "*Hans*" Then...
16.06.2022 18:21:00
Sabbel
Danke .. das ist perfekt
Was muss ich noch anpassen wenn Groß und Kleinschreibung nicht beachtet werden soll.
LG
Sabbel
AW: If Range("B4") Like "*Hans*" Then...
16.06.2022 18:33:18
GerdL
Hallo Sabbel.!

Sub Unit()
If InStr(1, LCase$(Range("B4")), LCase$("Hans")) Then
MsgBox "mach was"
Else
MsgBox "mach nix"
End If
End Sub
Gruß Gerd
Anzeige
If LCase(Range("B4")) Like "*hans*" Then...
16.06.2022 18:35:08
{Boris}
VG, Boris
If LCase(Range("B4")) Like "*hans*" Then ...
16.06.2022 18:35:45
Matthias
.
AW: VBA .. Wenn Wort in Zelle vorkommt dann
16.06.2022 18:56:14
onur 

    If InStr(1, Range("B4"), "Hans",1) Then
MsgBox "mach was"
Else
MsgBox "mach das andere"
End If

Anzeige
Vielen Dank euch allen es funktioniert Bestens owT
16.06.2022 19:56:22
Sabbel

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Anzeige
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Wenn "Ja" dann zähle +1
Georg

Hallo.
Ich habe leider nicht so viel Ahnung von Excel, darum hier meine Frage:
Ich möchte in einer Zelle zählen, wie oft in einem Bereich das Wort Ja in einer Zelle steht. Wie kann ich das machen?
Danke schon mal im Voraus!
04.02.2010 15:42:44
Thread-ID: 1135816
3 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
Wenn in Zelle dann
Viktoria

Hallo Leute,
stehe seit Wochen schon vor dem gleichen Problem.. und hab keine Ahnung wie ich es beheben soll... :(
Also in Spalte Q habe ich Abteilungsbezeichnungen. Dort setzte ich einen Filter und möchte jetzt das mir mein Makro in Spalte M nur die ersten beiden Chars kopiert und dies...
19.04.2010 13:09:51
Thread-ID: 1152553
4 Beiträge
Farbe wenn Zelle = Formel enthält
Karl

Hallo liebe Excel Profis,
wie kann ich in Excel 2003 mit bedingter Formatierung einstellen, dass die Zellefarbe automatisch geändert wird (zB blau), sobald eine Zelle eine Formel enthält?
Vielen vielen Dank im Voraus.
K
06.05.2010 10:54:32
Thread-ID: 1155756
4 Beiträge
WENN DANN Wörter/Zahlen
Miez

Hallo Forum,
Ich möchte für einen Bekannten eine bislang manuell ausgefüllte Tabelle gern in Excel schreiben und dort gewisse Felder "automatisieren" um den Arbeits-Aufwand zu minimieren. Das was ich suche wäre ziemlich ähnlich zu diesem hier: https://www.herber.de/forum/archiv/152to156/t15...
02.07.2010 15:30:43
Thread-ID: 1165178
5 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
19.12.2010 23:05:53
Thread-ID: 1192146
2 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
20.12.2010 03:06:11
Thread-ID: 1192147
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA: Wenn ein Wort in einer Zelle vorkommt

Schritt-für-Schritt-Anleitung

Um in Excel VBA zu prüfen, ob ein Wort in einer Zelle vorkommt, kannst Du folgende Schritte befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code ein:

    Sub CheckWordInCell()
    If InStr(1, LCase$(Range("B4").Value), LCase$("Hans")) > 0 Then
        MsgBox "Das Wort 'Hans' ist enthalten."
    Else
        MsgBox "Das Wort 'Hans' ist nicht enthalten."
    End If
End Sub

  4. Schließe den VBA-Editor und kehre zurück zu Excel.

  5. Führe das Makro aus, um zu sehen, ob das Wort in der Zelle B4 vorkommt.

Häufige Fehler und Lösungen

  • Fehler: "Typen inkompatibel"

    • Lösung: Stelle sicher, dass der Wert in Range("B4") ein Text ist. Du kannst dies mit CStr(Range("B4").Value) sicherstellen.

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob Du das Makro korrekt ausgeführt hast. Drücke dazu ALT + F8, wähle das Makro und klicke auf Ausführen.

Alternative Methoden

  1. Verwendung von Like: Du kannst auch die Like-Anweisung verwenden, um nach einem Wort zu suchen. Beispiel:

    If Range("B4").Value Like "*Hans*" Then
    MsgBox "Das Wort 'Hans' ist drin."
End If

  2. Excel-Formel: Falls Du lieber eine Excel-Formel verwenden möchtest, kannst Du Folgendes nutzen:

    =WENN(ISTZAHL(SUCHEN("Hans"; B4)); "Enthalten"; "Nicht enthalten")

Praktische Beispiele

  • Beispiel 1: Prüfen, ob das Wort "Hans" in einer Zelle steht:

    If InStr(1, Range("B4").Value, "Hans") > 0 Then
    MsgBox "Hans gefunden!"
End If

  • Beispiel 2: Unterschiedliche Nachricht basierend auf dem Inhalt:

    If InStr(1, LCase(Range("B4")), LCase("Hans")) > 0 Then
    MsgBox "Das Wort 'Hans' ist enthalten."
Else
    MsgBox "Das Wort 'Hans' fehlt."
End If

Tipps für Profis

  • Achte darauf, dass die Groß- und Kleinschreibung in der Suche beachtet wird, wenn Du InStr ohne LCase verwendest.

  • Du kannst die Funktion auch in Schleifen einbauen, um mehrere Zellen in einer Spalte zu durchsuchen: 

    Dim i As Integer
For i = 1 To 10 ' Beispiel für die ersten 10 Zeilen
    If InStr(1, Range("B" & i).Value, "Hans") > 0 Then
        MsgBox "Hans gefunden in Zeile " & i
    End If
Next i

FAQ: Häufige Fragen

1. Frage Wie kann ich prüfen, ob ein Wort in einer ganzen Spalte vorkommt?

Antwort Du kannst eine Schleife verwenden, um jede Zelle in der Spalte zu überprüfen, wie im Tipps für Profis Abschnitt beschrieben.

2. Frage Was soll ich tun, wenn ich mehrere Wörter überprüfen möchte?

Antwort Du kannst eine Liste von Wörtern erstellen und eine Schleife durchlaufen, um zu prüfen, ob eines dieser Wörter in der Zelle vorkommt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige