Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellfarbe per doppelklick ändern

Zellfarbe per doppelklick ändern
18.06.2004 14:27:05
Alex
Hi liebe Exellisten,
unzwar suche ich ein VBA um alles in den Spalten A und B bei doppelklick auf die zelle in hellgrün zu ändern. Also ich möchte bei doppelklick die Zellfarbe auf hellgrün ändern. Aber nicht auf dem ganzenblatt sondern nur in den Zellen a und b. diese soll aber über mehrere blätter möglich sein. Kann mir da jemand helfen. ?
Gruß Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe per doppelklick ändern
Boris
Hi Alex,
in das Modul "Diese Arbeitsmappe":

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If .Column > 2 Then Exit Sub
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 3, xlNone)
End With
'Cancel = True
End Sub

Wechselt immer zwischen rot (3) und leer - den Farbcode für hellgrün hatte ich grad nicht zur Hand.
Grüße Boris
Anzeige
AW: Zellfarbe per doppelklick ändern
Alex
vielen dank für die schnelle Hilfe.
Gruß Alex
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellfarbe per Doppelklick in Excel ändern


Schritt-für-Schritt-Anleitung

Um die Zellfarbe in den Spalten A und B per Doppelklick in Excel zu ändern, musst du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne die Excel-Datei, in der du die Funktion implementieren möchtest.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Im Projektfenster, doppelklicke auf "Diese Arbeitsmappe" (ThisWorkbook).

  4. Füge folgenden Code in das Modul ein:

    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
       With Target
           If .Column > 2 Then Exit Sub
           If .Interior.ColorIndex = xlNone Then
               .Interior.ColorIndex = 35 ' Farbcode für hellgrün
           Else
               .Interior.ColorIndex = xlNone
           End If
       End With
       Cancel = True
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Teste die Funktion, indem du auf eine Zelle in den Spalten A oder B doppelklickst.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht.

    • Lösung: Stelle sicher, dass du den Code in das richtige Modul (Diese Arbeitsmappe) eingefügt hast.
  • Problem: Die Zellfarbe wird nicht geändert.

    • Lösung: Überprüfe, ob du die Excel-Datei als Makro-fähige Datei (.xlsm) gespeichert hast.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du die Zellfarbe auch manuell ändern:

  1. Wähle die Zelle aus.
  2. Gehe zu Start > Füllfarbe und wähle die gewünschte Farbe aus.

Diese Methode ist jedoch nicht so effizient wie die VBA-Lösung, da sie keine Doppelklick-Funktionalität bietet.


Praktische Beispiele

Angenommen, du möchtest die Zellen A1 und B1 in hellgrün ändern. Mit dem obigen VBA-Code kannst du einfach auf die Zelle doppelklicken, und sie wird automatisch die Farbe ändern. Wenn du wieder auf die Zelle doppelklickst, wird die Farbe zurückgesetzt.


Tipps für Profis

  • Du kannst die Farbwerte im Code ändern, um andere Farben zu verwenden. Eine Liste der Farbindizes findest du in der Excel-Dokumentation.
  • Teste die VBA-Makros in einer Kopie deiner Datei, um unbeabsichtigte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Frage
Kann ich diese Funktion auf mehrere Blätter anwenden?
Ja, der Code funktioniert in allen Blättern der Arbeitsmappe, solange er im Modul "Diese Arbeitsmappe" eingefügt ist.

2. Frage
Was ist der Farbcode für andere Farben?
Farbcode-Listen findest du in der Excel-Dokumentation oder durch das Aufzeichnen eines Makros, während du die Farben änderst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige