Suchen und einfärben

Forumthread: Suchen und einfärben

Frank

Hallo Zusammen!
Ich würde mich wieder einmal über eure Ratschläge freuen!
Möchte in VBA folgendes hinterlegt haben.
In Spalte H taucht an verschiedenen Stellen das Wort "Bemerkungen" auf. Da ich bereits mittels Code andere Zellen einfärben lasse möchte ich dies auch über VBA gelöst bekommen. Es soll wenn das Wort gefunden wurde, die darüber- und die darunterliegende Zelle grau (&H808080) einfärben.
Ich hoffe ihr könnt damit etwas anfangen?
Danke und Gruß Frank H.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Suchen und einfärben

Ptonka
AW: Suchen und einfärben

Frank

AW: Suchen und einfärben

25.11.2009 14:51:52

Ptonka

Hallo Frank,
ich hätte folgendes VBA-Skript als Vorschlag:

Sub Bemerkungen_finden()
Zeile = 0
LetzteZeile = [H65536].End(xlUp).Row
For i = Zeile To LetzteZeile
i = Zeile + 1
Range(Cells(i, 8), Cells(LetzteZeile, 8)).Select
On Error GoTo weiter
Selection.Find(What:="Bemerkung", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Zeile = ActiveCell.Row
Cells(Zeile - 1, 8).Select
Call Farbe
Cells(Zeile + 1, 8).Select
Call Farbe
Next i
weiter:
Range("H1").Select
End Sub

Sub Farbe()
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("H6").Select
End Sub

Gruß,
Ptonka

AW: Suchen und einfärben

25.11.2009 20:09:43

Frank

Hallo Ptonka!
Sorry! Ist nicht meine Art mit der Antwort und dem damit verbundenen Dank so lange auf sich warten zu lasse. Bin aber nicht eher zum testen gekommen.
Funzt Super - Ganz herzlichen Dank
Gruß Frank H.

Infobox / Tutorial

Suchen und Zellen einfärben in Excel mit VBA

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 das Wort "Bemerkungen" in Spalte H zu suchen und die darüber- sowie darunterliegende Zelle grau einzufärben, kannst du das folgende VBA-Skript verwenden.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden Code in das Modul:

Sub Bemerkungen_finden()
    Dim Zeile As Long
    Dim LetzteZeile As Long
    LetzteZeile = [H65536].End(xlUp).Row
    For Zeile = 1 To LetzteZeile
        On Error Resume Next
        Cells(Zeile, 8).Find(What:="Bemerkung", LookIn:=xlFormulas, LookAt:=xlPart).Activate
        If Not IsEmpty(ActiveCell) Then
            Cells(ActiveCell.Row - 1, 8).Interior.Color = &H808080  ' Zelle darüber einfärben
            Cells(ActiveCell.Row + 1, 8).Interior.Color = &H808080  ' Zelle darunter einfärben
        End If
    Next Zeile
    Range("H1").Select
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, indem du ALT + F8 drückst und das Makro Bemerkungen_finden auswählst.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden"
- Lösung: Stelle sicher, dass das Wort "Bemerkung" korrekt geschrieben ist und in der richtigen Spalte (H) gesucht wird.
Zellen werden nicht eingefärbt
- Lösung: Überprüfe, ob der Code korrekt eingefügt wurde und dass du das Makro tatsächlich ausgeführt hast.

Alternative Methoden

Falls du VBA nicht verwenden möchtest, kannst du auch die bedingte Formatierung in Excel nutzen:

Markiere die Zellen in Spalte H.
Klicke auf Start > Bedingte Formatierung > Neue Regel.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
Gib die Formel =SEARCH("Bemerkung", H1) ein und wähle die gewünschte Formatierung (Graufärbung).
Klicke auf OK, um die Regel anzuwenden.

Praktische Beispiele

Hier ist ein Beispiel, wie der VBA-Code in einem realen Szenario funktioniert:

Angenommen, in deiner Tabelle steht in Zelle H5 "Bemerkungen" und in H10 "Bemerkungen für den nächsten Schritt". Nach der Ausführung des Makros würden die Zellen H4 und H6 sowie H9 und H11 grau eingefärbt, um visuell anzuzeigen, dass sie mit "Bemerkungen" in Verbindung stehen.

Tipps für Profis

Automatisierung: Du kannst den VBA-Code so anpassen, dass er bei jedem Öffnen der Datei automatisch ausgeführt wird, indem du ihn in die Workbook_Open-Prozedur einfügst.
Fehlerbehandlung: Überlege, eine bessere Fehlerbehandlung in deinen Code einzufügen, um auf mögliche Probleme während der Ausführung zu reagieren.

FAQ: Häufige Fragen

1. Kann ich den VBA-Code anpassen, um eine andere Farbe zu verwenden? Ja, du kannst die Farbwerte in den Zeilen Cells(ActiveCell.Row - 1, 8).Interior.Color und Cells(ActiveCell.Row + 1, 8).Interior.Color ändern. Verwende die RGB-Funktion, um eine benutzerdefinierte Farbe zu definieren.

2. Funktioniert dieser Code in allen Excel-Versionen? Der gegebene VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)