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
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 
Lg OVM
PS: bitte um Rückmeldung, danke
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
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
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 IfEnd Sub
Lg
geehrter Herr Müller,
die Steuerungszelle at die Nummer: AD5
Der Name des Kontrollkästchens ist: Kontrollkästchen6Ich habe ihre Zeilen wie folgt angepasst:
Sub Kontrollkästchen6_BeiKlick()
If Cells(AD5).Value = 1 Then
Checkbox6.Value = True
Else
Checkbox6.Value = False
End IfEnd Sub
Leider ändert sich das Kästen nicht automatisch, wenn ich den
Wert anpasse.Haben Sie noch eine Idee?
Gruß Buck
Hallo,
versuch es mal mit bedingter Formatierung:
Excel Hilfe - Hinzufügen eines bedingten Formats
Gruß
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
.
.
.
.