Makro für verbundene Zellen

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count > 1 Then Exit Sub If MarkierteZelle = "" Then MarkierteZelle = Target.Address AlteFarbe = Target.Interior.ColorIndex Target.Interior.ColorIndex = 6 Else If Range(MarkierteZelle).Interior.ColorIndex = 6 Then Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe End If AlteFarbe = Target.Interior.ColorIndex MarkierteZelle = Target.Address Target.Interior.ColorIndex = 6 End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim AlteFarbe As Integer, MarkierteZelle As String Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count > 1 Then If VarType(Target.MergeCells) = 1 Then Exit Sub If Not Target.MergeCells Then Exit Sub End If End If If MarkierteZelle = "" Then MarkierteZelle = Target.Address AlteFarbe = Target.Interior.ColorIndex Target.Interior.ColorIndex = 6 Else If Range(MarkierteZelle).Interior.ColorIndex = 6 Then Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe End If AlteFarbe = Target.Interior.ColorIndex MarkierteZelle = Target.Address Target.Interior.ColorIndex = 6 End If End Sub

HI
diese Methode ist generell suboptimal, um die geänderte Zelle besonders hervorzuheben.
mach das lieber so:
1. suche dir eine freie Zelle auf dem Blatt (keine Sorge, Excel hat immer genügend freie Zellen), z.B die Zelle A1
2. verwende dieses Makro anstelle deines bisherigen: Das Makro schreibt einfach nur Zeilen- und Spaltennummer der aktiven Zelle die von dir ausgesuchte Zelle:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A1").Value = Target.Row & "_" & Target.Column
End Sub

3. lege dann für den Zellbereich eine bedingte Formatierung an mit folgender Formel als Regel:


=$A$1=ZEILE()&"_"&SPALTE()

und fertig.
das ganze hat neben der Kürze folgende Vorteile:
1. in der Tabelle vorhandene Färbungen gehen nicht verloren, sondern bleiben erhalten, die bedingte Formatierung überlagert und ersetzt nicht.
dh du brauchst dir die alte Farbe und alte Markierung nicht merken, das Rückfärben geht automatisch.
2. es funktioniert so auch mit verbunden Zellen
3. wenn du Datei speicherst, wird die zuletzt gefärbte Zelle mit gespeichert. Bein nächsten Öfffnen der Datei hat Excel aber die Inhalte der Variablen alteFarbe und MarkierteZelle vergessen, so dass die zuletzt markierte Zelle nicht mehr zurück gefärbt kann.
4. du kannst die Farbe oder sonstige Markierung für die hervorzuhebende Zelle selbst in der bedingten Formatierung einstellen, ohne in den Code eingreifen zu müssen.
Gruß Daniel

Hi
noch ein Problem:
du hast ColorIndex verwendet.
ColorIndex ist jedoch ein altes Relikt aus Excel 2003 Zeiten, als pro Blatt nur maximal 56 verschiedene Farben möglich waren.
Da konnte man also Farbe nicht direkt als RGB-Wert angeben, sondern nur über eine Zahl von 1-56 und damit eine Farbe aus dieser Tabelle auswählen.
Heute kann man alle Farben direkt auswählen und mit .Color den RGB-Wert angeben und auslesen
der Colorindex ist aus kompatibilitätsgründen immer noch drin, ebenso die Farbtabelle im Hintergrund.
Wenn du jetzt den ColorIndex einer Zelle ausliest und diese hat eine Farbe, die dort nicht gelistet ist, dann wird der Colorindex der ähnlichsten Farbe aus dieser Tabelle verwendet, dh wenn du dann die Zelle über den ColorIndex färbst, dann bekommt sie nicht die Farbe, die sie ursprünglich hatte, sondern eben die Farbe aus der Tabelle.
(ist im prinzip so ein bisschen wie wenn du in der Zelle eine Kommazahl stehen hast, die Merkvariable aber nur eine Ganzzahl-Variable ist)
gewisse Farbeffekte können daran liegen, das könnte man aber damit beheben, dass man .Color statt .ColorIndex verwendet.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread