Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
addieren aus Textboxes, wenn Checkbox aktiv
Wolfgang

Hallo,
ich hatte mir gedacht, dass nachstehender Code funktionieren müsste. Macht er aber nicht; er zeigt mir zwar die einzelnen Summen in Textbox10 an, aber addiert sie nicht zu einer Gesamtsumme. Was mache ich verkehrt? - Ich würde also gerne erreichen, dass,sofern die jeweilige CheckBox...
17.10.2009 08:32:39
Thread-ID: 1110232
11 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
Register/Tabellenblatt in Formel einbinden
Tobias

Hallo miteinander
In einem xls-sheet habe ich Verknüpfungen auf Register gemacht (z.B. =Tabelle3!C9+Tabelle5!A11).
Habe im laufe der Zeit ein neues Register mit einem neuen Tabellenblatt eingefügen.
Besteht die Möglichkeit die Formel so zu automatisieren, damit sie mit dem neuen Tab...
22.02.2010 14:09:38
Thread-ID: 1140346
6 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
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
6
3
6
10
2
8
5
6
2
4
2
18
3
4
2
4
7
4
6
1
1
6
5