---

Hallo,

Ich habe ein VBA geschrieben, um Kontrollkästchen ein- und auszublenden (Einmal je nach Text & einmal je nach dem ob man das andere Kontrollkästchen "aktiviert" hat).

Leider aktualisiert sich das VBA nicht automatisch (Kontrollkästchen bleiben immer eingeblendet..was wäre hierfür der Code?

Momentan habe ich das und ich dachte es sei die Lösung:

Private Sub Worksheet_Change(ByVal Target As Range)
Call Checkbox_visible
Call Checkboxsteuern
End Sub

Ich bitte um Hilfe !

edit*

Ah okay, er reagiert nicht bei mehreren Calls wohl.

Wenn ich nur "Call Checkbox_visible" habe, reagiert er automatisch.
Aber ich habe eigentlich ein zweites VBA das sich auch nach jeder Änderung aktivieren soll  

[Diese Nachricht wurde von Starbuzz am 02. Dez. 2015 editiert.]

oder soll ich mal das komplette vba mal hochladen falls euch weitere Fehler auffallen?

[Diese Nachricht wurde von Starbuzz am 02. Dez. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Als Bsp.

Private Sub Worksheet_Change(ByVal Target As Range)
Call Checkbox1_visible
Call Checkboxsteuern
End Sub

-----------------------------------------------------

Private Sub Checkbox1_visible()

If Sheets("Tabelle1").Range("B27").Value = "ABCDE" Then
    CheckBox1.Visible = True
    CheckBox2.Visible = True
Else
    CheckBox1.Visible = False
    CheckBox2.Visible = False
End If
End Sub

----------------------------------------------------------
Private Sub Checkboxsteuern()

If CheckBox1.Value = True Then
   CheckBox2.Visible = False
Else
   CheckBox2.Visible = True
End If

If CheckBox2.Value = True Then
   CheckBox1.Visible = False
Else
   CheckBox1.Visible = True
End If
End Sub

Codes funktionieren auch
Nur das sie automatisch nach einer Änderung starten sollen, nicht

[Diese Nachricht wurde von Starbuzz am 02. Dez. 2015 editiert.]

edit*

Wenn ich nur bei Checkboxsteuern ein call mache, funktioniert das Sub "Private Sub Worksheet_Change(ByVal Target As Range)" nicht richtig.
Ich mache meine Kreuzchen, aber er blendet nicht die anderen Kontrollkästchen aus... erst wenn ich durch eine Dropdown zB etwas andereres auswhähle, führt er das VBA aus.

Gilt ein Worksheet_Change bei ActiveX Steuerelementen einfach nicht?

[Diese Nachricht wurde von Starbuzz am 02. Dez. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Starbuzz,

Mir ist völlig schleierhaft was Du da treibst, eine Beispiel.xls mit VBA-Code wäre hilfreich ...

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

ich habe es doch "mal ebend" gelöst..ich Schwachkopf ^^
Das mit dem Aktualisieren mit 2 Calls klappt doch..nur muss man z.B. zur Aktualisation in ein leeres Feld klicken

KlaK*
Folgendes:
Ich habe am Anfang 30 Formulare erstellt. Dann fiel meinem Chef auf, das 30 zu viel sind und ich diese doch gerne zusammenfasse (Kategorisch).

Also habe ich es folgendermaßen gelöst:
Ich habe um das jw. Formular auszwählen eine Dropdown erstellt. Je nach Auswahl in der Dropdown wird der jw. Text angezeigt.
Hierbei sollten sich auch je nach Texte die dazugehörigen Kontrollkästchen ein und ausblenden (VBA: Checkboxvisible)

Nun wurde aber noch eine weitere Anforderung gestellt:
Wenn ich das Kontrollkästchen zu "JA" anklicke, soll das zu "Nein" sich ausblenden (VBA: Checkboxsteuern).

Und damit es sich immer aktualisiert (nach Dropdownauswahl & wenn ich in ein Kontrollkästchen klicke) habe ich den Sub Befehl "Worksheet_SelectionChange genommen.
Vorher dachte ich es klappt nicht, doch nachdem ich mal auf eine beliebige Zelle geklickt habe, wurden die VBA's richtig ausgeführt.

Liebe Grüße

Starbuzz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Starbuzz,

Wenn Dir das so reicht setze ich mal das gelöst - Häkchen 

Grüße
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Über einfachere Methoden oder Tipps würde ich mich freuen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie schon geschrieben, ohne genauere Kenntnisse des Projektes ist es schwierig Empfehlungen zu geben.
Aber manchmal hilft schon ein Blick in die Hilfe.
Worksheet_SelectionChange wird ausgelöst wenn Du eine Auswahl änderst, deshalb wurden die Änderungen nach klicken auf eine andere Zelle sichtbar.
Manchmal geht es einfacher, wenn man Änderungen durchgeführt hat, diese über ein "DoEvents" sichtbar zu machen. Gerade wenn der Code in einem Modul und nicht im Formular geschrieben ist. Kann ich aber so nicht beurteilen => fehlender Code

Sichtbarkeiten die innerhalb des aktiven Formulars gesetzt werden sollten aber eigentlich gleich durchgeführt werden.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP