Das ganze funktioniert unter Verwendung der Bedingten Formatierung in Verbindung mit einem kleinen VBA-Makro.
Um nun den Zellzeiger farbig zu hinterlegen gehen Sie einfach wie folgt vor:
- Öffnen Sie zunächst das Tabellenblatt, auf dem diese Funktion zur Verfügung stehen soll
- Öffnen Sie über das Menü Start / Formatvorlagen / Bedingte Formatierung den Manager für Regeln zur bedingten Formatierung
- Klicken Sie auf neue Regel wählen die Option Formel zur Ermittlung der zu formatierenden Zellen verwenden
- Tragen Sie als Regelbeschreibung folgende Formel ein: =ZELLE("Adresse")= ADRESSE(ZEILE(A1); SPALTE(A1)), siehe Abbildung
- Stellen Sie über die Schaltfläche Formatieren eine beliebige Formatierung für den Zellzeiger ein. Im Beispiel wird dieser mit einer grünen Hintergrundfarbe versehen
- Beenden Sie das Dialogfenster mit OK
- Nun können Sie noch einstellen, ob die Zellzeiger-Formatierung für einen beliebigen Bereich oder für das gesamte Tabellenblatt gelten soll, siehe Abbildung
- Wenn Sie dieses Dialogfenster ebenfalls noch mit OK beenden, dann steht die Funktion auf dem Tabellenblatt zur Verfügung.
Nachdem die Bedingte Formatierung eingerichtet ist, muss im betreffenden Tabellenblatt noch folgender VBA-Code hinterlegt werden. Dies ist erforderlich, damit bei jedem verschieben des Zellzeigers die Berechnung aktualisiert und damit die bedingte Formatierung korrekt angezeigt wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub