Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei ankreuzen (Kästchen) Zellen grün färben

Forumthread: Bei ankreuzen (Kästchen) Zellen grün färben

Bei ankreuzen (Kästchen) Zellen grün färben
Arthur
Hallo zusammen
Ich habe für jede Zeile ein Kästchen zum Ankreuzen eingefügt in der Spalte A. Ist es möglich die Zellen A2 bis und mit A5 grün zu färben, wenn das Kästchen bei A1 angekreuzt wurde.
Dann dann für alle anderen Zeilen ebenfalls. Ohne Kästchen ist das eine Bedingte Formatierung, aber geht es auch mit Kästchen?
Vielen Dank für eure wertvolle Hilfe!
Arthur
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 21:32:56
Hajo_Zi
Hallo Arzhur,
weise dem Kästenchen ein Makro zu das dies macht.

AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 21:52:10
Arthur
Danke vielmals. Aber ich kenne mich mit makros leider nicht aus.
Kann mir dies jemand schreiben?
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 21:58:18
Hajo_Zi
Hallo Arthur,
Option Explicit
Sub A1faerben()
If Range("A2").Interior.ColorIndex = xlNone Then
Range("a2:a5").Interior.Color = 65280
End If
End Sub
Gruß Hajo
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 22:26:38
Arthur
Danke vielmals Hajo
Ich habe mit meinen bescheidenen Macrokenntnissen das Makro eingefügt, noch ein bisschen abgeändert und dem Häcken zugewiesen. Es passt alles, ausser wenn ich wieder das Häcken klicke, bleibt es natürlich grün. Wie mache ich das wenn es angekreuzt grün ist und wenn nicht gelb?
Option Explicit
Sub A1faerben()
If Range("A2").Interior.ColorIndex = xlNone Then
Range("a5:n5").Interior.Color = 6723891
End If
End Sub

Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 22:48:09
Reinhard
Hallo Arthur, 
Sub A1faerben()
Range("a5:n5").Interior.Color = _
IIf(Range("A2").Interior.ColorIndex  xlNone, xlNone, 6723891)
End Sub

Gruß
Reinhard
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 22:54:34
Arthur 

Sub A1faerben()
Range("a5:n5").Interior.Color = _
IIf(Range("A2").Interior.ColorIndex  xlNone, xlNone, 6723891)
End Sub
Vielen Dank Reinhard
Aber irgendwie geht das so nicht, wenn ich ankreuze wirds grün, wenn ich das Kreuz wegmache ist es immer noch grün.
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 23:20:58
Reinhard
Hallo Arthur, 
Sub A1faerben()
Range("a5:n5").Interior.Color = _
IIf(Range("A5").Interior.ColorIndex  xlNone, xlNone, 6723891)
End Sub

Gruß
Reinhard
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 23:28:04
Arthur
Hallo Reinhard
Jetzt geht gar nichts mehr. Schau ich habe dir die Datei hochgeladen.
Probiert habe ich es beim Kästchen J5
https://www.herber.de/bbs/user/79088.xls
Vielen Dank für deine Hilfe!!
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
24.02.2012 23:55:42
Reinhard
Hallo Arthur, 
Sub A1faerben()
Dim Zei As Long
With ActiveSheet.Shapes(Application.Caller)
Zei = .TopLeftCell.Offset(1, 0).Row
Range("A" & Zei & ":N" & Zei).Interior.Color = _
IIf(.ControlFormat.Value  1, xlNone, 6723891)
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
26.02.2012 23:32:54
Peter
Hallo Arthur,
das Häkchen-Steuerelement solltest du mit "Steuerelement formatieren" auf (z.B.) die Zelle "o5" zuordnen und gleichzeitig den "Makro1" zuweisen. Hier der Makro1:
Sub Makro1()
If Range("o5") = True Then
Range("a5:n5").Select
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Range("a5:n5").Select
With Selection.Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("a5").Select
End If
End Sub

Bei gesetztem Häkchen wird die Zeile 5 grün, macht man das Häkchen raus, wird die Zeile entfärbt. Evtl. in den Makro andere Farben einsetzen.
M.f.G. Peter Kloßek
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 14:47:39
Arthur
Vielen Dank Reinhard und Peter
Es funktioniert jetzt mit eurer Hilfe! Was ich noch ändern möchte:
Das Häkchen ist in J5, wenn ich das jetzt ankreuze oder nicht ankreuze steht in der Zelle J5 im Hintergrund (hinter dem Häken: false oder true
1. Wie kann ich das ausblenden?
2. Wenn ich ankreuze wird A5:N5 grün, was ja auch gut ist, aber es markiert zugleich diese Zellen, das will ich nicht. Wenn es nicht angekreuzt ist, ist A5:N5 gelb, was ja auch gut ist und A5 ist "markiert".
Vielen Dank für eure Hilfe!
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 14:59:19
Rudi
Hallo,
1. Zellformat benutzerdefiniert ;;;
2. 
Sub Makro1()
With Range("a5:n5")
With .Interior
If Range("O5") = True Then
.ColorIndex = 43
Else
.ColorIndex = xlNone
End If
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
.Cells(1).Select
End With
End Sub

Gruß
Rudi
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 15:10:28
Arthur
Perfekt, hat beides geklappt, vielen Dank!!
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 14:59:50
Arthur
Jetzt habe ich aber nochmal ein anderes Problem:
Ich habe ja nicht nur die Zeile 5, sonder Zeile 5 bis 427, für jede Zeile muss ein Häcken und der Mechanismus - grün - gelb verfügbar sein.
Wie mache ich das?
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 15:08:21
Rudi
Hallo,
warum machst du nicht einfach ein X in die Zellen und arbeitest mit bedingter Formatierung?
Gruß
Rudi
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 15:13:39
Arthur
Das hab ich ja schon bei meinem 1. Post geschrieben, man könnte es mit x und bedingter Formatierung machen, aber ich möchte es mit den Häkchen. Damit ich auch was lerne und es später mit Häkchen selber erstellen kann.
Das ist jetzt das Makro das wunderbar funktioniert für die Zeile 5:
Sub Makro1()
With Range("a5:n5")
With .Interior
If Range("J5") = True Then
.ColorIndex = 4
Else
.ColorIndex = 3
End If
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
.Cells(1).Select
End With
End Sub
Wie kann ich dies jetzt am besten für weitere Zeilen anwenden mit möglichst wenig Aufwand?
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 16:04:21
Rudi
Hallo,
allen Kästchen dieses Makro zuweisen: 
Sub Faerben()
Dim oObj As Object, lngRow As Long
Set oObj = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
lngRow = Range(oObj.LinkedCell).Row
With Range(Cells(lngRow, 1), Cells(lngRow, 14))
With .Interior
If oObj = 1 Then
.ColorIndex = 4
Else
.ColorIndex = 3
End If
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
.Cells(1).Select
End With
End Sub

Die Zellverknüpfung muss natürlich stimmen.
Gruß
Rudi
Anzeige
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 16:15:32
Arthur
Danke vielmals Rudi
Das heisst ich muss bei jedem Häkchen (427) die Zellverknüpfung einzeln zuweisen und auch dann das Makro zuweisen? Einfacher gehts wohl leider nicht?
AW: Bei ankreuzen (Kästchen) Zellen grün färben
27.02.2012 16:33:24
Arthur
Hallo Rudi
Ich habe es rausgefunden wie (im Internet gefunden):
Sub Zelle()
Dim S As Shape
For Each S In ActiveSheet.Shapes
If S.Name Like "Scroll Bar*" Or S.Name Like "Check Box*" Then
S.ControlFormat.LinkedCell = S.TopLeftCell.Address
End If
Next S
End Sub

Es wird wirklich an der Zeit, dass ich mir irgendwie VBA Kenntnisse aneigne!
Jetzt klappt alles, vielen Dank an Alle!
Anzeige
S.TopLeftCell
28.02.2012 09:19:58
Rudi
Hallo,
die liegt in deiner Bsp-Datei aber eine Zeile höher. Kästchen für Z5 hat die obere linke Ecke in Zeile 4!
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Wenn "Ja" dann zähle +1
Georg

Hallo.
Ich habe leider nicht so viel Ahnung von Excel, darum hier meine Frage:
Ich möchte in einer Zelle zählen, wie oft in einem Bereich das Wort Ja in einer Zelle steht. Wie kann ich das machen?
Danke schon mal im Voraus!
04.02.2010 15:42:44
Thread-ID: 1135816
3 Beiträge
Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang

Hallo,
der nachfolgende Code teilt eine Summe ggfs. nach Jahren auf. Wie muss ich den Code ändern, damit eine Abfrage "eingebaut" wird, die überprüft, ob das Jahr -intB5j- mit der Jahreszahl in Tabelle "Daten", Zelle M1 übereinstimmt. Wenn ja, dann entsprechend weiter.
Wenn nein, dann n...
21.02.2010 08:29:01
Thread-ID: 1139974
6 Beiträge
wenn CheckBox Ja, dann in Zwischenablage
Wolfgang

Hallo,
mit dem nachstehenden Code realisiere ich, dass der Text in B29 befindlich (Tabellenblatt Start) bei Betätigen in die Zwischenablage kopiert wird. Ich habe nun noch eine CheckBox1 in das Tabellenblatt eingefügt und würde nun gerne erreichen, dass bei aktiver CheckBox zum Text aus B29...
24.03.2010 19:05:30
Thread-ID: 1148206
5 Beiträge
Zeile Farbig markieren Wenn Wert 1250 & Höher Ist
Leo

Tag Excel Cracks,
ich raff es einfach nicht,
was ich wie machen muss damit mir die E SPALTE bei einem Wert von 1250 & höher farbig (am besten in ROT) selbstständig automatisch aufgefüllt wird !?
Hier meine Vorarbeit ...
@ https://www.herber.de/bbs/user/93321.xls
Für Eur...
23.10.2014 17:44:34
Thread-ID: 1388295
5 Beiträge
Anzeige
VBA - Prüfe ob Datei existiert, wenn ja dann copy
D.Müller

Hallo liebes Forum,
ich habe folgendes Problem:
Ich habe eine Userform erstellt in der man einen Namen eingibt und dann mit einem Button eine anfrage an Powershell gesendet wird. Das funktioniert auch alles super.
Nun soll noch folgendes hinzukommen.
Wenn man die Anfrage sendet...
23.04.2015 11:30:12
Thread-ID: 1422687
2 Beiträge
wenn Ja dann Datum heute
Mario

Hallo Leute,
ich brauche noch einmal eure Hilfe.
Wenn ich in Zelle "F5" ja eintrage soll er in Zelle "K5" den heutigen Tag eintragen und wenn in "F5" nein steht soll "K5" leer bleiben. Kann mir jemand die Formel nennen.
Gruß Mario
02.06.2016 18:29:33
Thread-ID: 1496547
16 Beiträge
Wenn-Funktion (Wenn ja, dann Bild)
Andre
Hallo Ihr Profis,kennt jemand eine Möglichkeit in Excell bei einer Wenn-Funktion statt eines Textes auch eine Datei(Bild) aufzurufen? Also in der Art:wenn Zelle A1
05.02.2003 10:40:52
Thread-ID: 214148
5 Beiträge
Wenn neues Jahr dann Makro einmalig ausführen
Josef

Hallo!
Ich habe in einer Zelle mit der Formel
=TEXT(HEUTE();"JJJJ")
das aktuelle Jahr stehen.
Wenn jetzt in dieser Zelle am 02.01.ein neues Jahr eingetragen wird, dann soll ein Makro einmalig durchgeführt werden und die geänderte Arbeitsmappe unter einem neuen Namen abgespeiche...
23.08.2006 06:23:55
Thread-ID: 794458
4 Beiträge
wenn Checkbox aktiv dann Inputbox Filtern
achim

Hallo Excel Freunde
habe schon mal versuchr aber leider
bekomme das nicht ganz ohne fehlermeldung hin
wer kann mal schauen
Private Sub CommandButton2_Click() Dim pNr1 As Variant Range("F4").Select pNr1 = InputBox("Tag") With Range("F4") Sheets.(ActiveSheet.CheckBoxAlle.Value)...
07.09.2006 13:04:07
Thread-ID: 799535
2 Beiträge
Anzeige
Wenn L11 das Ergebnis Januar, dann in $F$113 Ergeb
H@ns

Wenn L11 das Ergebnis Januar, dann in $F$113 Ergebnis aus G107
Hallo zusammen.
Alle Jahre wieder benötige ich mal von den Excelindianern die nette Hilfe.
Die Zelle F113 hat das Format [h]:mm
Die Zelle G107 hat das Format [h]:mm
Die Zelle $L$11 hat das Format MMMM
Ich möc...
12.12.2006 11:37:47
Thread-ID: 828515
4 Beiträge
Suchen ob Text in Zelle wenn ja dann ...
Mathias

Hallo zusammen und noch nen gesundes neues Jahr,
so mal ne Frage an alle!
also zunächst: ich habe ein Excel-Arbeitsblatt wo Daten von Produktionsstückzahl und Eigenschaften zu dem Erzeugnis stehen.
sieht dann so aus:
Spalte F steht Stückzahl
Spalte U steht Eigenschaft, Tex...
11.01.2007 12:54:44
Thread-ID: 836191
15 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zellen grün färben bei Ankreuzen von Kontrollkästchen in Excel

Schritt-für-Schritt-Anleitung

  1. Kontrollkästchen einfügen:

    • Gehe zu Entwicklertools > Einfügen > Kontrollkästchen (Formularsteuerelement).
    • Füge ein Kästchen in die Zelle ein, z.B. in J5.

  2. Makro erstellen:

    • Öffne den VBA-Editor durch Drücken von ALT + F11.
    • Füge ein neues Modul hinzu: Rechtsklick auf VBAProject, dann Einfügen > Modul.

  3. Makro-Code für das Färben der Zellen:

    • Kopiere und füge den folgenden Code in das Modul ein: 
      Sub Makro1()
 With Range("A5:N5")
     If Range("J5") = True Then
         .Interior.ColorIndex = 4 ' Grün
     Else
         .Interior.ColorIndex = 3 ' Gelb
     End If
 End With
End Sub

  4. Makro zuweisen:

    • Klicke mit der rechten Maustaste auf das Kontrollkästchen und wähle Steuerelement formatieren.
    • Im Tab Steuerung wähle das Makro Makro1 aus.

  5. Testen:

    • Klicke das Kontrollkästchen an, um die Farbe der Zellen A5:N5 zu ändern.

Häufige Fehler und Lösungen

  • Problem: Zellen bleiben grün, auch wenn das Kästchen nicht angekreuzt ist.

    • Lösung: Stelle sicher, dass die Zellverknüpfung korrekt ist und der Code überprüft, ob das Kästchen aktiviert ist.

  • Problem: Häkchen zeigt TRUE oder FALSE in der Zelle an.

    • Lösung: Verwende benutzerdefinierte Zellformate ;;;, um den Text auszublenden.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die bedingte Formatierung nutzen:

  1. Wähle die Zellen A5:N5 aus.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die Formel ein: =J5=TRUE.
  5. Setze die Formatierung auf grün.
  6. Füge eine zweite Regel hinzu für =J5=FALSE und setze die Formatierung auf gelb.

Praktische Beispiele

  1. Kästchen für mehrere Zeilen:

    • Du kannst das Makro anpassen, um mit einer Schleife zu arbeiten, sodass es für mehrere Zeilen funktioniert. 
      Sub Faerben()
 Dim oObj As Object, lngRow As Long
 Set oObj = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
 lngRow = Range(oObj.LinkedCell).Row
 With Range(Cells(lngRow, 1), Cells(lngRow, 14))
     With .Interior
         If oObj.Value = 1 Then
             .ColorIndex = 4 ' Grün
         Else
             .ColorIndex = 3 ' Gelb
         End If
     End With
 End With
End Sub

  2. Verknüpfung der Kästchen mit Zellen:

    • Verwende S.TopLeftCell.Address, um die Zellen für die Kästchen dynamisch zu verknüpfen.

Tipps für Profis

  • Zellverknüpfungen automatisieren: Nutze eine Schleife, um die Zellverknüpfungen für alle Kästchen schnell zu erstellen.
  • Versteckter Text: Du kannst den Hintergrund der Zelle so einstellen, dass Wahrheitswerte nicht sichtbar sind, um die Benutzeroberfläche sauber zu halten.
  • Farbwahl: Experimentiere mit verschiedenen ColorIndex-Werten für unterschiedliche Farben.

FAQ: Häufige Fragen

1. Wie kann ich das Kästchen so formatieren, dass es in einer bestimmten Farbe erscheint?
Du kannst die Eigenschaften des Kontrollkästchens über das Menü Steuerelement formatieren anpassen.

2. Wie kann ich die Formatierung für mehrere Zeilen gleichzeitig anwenden?
Verwende eine Schleife im VBA-Code, um die Formatierung für alle gewünschten Zeilen gleichzeitig anzuwenden.

3. Kann ich auch andere Steuerelemente verwenden?
Ja, du kannst auch andere Steuerelemente wie Optionsfelder oder Kombinationsfelder verwenden, um ähnliche Effekte zu erzielen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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