Wenn Zelle bestimmten Text enthält, dann Zeilefett

Forumthread: Wenn Zelle bestimmten Text enthält, dann Zeilefett

23.05.2004 18:46:04

Michael

Hallo zusammen,
Ich habe ein Makro, dass mir eine Spalte durchsucht und bei einem bestimmten Inhalt die komplette Zeile fett macht
x = ActiveSheet.UsedRange.Rows.Count
For i = 1 To x
If Cells(i, 2).Value = "Haus" Then
Rows(i).Select
Selection.Font.Bold = True
End If
Next
Dieses Makro funktioniert gut wenn in der Zelle Haus steht.
Nun würde ich gerne die Zeile fett markieren, wenn in der Zelle der Wortteil Haus vorkommt, also auch andere Zeichen, z.B. Haus24 oder 14.Haus
Wie muss ich die If Bedingung formulieren?
Für Hilfe und Anregungen vielen Dank.
Gruß
Michi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Zelle bestimmten Text enthält, dann Zeile

Reinhard

Hi Michi,
ungeprüft: x = ActiveSheet.UsedRange.Rows.Count For i = 1 To x Rows(i).Select If Cells(i, 2).Value like "Haus" Then Selection.Font.Bold = True Else Selection.Font.Bold = False End If Next
Der Elsezweig ist deshalb drin, damit wenn du irgendwann mal einen "haus2-Eintrag manuell löschst, diese Zelle nicht Fett bleibt.
Gruß
Reinhard

AW: Wenn Zelle bestimmten Text enthält, dann Zeile

23.05.2004 22:03:34

MichaelK

Hallo Reinhard,
super, vielen Dank, der entscheidende Hinweis war das Wörtchen LIKE (ich wusste doch, dass es da so was ähnliches gibt, bin aber nicht draufgekommen)!
...
If Cells(i, 2).Value like "Haus" Then
...
Man muss nur noch zwei * einfügen, dann funktioniert das Makro sehr gut.
...
If Cells(i, 2).Value like "*haus*" Then
...
Bei Gross- und Kleinschreibung wird hier natürlich unterschieden.
Gruss
Michi

geht auch mit Bedingter Formatierung!

23.05.2004 20:13:42

Josef

Hallo Michi!
Das geht auch mit der bedingten Formatierung!

Tabelle2

	A	B	C	D
1	test	test	test	test
2	haus	test	test	test
3	Haus	test	test	test
4	test	test	test	test
5	Baumhaus	test	test	test
6	test	test	test	test
7	hausboot	test	test	test
8	test	test	test	test
9	15.haus	test	test	test

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A1	1. / Formel ist =SUCHEN("haus";$A1)>0	Abc
B1	1. / Formel ist =SUCHEN("haus";$A1)>0	Abc
C1	1. / Formel ist =SUCHEN("haus";$A1)>0	Abc
D1	1. / Formel ist =SUCHEN("haus";$A1)>0	Abc
A2	1. / Formel ist =SUCHEN("haus";$A2)>0	Abc
B2	1. / Formel ist =SUCHEN("haus";$A2)>0	Abc
C2	1. / Formel ist =SUCHEN("haus";$A2)>0	Abc
D2	1. / Formel ist =SUCHEN("haus";$A2)>0	Abc
A3	1. / Formel ist =SUCHEN("haus";$A3)>0	Abc
B3	1. / Formel ist =SUCHEN("haus";$A3)>0	Abc
C3	1. / Formel ist =SUCHEN("haus";$A3)>0	Abc
D3	1. / Formel ist =SUCHEN("haus";$A3)>0	Abc
A4	1. / Formel ist =SUCHEN("haus";$A4)>0	Abc
B4	1. / Formel ist =SUCHEN("haus";$A4)>0	Abc
C4	1. / Formel ist =SUCHEN("haus";$A4)>0	Abc
D4	1. / Formel ist =SUCHEN("haus";$A4)>0	Abc
A5	1. / Formel ist =SUCHEN("haus";$A5)>0	Abc
B5	1. / Formel ist =SUCHEN("haus";$A5)>0	Abc
C5	1. / Formel ist =SUCHEN("haus";$A5)>0	Abc
D5	1. / Formel ist =SUCHEN("haus";$A5)>0	Abc
A6	1. / Formel ist =SUCHEN("haus";$A6)>0	Abc
B6	1. / Formel ist =SUCHEN("haus";$A6)>0	Abc
C6	1. / Formel ist =SUCHEN("haus";$A6)>0	Abc
D6	1. / Formel ist =SUCHEN("haus";$A6)>0	Abc
A7	1. / Formel ist =SUCHEN("haus";$A7)>0	Abc
B7	1. / Formel ist =SUCHEN("haus";$A7)>0	Abc
C7	1. / Formel ist =SUCHEN("haus";$A7)>0	Abc
D7	1. / Formel ist =SUCHEN("haus";$A7)>0	Abc
A8	1. / Formel ist =SUCHEN("haus";$A8)>0	Abc
B8	1. / Formel ist =SUCHEN("haus";$A8)>0	Abc
C8	1. / Formel ist =SUCHEN("haus";$A8)>0	Abc
D8	1. / Formel ist =SUCHEN("haus";$A8)>0	Abc
A9	1. / Formel ist =SUCHEN("haus";$A9)>0	Abc
B9	1. / Formel ist =SUCHEN("haus";$A9)>0	Abc
C9	1. / Formel ist =SUCHEN("haus";$A9)>0	Abc
D9	1. / Formel ist =SUCHEN("haus";$A9)>0	Abc

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Gruß Sepp

AW: geht auch mit Bedingter Formatierung!

23.05.2004 22:07:41

MichaelK

Hi Sepp,
vielen Dank für den Tip, funktioniert sehr gut.
Gruss
Michi

Infobox / Tutorial

Zeilenfett machen, wenn Zelle bestimmten Text enthält

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel eine Zeile fett zu machen, wenn eine Zelle einen bestimmten Text enthält, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne den VBA-Editor: Drücke Alt + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

Füge den folgenden Code ein:

Sub ZeileFettWennTextEnthalten()
    Dim x As Long
    Dim i As Long
    x = ActiveSheet.UsedRange.Rows.Count

    For i = 1 To x
        If Cells(i, 2).Value Like "*Haus*" Then
            Rows(i).Font.Bold = True
        Else
            Rows(i).Font.Bold = False
        End If
    Next i
End Sub

Schließe den VBA-Editor: Drücke Alt + Q, um den Editor zu schließen.
Führe das Makro aus: Gehe zurück zu Excel, drücke Alt + F8, wähle ZeileFettWennTextEnthalten und klicke auf Ausführen.

Dieses Makro prüft die zweite Spalte und macht die gesamte Zeile fett, wenn der Text "Haus" oder ein Teil davon (z.B. "Haus24") in der Zelle gefunden wird.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht wie erwartet.
- Lösung: Stelle sicher, dass die Zelle, die du prüfst, tatsächlich Text enthält. Achte auf Groß- und Kleinschreibung, wenn du den Text vergleichst.
Fehler: Die Zeilen bleiben fett, obwohl der Text nicht mehr vorhanden ist.
- Lösung: Stelle sicher, dass du im Else-Zweig die Schriftart auf normal setzt, wie im obigen Beispiel gezeigt.

Alternative Methoden

Neben der Verwendung eines Makros gibt es auch die Möglichkeit, dies über die Bedingte Formatierung zu lösen:

Markiere die Zellen: Wähle den Bereich aus, den du formatieren möchtest.
Öffne die Bedingte Formatierung: Gehe zu Start > Bedingte Formatierung > Neue Regel.
Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib folgende Formel ein:
```
=SUCHEN("Haus"; $B1) > 0
```
Wähle das Format aus, z.B. fett.
Klicke auf OK.

Diese Methode ist besonders nützlich, wenn du keine VBA-Kenntnisse hast und deine Excel-Datei einfacher verwalten möchtest.

Praktische Beispiele

Hier sind einige Beispiele, die zeigen, wie man das Makro oder die bedingte Formatierung anpassen kann:

Makro anpassen für andere Texte:
- Ändere die Bedingung im Makro von If Cells(i, 2).Value Like "*Haus*" zu If Cells(i, 2).Value Like "*Baum*" für das Wort "Baum".
Bedingte Formatierung für weitere Werte:
- Du kannst mehrere Regeln für unterschiedliche Texte erstellen, um verschiedene Zeilen in unterschiedlichen Formaten darzustellen.

Tipps für Profis

Nutze Datenvalidierung, um sicherzustellen, dass nur bestimmte Texte in die Zellen eingegeben werden.
Bei der Verwendung von VBA-Makros empfiehlt es sich, die Arbeitsmappe als Excel-Makro-aktivierte Arbeitsmappe (*.xlsm) zu speichern.
Teste dein Makro in einer Kopie deiner Arbeitsmappe, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für mehrere Spalten anpassen? Um das Makro für mehrere Spalten anzupassen, kannst du die For-Schleife entsprechend erweitern und die Spaltennummer anpassen.

2. Was tun, wenn das Makro nicht läuft? Stelle sicher, dass Makros in Excel aktiviert sind und dass du die richtigen Berechtigungen hast. Prüfe auch, ob du den Code korrekt eingegeben hast.

Beliebteste Forumthreads (12 Monate)

Wenn Zelle bestimmten Text enthält, dann Zeilefett

Forumthread: Wenn Zelle bestimmten Text enthält, dann Zeilefett

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilenfett machen, wenn Zelle bestimmten Text enthält

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Wenn Zelle bestimmten Text enthält, dann Zeilefett

Forumthread: Wenn Zelle bestimmten Text enthält, dann Zeilefett

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zeilenfett machen, wenn Zelle bestimmten Text enthält

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread