Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro zum Steuern von checkboxen

Makro zum Steuern von checkboxen
09.10.2006 13:47:46
checkboxen
Hallo,
ich habe eine Excelmappe mit vielen Checkboxen.
Nun möchte ich, da es sich um ein Formular handelt, in Abhängigkeit
von einem Zellenwert diverse Grundeinstellungen erzeugen.
z.B. A1=1-&gt Grundeinstellung 1;A1=2 -&gtGrundeinstellung 2 ...usw.
Die Häckchen sollen aber nicht fest sein, sondern sich noch ändern lassen, falls es erforderlich ist.
Ich brauche also ein Makro, welches ich jedem Kästchen zuweisen kann und dass sich aktiviert oder deaktiviert in Abhängigkeit von der jeweiligen Grundeinstellung.
Vielen Dank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Steuern von checkboxen
09.10.2006 22:33:55
checkboxen
Hallo Chthomas,
ich schlage folgende Makrostruktur vor:
1. Ein Makro, das auf die Werteingabe in der Zelle A1 regiert.
Abhängig vom Eingabewert wird dann jeweils ein Makro gestartet, das die Grundeinstellungen der Checkboxen bewirkt.
2. Für jede Grundeinstellung gibt es ein Makro
Die Makros muss du im VBA-Editor unter der Tabelle mit den Checkboxen eintragen
Gruss
Franz
Beispielmakros:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Select Case Target.Value
Case 1
Call Grundeinstellung1
Case 2
Call Grundeinstellung2
Case 3
Call Grundeinstellung3
Case Else
'do nothing
MsgBox "unzuläsiger Wert für Zelle A1! Nur Werte von 1 bis 3"
End Select
End If
End Sub
Private Sub Grundeinstellung1()
'Für Check-Boxen aus der Symbol-Leiste "Steuerelement-Toolbox"
Me.CheckBox1.Value = True
Me.CheckBox2.Value = False
Me.CheckBox3.Value = False
'Für Check-Boxen aus der Symbol-Leiste "Formular"
Me.Shapes("Kontrollkästchen 1").ControlFormat.Value = xlOn
Me.Shapes("Kontrollkästchen 2").ControlFormat.Value = xlOff
Me.Shapes("Kontrollkästchen 3").ControlFormat.Value = xlOff
End Sub
Private Sub Grundeinstellung2()
'Für Check-Boxen aus der Symbol-Leiste "Steuerelement-Toolbox"
Me.CheckBox1.Value = True
Me.CheckBox2.Value = True
Me.CheckBox3.Value = False
'Für Check-Boxen aus der Symbol-Leiste "Formular"
Me.Shapes("Kontrollkästchen 1").ControlFormat.Value = xlOn
Me.Shapes("Kontrollkästchen 2").ControlFormat.Value = xlOn
Me.Shapes("Kontrollkästchen 3").ControlFormat.Value = xlOff
End Sub
Private Sub Grundeinstellung3()
'Für Check-Boxen aus der Symbol-Leiste "Steuerelement-Toolbox"
Me.CheckBox1.Value = False
Me.CheckBox2.Value = False
Me.CheckBox3.Value = True
'Für Check-Boxen aus der Symbol-Leiste "Formular"
Me.Shapes("Kontrollkästchen 1").ControlFormat.Value = xlOff
Me.Shapes("Kontrollkästchen 2").ControlFormat.Value = xlOff
Me.Shapes("Kontrollkästchen 3").ControlFormat.Value = xlOn
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige