Office: Bedingte Formatierung mittels Checkboxen

Fritzy · 10. Januar 2018

Hallo zusammen,

ich habe eine Reihe von Checkboxen und möchte, sobald bestimmte Checkboxen aktiviert sind, die Farbe einer Zelle ändern. (Ampelfarben - rot, grün, gelb)

Ich vermute dies läßt sich in etwa über

Private Sub Worksheet_Change(ByVal Target As Range)
If ...Checkbox1 = active and Checkbox2 = active
Then ...

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lösen. Weiß hier jemand eine Lösung?

Viele Grüße - Fritzy

:)

R J · 12. Januar 2018

...Hi Fritzy,

wann welche Farbe erscheinen soll, weißt Du ja selbst. Auch welche Zellen es betrifft. Aber die Zellfarbe kannst Du so ändern;

Cells(1,1).Interior.Color = RGB(255,0,0) 'rot
Cells(1,1).Interior.Color = RGB(255,255,0) 'gelb
Cells(1,1).Interior.Color = RGB(0,255,0) 'grün

ersatzweise gingen auch die Konstanten vbRed, vbYellow und vbGreen

zurücksetzen mit = xlNone

Hasso · 12. Januar 2018

Hallo Fritzy,

ich würde das im Code des Tabellenblatts, auf dem sich die Checkboxen befinden, so lösen: Code:

Option Explicit

Private Sub CheckBox1_Change()

If CheckBox1.Value = True Then
Range("A1").Interior.Color = vbRed
CheckBox2.Value = False
End If
End Sub
-------------------------------------------------------------------------
Private Sub CheckBox2_Change()

If CheckBox2.Value = True Then
Range("A1").Interior.Color = vbGreen
CheckBox1.Value = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fritzy · 14. Januar 2018

Vielen Dank für die Hinweise und Vorschläge.

Allerdings funktioniert es bisher leider noch nicht. Anscheinend spreche ich die Zellen nicht richtig an über Checkbox1 = Active . Es soll erst eine grüne Farbe oder grünes Zeichen erscheinen sobald eine Reihe von Checkboxen aktiviert sind. (Das können sehr viele sein)

Private Sub Worksheet_Change(ByVal Target As Range)
If CheckBox1 = Active And CheckBox2 = Active And CheckBox3 = Active And CheckBox4 = Active Then Cells(1, 1).Interior.Color = RGB(0, 255, 0) 'grün
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doktor.Mabuse · 14. Januar 2018

Hallo zusammen,

geht das dann auch, daß man in entsprechender Zelle Berechnungen durchführt, wenn entsprechende Häckchen gesetzt sind ?

Schönen Gruß
Peter

Hajo_Zi · 14. Januar 2018

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Durch eine Checkbox wird nicht das Change Ereignis ausgelöst. Es sei Du schreibst beim Checkbox Code was in eine Zelle.

Hasso · 14. Januar 2018

Hallo Fritzy,

das kann auch nicht funktionieren. Es heißt nicht Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If CheckBox1 = Active And CheckBox2 = Active And CheckBox3 = Active And CheckBox4 = Active Then Cells(1, 1).Interior.Color = RGB(0, 255, 0) 'grün
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sondern Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = True And CheckBox4 = True Then
Cells(1, 1).Interior.Color = RGB(0, 255, 0) 'grün
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das hatte ich übrigens in meinem letzten Beitrag auch schon korrigiert...

Fritzy · 14. Januar 2018

\@Doktor.Mabuse: Berechnungen sind einfach möglich. Die Frage hat mich auch auf eine Idee gebracht.

Habe die Checkboxen dadurch mit der üblichen "bedingte Formatierung"-Funktion von Excel verknüpft. Allerdings weiß ich gerade nicht, warum er nach dem deaktivieren weiter hochzählt. Die Beispielexcel habe ich jetzt auch hoffentlich ordentlich benannt. *wink.gif*

Private Sub CheckBox1_Click()
ActiveCell.Select
With Range("A1")
If CheckBox1.Value = True Then
.Value = 1
Else
.Value = ""
End If
End With
End Sub

Private Sub CheckBox2_Click()
If CheckBox1 = True Then
Range("A1") = Range("A1") + 1
Else
Range("A1") = Range("A1")
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox1 = True Then
Range("A1") = Range("A1") + 1
Else
Range("A1") = Range("A1")
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox1 = True Then
Range("A1") = Range("A1") + 1
Else
Range("A1") = Range("A1")
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doktor.Mabuse · 14. Januar 2018

Das meinte ich ja. Ob es möglich wäre, im Code die Formel zu schreiben und wenn dann die Checkbox aktiviert ist, daß dann in entsprechender Zelle das Ergebnis steht.
Beispielsweise ist Checkbox 1 aktiviert, dann soll z.B. das Ergebnis aus "2 x 3" in der Zelle stehen, und wenn Checkbox 2 aktiviert ist, daß dann z.B. das Ergebnis von "3 x 4" .
Weil so wie es jetzt in Deiner Datei ist, wird ja immer nur ein dazu gezählt.

Müßte doch eigentlich auch gehen, oder ??

Schönen Gruß
Peter

Fritzy · 14. Januar 2018

Ja- es ist möglich, jede beliebige Formel hier zu verwenden. (x+1 ist hier nur ein einfaches Beispiel)

Office: Bedingte Formatierung mittels Checkboxen

Bedingte Formatierung mittels Checkboxen

Bedingte Formatierung mittels Checkboxen

Bedingte Formatierung mittels Checkboxen

Bedingte Formatierung mittels Checkboxen

Bedingte Formatierung mittels Checkboxen - Similar Threads - Bedingte Formatierung mittels

Probleme mit bedingter Formatierung

Bedingte Formatierung basierend auf Wert anderer Zelle

Anfängerfrage zur bedingten Formatierung

Negative Datenbalken - bedingte Formatierung

Formatierung eines Datumsfelds, wenn das gleiche Datum woanders erscheint

Bedingte Formatierung / Wiederholungen "ausblenden"

Bedingte Formatierung mittels Formel