Microsoft Excel

Herbers Excel/VBA-Archiv

Suchen und einfärben | Herbers Excel-Forum


Betrifft: Suchen und einfärben von: Frank H.
Geschrieben am: 25.11.2009 14:35:16

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.

  

Betrifft: AW: Suchen und einfärben von: Ptonka
Geschrieben am: 25.11.2009 14:51:52

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


  

Betrifft: AW: Suchen und einfärben von: Frank H.
Geschrieben am: 25.11.2009 20:09:43

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.


Beiträge aus den Excel-Beispielen zum Thema "Suchen und einfärben"