Zelle einfärben bei Makro: "Suche"
23.03.2007 06:53:00
Jürgen
ich habe ein Makro zusammengebastelt welches eine gesamte Mappe (80 Blätter) durchsucht.
Besteht die Möglichkeit die die jeweilige gefundene Zelle mit einem farbigen Rahmen zu versehen oder ganz farbig zu machen?
Bei jedem durchklicken soll beim Verlassen wieder die ursprüngliche Zellfarbe eingestellt werden.
Danke für jede Hilfe
Jürgen
Hier das gültige Makro:
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Application.ScreenUpdating = False
Zähler = 0
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
Application.ScreenUpdating = True
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Zähler = 1
Set GZelle = Sh.Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
MsgBox "Keine weitere Übereinstimmung gefunden !"
Sheets("Übersicht").Select
End
Sheets("Übersicht").Select
End Sub