2 Farben per Doppelklick in Zelle erzeugen

Forumthread: 2 Farben per Doppelklick in Zelle erzeugen

05.12.2019 15:55:49

MaBlu

Hallo
ich möchte eine Tabelle Zellen mit einer Hintergrundfarbe belegen, das ganze soll mit 2 Farben funktionieren, ich habe ein Beispiel gefunden mit einer Farbe und Doppelklick. Wie muss ich das Makro abändern ?
Ich habe mir überlegt ob eventuell
1. "+und Doppelklick" die 1 Farbe (Rot) erzeugt
2. "Doppelklick" die 2. Farbe (Blau) erzeugt
3. "- und Doppelklick" löscht die Hintergrundfarbe wieder
ich weiss nicht ob das geht?
Wenn nicht könnte man das Makro 2 mal mit Unterschiedlichen Farben eingeben und die Zellen fix zuordnen welche Farbe durch Doppelklick erzeugt wird.
Der Gesamte Bereich ist C4:AW65
Betroffen sind nur die Spalten C,E,G...usw bis AW
bei den Zellen
Farbe Blau
C4,E4,G4...usw bis AW4
C6,E6,G6....usw bis AW6
C8,E8,G8... usw
Farbe Grün
C5,E5,G5...usw bis AW5
C7,E7,G7...usw bis AW7
C9,E9,G9...usw
Ich habe eine Beispielmappe erstellt wie ich es meine Tabell1
In der Tabell ist ein Makro mit Farbwechsel für Rot in bestimmtem Bereich da weiss ich aber nicht wie ich das umschreiben müsst ist nur als wie soll es Funktionieren gedacht?
https://www.herber.de/bbs/user/133625.zip
Für eure Hilfe besten Dank
Gruss MaBlu

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

bedingte Formatierung: =REST(ZEILE();2)=1

05.12.2019 16:38:49

Matthias
AW: bedingte Formatierung: =REST(ZEILE();2)=1

05.12.2019 23:33:50

MaBlu
AW: 2 Farben per Doppelklick in Zelle erzeugen

05.12.2019 16:50:00

fcs
AW: gelöst

05.12.2019 23:08:53

MaBlu

bedingte Formatierung: =REST(ZEILE();2)=1

05.12.2019 16:38:49

Matthias

Hallo
Warum nimmst Du denn nicht die bedingte Formatierung?
Frag den Rest von Zeile()/2 ab und setze die Farbe, wenn der Rest=1 ist.
bedingte Formatierung-Formel:
=REST(ZEILE();2)=1
und Farbe einstellen.
Es gibt ja nur Rest=0 oder Rest=1
also hast Du wechselmässig je Zeile eine andere Farbe.
Gruß Matthias

AW: bedingte Formatierung: =REST(ZEILE();2)=1

05.12.2019 23:33:50

MaBlu

Hallo Matthias
das möchte ich nicht, es werden nicht alle Zellen gefärbt.
Gruss MaBlu

AW: 2 Farben per Doppelklick in Zelle erzeugen

05.12.2019 16:50:00

fcs

Hallo Mablu,
mit der rechten Maus-Taste kann man das besser umsetzen.
Zelle oder Zellbereich markieren. Dann rechte Maustaste und in der MsgBox die gewünschte Aktion auswählen.
LG
Franz

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngZelle As Range
Select Case Target.Row
Case 4 To 65
Select Case Target.Column
Case 3 To 49 'Spalten C bis AW
Cancel = True
Select Case MsgBox("Farben ändern" & vbLf _
& "Ja = farben änder" & vbLf _
& "Nein = Farben zurücksetzen", vbDefaultButton3 + vbYesNoCancel, _
"farbformatierung Zellen")
Case vbYes
For Each rngZelle In Target.Cells
If rngZelle.Row >= 4 And rngZelle.Row = 3 And rngZelle.Column = 4 And rngZelle.Row = 3 And rngZelle.Column

AW: gelöst

05.12.2019 23:08:53

MaBlu

Hallo Franz
vielen Dank eine neue Idee, aber die ist Gut besten dank so kann ich mein Problem lösen.
Wünsche eine schönen Abend
Gruss MaBlu

Infobox / Tutorial

Zwei Farben in einer Zelle Excel erzeugen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um zwei Farben in einer Zelle in Excel zu erzeugen, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Anleitung, wie Du dies umsetzen kannst:

Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du die Farben ändern möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Rechtsklick auf "VBAProject (DeineArbeitsmappe)".
- Wähle Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("C4:AW65")) Is Nothing Then
       Cancel = True
       If Target.Interior.Color = RGB(255, 0, 0) Then
           Target.Interior.Color = RGB(0, 0, 255) ' Blau
       ElseIf Target.Interior.Color = RGB(0, 0, 255) Then
           Target.Interior.Color = xlNone ' Hintergrundfarbe löschen
       Else
           Target.Interior.Color = RGB(255, 0, 0) ' Rot
       End If
   End If
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Doppelklicke auf eine Zelle im Bereich C4:AW65, um die Hintergrundfarbe zu ändern.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Überprüfe die Sicherheitseinstellungen unter Datei > Optionen > Trust Center.
Fehler: Zellen färben sich nicht wie gewünscht.
- Lösung: Überprüfe, ob Du die richtige Zellreferenz im Code verwendet hast. Die Zeilen und Spalten müssen korrekt eingestellt sein.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen:

Markiere den Zellbereich (z.B. C4:AW65).
Gehe zu Start > Bedingte Formatierung > Neue Regel.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
Gib die Formel =REST(ZEILE();2)=0 für eine Farbe ein und wähle die gewünschte Formatierung.
Erstelle eine zweite Regel mit der Formel =REST(ZEILE();2)=1 für die andere Farbe.

Diese Methode eignet sich gut, um 2 Farben in einer Zelle ohne VBA zu erstellen.

Praktische Beispiele

Hier sind einige Beispiele zur Verwendung des Makros:

Beispiel 1: Doppelklicke auf eine Zelle in der Reihe 4, um die Zelle rot zu färben. Ein weiterer Doppelklick färbt die Zelle blau.
Beispiel 2: Doppelklicke erneut auf die blaue Zelle, um die Farbe zurückzusetzen.

Mit diesen einfachen Schritten kannst Du 2 Farben in einer Zelle Excel nutzen und so Deine Daten visuell hervorheben.

Tipps für Profis

Nutze die Tastenkombination ALT + F8, um schnell zwischen Makros zu navigieren.
Experimentiere mit verschiedenen RGB-Farben, um das Aussehen Deiner Zellen zu personalisieren.
Überlege, ob Du die Zellen per Rechtsklick anpassen möchtest, um mehr Flexibilität zu haben.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen? Du kannst die RGB-Werte im Code ändern, um andere Farben zu verwenden. Einfach die Zahlen in RGB(255, 0, 0) ersetzen.

2. Funktioniert das in allen Excel-Versionen? Ja, die Methoden sollten in allen modernen Excel-Versionen funktionieren, die VBA unterstützen.

3. Kann ich mehrere Bereiche gleichzeitig formatieren? Ja, Du kannst den Zellbereich im Code anpassen, um zusätzliche Bereiche hinzuzufügen.

Beliebteste Forumthreads (12 Monate)

2 Farben per Doppelklick in Zelle erzeugen

Forumthread: 2 Farben per Doppelklick in Zelle erzeugen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zwei Farben in einer Zelle Excel erzeugen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread