Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Farbe ändern wenn Zelle angelickt wird

Forumthread: Farbe ändern wenn Zelle angelickt wird

Farbe ändern wenn Zelle angelickt wird
26.12.2007 14:42:00
Thorsten
Hallo an Alle und frohe Weihnachten,
ich möchte gerne, daß wenn man eine Zelle im Bereich A1 bis D 45 anklickt sich diese farblich verändert und bei einem erneuten anklicken sich diese Zelle wieder zurückverändert - also weiß wird. Natürlcih sollen / können mehrere Zellen eventuell angeklickt werden.
Ist dies möglich ?
Vielen Dank und schöne Tage noch
Thorsten

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe ändern wenn Zelle angelickt wird
26.12.2007 14:48:00
{Boris}
Hi Thorsten,
z.B. so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:D45"), Target) Is Nothing Then
Range("A1:D45").Interior.ColorIndex = xlNone
Intersect(Range("A1:D45"), Target).Interior.ColorIndex = 6 '6 = gelb
End If
End Sub


Rechtsklick auf den Tabellenreiter, Code anzeigen, die Codezeilen in das rechte Fenster reinkopieren, VBA-Editor schließen und testen.
Grüße Boris

Anzeige
AW: Farbe ändern wenn Zelle angelickt wird
26.12.2007 14:48:49
Josef
Hallo Thorsten,
hier ein Beispeil mit Doppelklick.
Code im VBE (Alt+F11) in das Modul der Tabelle einfügen)
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit
Const newColor As Integer = 4 'Farbe festlegen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:D45")) Is Nothing Then
    Cancel = True
    If Target.Interior.ColorIndex = newColor Then
        Target.Interior.ColorIndex = xlNone
    Else
        Target.Interior.ColorIndex = newColor
    End If
End If
End Sub

Gruß Sepp

Anzeige
Vielen Dank und einen guten Rutsch
26.12.2007 14:54:00
Thorsten
VG
Thorsteb
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Farbe ändern beim Klicken auf eine Zelle in Excel


Schritt-für-Schritt-Anleitung

Um die Zellenfarbe in Excel zu ändern, wenn eine Zelle angeklickt wird, kannst Du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:

  1. Öffne Deine Excel-Datei und gehe zu dem Tabellenblatt, auf dem Du die Funktion anwenden möchtest.

  2. Klicke mit der rechten Maustaste auf den Tabellenreiter und wähle „Code anzeigen“.

  3. Im sich öffnenden VBA-Editor füge folgenden Code ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Not Intersect(Range("A1:D45"), Target) Is Nothing Then
           Range("A1:D45").Interior.ColorIndex = xlNone
           Intersect(Range("A1:D45"), Target).Interior.ColorIndex = 6 '6 = gelb
       End If
    End Sub
  4. Schließe den VBA-Editor und teste die Funktion, indem Du auf die Zellen im Bereich A1 bis D45 klickst.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den Code im richtigen Tabellenmodul eingefügt hast. Es sollte das Modul für das spezifische Blatt sein, nicht in ein allgemeines Modul.
  • Problem: Es ändern sich nicht die gewünschten Zellenfarben.

    • Lösung: Überprüfe, ob der Bereich im Code korrekt definiert ist (A1:D45). Achte darauf, dass die Zellen nicht bereits eine Farbe haben, die den Code überschreibt.

Alternative Methoden

Eine alternative Methode besteht darin, die Zellenfarbe durch einen Doppelklick zu ändern. Hier ist der entsprechende Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:D45")) Is Nothing Then
        Cancel = True
        If Target.Interior.ColorIndex = 4 Then 'Farbe festlegen (z.B. grün)
            Target.Interior.ColorIndex = xlNone
        Else
            Target.Interior.ColorIndex = 4 'Farbe ändern (z.B. grün)
        End If
    End If
End Sub

Füge diesen Code ebenfalls in das entsprechende Tabellenmodul ein, um die Hervorhebungsfarbe zu ändern.


Praktische Beispiele

Wenn Du die Hintergrundfarbe ändern möchtest, kannst Du den ColorIndex auf verschiedene Werte setzen. Hier sind einige Beispiele:

  • Gelb: Target.Interior.ColorIndex = 6
  • Grün: Target.Interior.ColorIndex = 4
  • Rot: Target.Interior.ColorIndex = 3

Diese Werte entsprechen der Excel-Farbenpalette. Du kannst sie beliebig anpassen, um die gewünschten Effekte zu erzielen.


Tipps für Profis

  • Verwende Shortcuts: Um die Füllfarbe schnell zu ändern, kannst Du den Shortcut Alt + H, H verwenden, um das Farbmenü zu öffnen.
  • Experimentiere mit verschiedenen ColorIndex-Werten, um Deine Excel-Zellenfarbe individuell zu gestalten.
  • Denke daran, dass VBA-Makros aktiviert sein müssen, damit die Änderungen wirksam werden.

FAQ: Häufige Fragen

1. Kann ich die Farbe der Zelle ändern, wenn ein bestimmter Wert eingegeben wird?
Ja, Du kannst das mit einer If-Bedingung im VBA-Code realisieren, um die Zellenfarbe basierend auf dem Wert zu ändern.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange Makros aktiviert sind.

3. Ist es möglich, mehrere Farben für verschiedene Zellen zu verwenden?
Ja, Du kannst den Code anpassen, um unterschiedliche Zellenfarben für verschiedene Zellen oder Zellbereiche einzustellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige