Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Checkbox nicht aktiv, Format ändern

Forumthread: Wenn Checkbox nicht aktiv, Format ändern

Wenn Checkbox nicht aktiv, Format ändern
28.08.2006 10:29:21
mtremer
Hallo Excel-Freunde,
folgende Situation:
Ich habe fünf CheckBoxen.
Wenn keine dieser Checkboxen aktiviert ist, sollen alle Boxen eine bestimmte Farbe ändern (z.B. Rot).
Wenn eine davon aktiv ist, sollen sie z.B. grau sein.
Wie ist das möglich?
Viele Grüße
Marco
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Checkbox nicht aktiv, Format ändern
28.08.2006 11:57:33
Alex
Hi Marco,
Zuerst musst Du (in der entwurfsansicht des Formulars) in die Tag-Eigenschaft deiner Checkbdoxen "chk" schriben.
Dann im Code musst du bei jeder Checkbox das Change-Ereigniss auslösen. z.B:

Sub CheckBox1_Change
' Auf Macro ChngeColor verweisen
ChangeColor
End Sub



Sub ChangeColor
Dim ctr As Control
Dim bChecked As Boolean
For Each ctr In Me.Controls
If ctr.Tag = "chk" Then
If ctr.Value = True Then
bChecked = True
Exit For
End If
End If
Next
If bChecked Then
Checkbox1.BackColoer = 40 'Farbe anpassen
' usw
Else
Checkbox1.BackColor = 3 'Farbe anpassen
' usw
End If
End Sub

Anzeige
AW: Wenn Checkbox nicht aktiv, Format ändern
28.08.2006 12:28:11
mtremer
Hallo Alex,
danke für die schnelle Antwort.
Jedoch klappt es nicht. Ich weiss nicht, wie ich die Tag-Eigenschaft ändern kann.
Ich füge noch zu meiner Erklärung von vorhin hinzu:
Ich habe mehrere Gruppen, die aus mehreren Checkboxen bestehen.
Für mein Beispiel nehmen wir zwei Gruppen mit je zwei Boxen.
Innerhalb der Gruppen habe ich aber keine Verbindung zwischen den beiden Boxen.
Jede Box trägt folgenden Code:

Private Sub CheckBox1_Click()
With ActiveSheet
.Unprotect ""
With CheckBox1
If .Value Then
.TopLeftCell.Offset(1, 0).Value = .Caption
Else
.TopLeftCell.Offset(1, 0).ClearContents
End If
End With
.Protect ""
End With
End Sub

Ist das über Deinen Code möglich?
Viele Grüße
Marco
Anzeige
AW: Wenn Checkbox nicht aktiv, Format ändern
28.08.2006 13:24:50
Alex
Hi Marco,
Formular in der Entwurfsansicht öffnen F4 drücken, alle Checkboxen markeren, Eigenschaft Tag (siehe Anhang) suchen und Wert chk eintragen.
Userbild
Gruss Alex
AW: Wenn Checkbox nicht aktiv, Format ändern
28.08.2006 14:46:28
mtremer
Leider kenne ich mich noch nicht gut genug bei VBA aus, wie man sieht ;-)
Ich komme noch nicht mal in den Entwurfmodus. Den Code zu jeder Checkbox habe ich mit Rechtsklick und Code anzeigen eingegeben...
Bevor wir die Farbe ändern, sollten wir die Zusammenhänge der einzelnen Checkboxen klären. Muss ich die zusammengehörenden irgendwie verbinden oder als Gruppe zusammenfassen?
Denn wenn eines der ChexBoxen gewählt wurde, muss das andere gesperrt werden. Dann kann die Farbe auch geändert werden.
Es scheint doch ganz schön schwer zu werden...
Danke für Deine Geduld.
Viele Grüße
Marco
Anzeige
AW: Wenn Checkbox nicht aktiv, Format ändern
29.08.2006 07:53:42
Alex
HiMarco,
Lade deine Datei mal hoch.
Gruss Alex
AW: Wenn Checkbox nicht aktiv, Format ändern
29.08.2006 11:10:49
mtremer
ich hab´s befürchtet ;-)
Hier der Link: https://www.herber.de/bbs/user/36253.xls
Kannst Du sie öffnen? Das war mein erstes Mal...
Die Datei habe ich hier nur vereinfach dargestellt. Ich hoffe Du kannst damit etwas anfangen.
Danke.
Viele Grüße
Marco
Anzeige
;

Forumthreads zu verwandten Themen

Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
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
Tabelle mit Wenn-Funktion
mehmet

Hallo Forum,
ich versuche eine Liste mit nur einem Eingabefeld zu erarbeite.
Leider komme ich nicht voran.
Als Anlage habe ich die Datei (Ohne Makro, braucht auch nicht) hoch geladen.
https://www.herber.de/bbs/user/61008.xls
Es handelt sich hier um folgende Wasserbehälter:...
06.04.2009 09:18:14
Thread-ID: 1067016
7 Beiträge
Verschachtelungen mit Wenn-Funktionen
Gießbach

Hallo Zusammen,
habe ein Problem:
Und zwar versuche ich gerade eine Berechnung unserer Frachtkosten bei einem Spediteur zu erstellen. Ich habe eine Matrix mit in Spalte A angegebenen Gewichten und in den Spalten B bis I die Kosten für das jeweilige Gewicht von/bis. Dazu sind die Preiss...
11.05.2009 15:50:07
Thread-ID: 1074386
4 Beiträge
Dezimal in Bin mit wenn funktion
Matthias

Hallo,
wie kann man Dezimalzahlen in Binärzahlen nur mit einer wenn funktion umwandeln?
viele grüße
Matthias
09.09.2009 17:14:58
Thread-ID: 1101589
7 Beiträge
Wenn die aktive Zelle in letzter Zeile dann Makro
Karsten

Hallo,
Kann mir jemand bei folgeden Befehl helfen:
Wenn die aktive Zelle in der letzten Zeile (also unten, über dem Tabellennamen) des sichtbaren Bereichs steht, soll Makro1 ausgeführt werden. Wenn nicht, dann weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.11.2009 15:07:54
Thread-ID: 1116229
3 Beiträge
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
If CheckBox5.Value = Checked Then
Raphael

Hallo zusammen,
ich habe das Problem das ich bei der Betätigung meiner CheckBox5 die Fehlermeldung "Object required" erhalte.
Ich möchte hinter diese CheckBox eine If Formel bauen, das bedeutet wenn sie checked ist, soll etwas gemacht werden, und wenn sie uncheckt ist was anderes,
D...
10.03.2010 15:19:30
Thread-ID: 1144893
7 Beiträge
Wenn Sheet aktiviert dann Autofilter
Michael

Hallo zusammen,
ich hab ein Problem und zwar:
Wenn der User z.B. Tabelle1 aktviert/anklickt dann soll Autofilter aktiviert werden und in der Spalte F der Wert "1" gefiltert werden.
Eine Lösung mit eine Commandbutton hab ich schon es geht mir eher darum, wenn der User keine Button kl...
24.03.2010 17:43:49
Thread-ID: 1148196
3 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
Anzeige
Koeffizienten in Formel einbinden
Kurt

Hallo Forum,
ich wende mich an Euch mit folgender Bitte.
Ich habe eine Formel in Spalte B. Diese Formel hat als EIngangsvariable die Werte der Spalte A.
Die Koeffizienten stehen in den Zeilen 1 bis 4 (a,b,c,d).
Ich suche nun einen Weg (Makro), die Koeffizienten per Makro in ein...
28.03.2010 22:06:00
Thread-ID: 1148981
3 Beiträge
Wenn Checkbox aktiv, Radiobutton auch. Funzt nicht
Timo

Hi ihr alle!Ich habe auch mal ein kleines Problem:
Ich arbeite zur Zeit an einem grösseren VBA-Projekt und möchte, dass wenn eine bestimmte Checkbox markiert (checked) ist, dass ein RadioButton ebenfalls gechecked wird. Dies ist notwendig, da im nächsten Sub, das aufgerufen wird, eine Abfrag...
23.05.2002 15:36:03
Thread-ID: 123163
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige