AW: Alles markieren außer bestimmten Bereich
02.06.2008 13:04:00
Klaus
Moin Mike,
meines Wissens ist ein gezieltes "de-selektieren" nicht möglich. Jens Vorschlag ist doch schon praktikabel, wenn es unbedingt ein Makro sein muss (das eh ohne select auskommen sollte) färb einfach jede Zelle ausser einem definiertem Bereich für Überschriften ein.
Sub AllesWeissAusserUeberschriften()
Dim fixZelle As Range
Dim r As Range
Set fixZelle = Range("B4:D4,C8:E8")
For Each r In ActiveSheet.UsedRange
If Application.Intersect(r, fixZelle) Is Nothing Then
r.Interior.ColorIndex = 2
End If
Next 'r
End Sub
Die Zeile Set fixZelle = Range("B4:D4,C8:E8") musst du natürlich anpassen auf deine Überschriften, mit r.Interior.ColorIndex = 2 werden die Zellen dann weiss eingefärbt. Dass könntest du noch tauschen gegen r.Interior.ColorIndex = xlNone, um die Zellen nicht weiss zu färben sondern komplett zu entfärben, oder einen beliebigen anderen Colorindex.
Grüße,
Klaus M.vdT.