Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Wörter aus Text Spalten finden

Forumthread: Gleiche Wörter aus Text Spalten finden

Gleiche Wörter aus Text Spalten finden
07.12.2019 23:34:38
Marco
Hallo zusammen,
ich bitte um eure Hilfe, ich versuche aus der Spalte B und C den Nachnamen mit dem in Spalte A angegeben Firmennamen abzugleichen. Hier möchte ich gerne, wenn der Name aus Spalte B oder C in Spalte A vorkommt die Zelle gekennzeichnet wird.
Bsp.
A B C
Baier & Köppel GmbH & Co. KG Geschäftsleitung, Bernhard Köppel (Sprecher Geschäftsleitung, IT/EDV), Nürnberg
Userbild
Besten Dank für Ihre Unterstützung.
VG Marco
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Wörter aus Text Spalten finden
07.12.2019 23:37:51
Marco
Zur Verdeutlichung in meinem Bsp. sollte der Name Köppel hervorgehoben werden.
AW: Gleiche Wörter aus Text Spalten finden
08.12.2019 10:49:13
Hajo_Zi
Hallo Marco,
Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.

Anzeige
AW: Gleiche Wörter aus Text Spalten finden
09.12.2019 09:52:56
Nepumuk
Hallo Marco,
teste mal:
Option Explicit
Public Sub NamenSuchen()
Dim lngRow As Long
Dim avntTemp As Variant, vntItem As Variant
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
avntTemp = Split(Cells(lngRow, 1).Value)
For Each vntItem In avntTemp
If InStr(1, Cells(lngRow, 2).Value, vntItem, vbTextCompare) > 0 Or _
InStr(1, Cells(lngRow, 3).Value, vntItem, vbTextCompare) > 0 Then _
Cells(lngRow, 1).Characters(InStr(1, Cells(lngRow, 1).Value, vntItem), _
Len(vntItem)).Font.Bold = True
End If
Next
Next
End Sub

Gruß
Nepumuk
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Gleiche Wörter in Excel-Spalten finden und markieren

Schritt-für-Schritt-Anleitung

Um die gleichen Wörter in Excel-Spalten zu finden und zu markieren, kannst du die folgende VBA-Prozedur verwenden. Diese Anleitung ist für Excel-Versionen ab 2010 geeignet.

  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. Kopiere den folgenden Code in das Modul:

    Option Explicit
Public Sub NamenSuchen()
   Dim lngRow As Long
   Dim avntTemp As Variant, vntItem As Variant
   For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
       avntTemp = Split(Cells(lngRow, 1).Value)
       For Each vntItem In avntTemp
           If InStr(1, Cells(lngRow, 2).Value, vntItem, vbTextCompare) > 0 Or _
              InStr(1, Cells(lngRow, 3).Value, vntItem, vbTextCompare) > 0 Then
               Cells(lngRow, 1).Characters(InStr(1, Cells(lngRow, 1).Value, vntItem), _
               Len(vntItem)).Font.Bold = True
           End If
       Next
   Next
End Sub

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

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Damit werden alle gleichen Wörter markiert, die in den Spalten B oder C mit den Wörtern in Spalte A übereinstimmen.

Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Makros in deinen Excel-Optionen aktiviert sind.

  • Fehler: Die Formatierung wird nicht angewendet.

    • Lösung: Überprüfe, ob die Zellen in Spalte A tatsächlich Text enthalten und nicht leer sind.

  • Fehler: Wörter werden nicht richtig gefunden.

    • Lösung: Achte darauf, dass die Groß- und Kleinschreibung beim Abgleich berücksichtigt wird. Der Parameter vbTextCompare sorgt dafür, dass dies ignoriert wird.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du die bedingte Formatierung nutzen:

  1. Wähle die Zellen in Spalte A aus.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.

  4. Gib die folgende Formel ein:

    =ODER(ISTZAHL(SUCHEN(TEIL($A1;SPALTE(A:A);1);$B1)); ISTZAHL(SUCHEN(TEIL($A1;SPALTE(A:A);1);$C1)))

  5. Wähle ein Format aus, um die Zellen zu kennzeichnen.

Praktische Beispiele

  1. Beispiel 1: Wenn in Spalte A „Baier & Köppe GmbH“ steht und in Spalte B „Bernhard Köppel“, wird „Köppel“ in Spalte A fett hervorgehoben.

  2. Beispiel 2: Bei „Müller & Söhne“ in Spalte A und „Max Müller“ in Spalte C wird „Müller“ ebenfalls hervorgehoben.

Diese Beispiele zeigen, wie einfach es ist, mit Excel gleiche Wörter zu markieren.

Tipps für Profis

  • Nutze die Funktion FILTER, um nur die relevanten Daten anzuzeigen, bevor du das Makro anwendest.
  • Experimentiere mit der VBA-Prozedur, um sie an deine Bedürfnisse anzupassen, z.B. durch das Hinzufügen von weiteren Spalten.
  • Halte dein Excel-Dokument regelmäßig sauber, um die Leistung zu optimieren, besonders wenn du mit vielen Daten arbeitest.

FAQ: Häufige Fragen

1. Wie viele Wörter kann ich mit dieser Methode markieren?
Es gibt keine spezifische Begrenzung, solange deine Excel-Datei nicht die maximalen Zeilen- und Spaltenbeschränkungen überschreitet.

2. Funktioniert das Makro auch bei Zahlen?
Ja, das Makro kann auch numerische Werte finden, solange sie als Text verarbeitet werden.

3. Kann ich das Makro anpassen, um nur bestimmte Wörter zu markieren?
Ja, du kannst die If-Bedingung im VBA-Code anpassen, um spezifische Wörter zu suchen und zu markieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige