Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
Anzeige
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
Anzeige
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.

23 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige