Steuern von Kontrollkästchen über Zellenwerte

Computer: Software & Programmierung Visual Basic
1

Hallo,

ich habe folgendes Problem. In einer Zelle steht endweder 1 oder 0. Je nach dem, welcher Wert in dieser Zelle steht, soll sich ein Kontrollkästchen entweder aktiv oder inaktiv schalten, ohne das ich es zusätzlich anklicke.

Für Eure Hilfe schon jetzt meinen Dank.

Gruß Buck

2

Hallo Buck,

If cells(2,1).value = 1 then
Checkboxname.value = true
Else
Checkboxname.value = false
End if

Cells(zeilennummer, spaltennummer)

Checkboxname ist dder Name der checkbox :wink:

Lg OVM

PS: bitte um Rückmeldung, danke

3

Das ist ganz einfach: in Abhängigkeit vom Zellinhalt CheckBox.Value = True/False setzen.
Aber Achtung: bei True wird eine zugeordnete Ereignisroutine aktiviert.
Viel Erfolg
Rainer

4

Sehr geehrter Herr Müller,

die Steuerungszelle at die Nummer: AD5
Der Name des Kontrollkästchens ist: Kontrollkästchen6

Ich habe ihre Zeilen wie folgt angepasst:

Sub Kontrollkästchen6_BeiKlick()

If Cells(AD5).Value = 1 Then
Checkbox6.Value = True
Else
Checkbox6.Value = False
End If

End Sub

Leider ändert sich das Kästen nicht automatisch, wenn ich den Wert anpasse.

Haben Sie noch eine Idee?

Gruß Buck

5

Hall nochmal. Soweit ist das richtig mit dem sub.
Wenn die das steuerelement ber kontrollkästchen6 heißt, muss das wie folgt aussehen. Außerdem muss Mann cells mit Zeilen u d spaltennummer angeben

Sub Kontrollkästchen6_BeiKlick()

If Cells(30,5).Value = 1 Then
Kontrollkästchen6.Value = True
Else
Kontrollkästchen6.Value = False
End If

End Sub

Lg

geehrter Herr Müller,

die Steuerungszelle at die Nummer: AD5
Der Name des Kontrollkästchens ist: Kontrollkästchen6

Ich habe ihre Zeilen wie folgt angepasst:

Sub Kontrollkästchen6_BeiKlick()

If Cells(AD5).Value = 1 Then
Checkbox6.Value = True
Else
Checkbox6.Value = False
End If

End Sub

Leider ändert sich das Kästen nicht automatisch, wenn ich den
Wert anpasse.

Haben Sie noch eine Idee?

Gruß Buck

6

Hallo,

versuch es mal mit bedingter Formatierung:

Excel Hilfe - Hinzufügen eines bedingten Formats

Gruß

7

Hallo Buck,

Also , das geht eigentlich ganz einfach. Ist es die selbe Spalte in der diese Werte 1 oder 0 stehen? Wenn ja könnte man das so machen wie mit der Anleitung unten was ich geschrieben habe. Falls du noch mehr Hilfe brauchst dann wäre ein bisschen mehr Information nicht schlecht. Steht da neben jeder Zeile da eine Checkbox oder wie?

MFG

'Auswahl der Tabelle
Worksheets(„Tabelle1“).Select
'Die gesamt Anzahl der Zeilen in der Liste zählen
ZeileL = Cells(Rows.Count, 2).End(xlUp).Row
'Schleife mit der er von der obersten bis zur
'letzten Zeile durchläuft
For Zeile = 1 To ZeileL
'Hier ist jetzt die Spalte 7 eingetragen , diesen
'Wert kannst du dann an deine Tabelle anpassen
If Sheets(„1“).Cells(ZeileL, 7).Value = „1“ Then
.
.
.
If Sheets(„1“).Cells(ZeileL, 7).Value = „0“ Then
.
.
.
.