Office: (Office 2007) Wenn wert in Zelle dann Checkbox in Userform aktivieren

kolrabina · 3. August 2014

Hi ZUsammen,
habe ein kleines Problem.

Ich habe z.B. im aktiven Blatt in den Zellen C201 bis C213 einen Wert stehen.
Ich habe auch eine Userform mit 12 Checkboxen.

Nun möchte ich, wenn ich die UF starte meine Checkbox aktiviert ist, wenn in der o.g. Zelle ein Wert steht. Wenn die Zelle leer ist, soll auch die Checkbox nicht aktiviert sein beim öffnen der Userform.

ALso:
wenn Wert in C201, dann Checkbox1 in der Userform aktiv
wenn Wert in C202, dann Checkbox2 in der Userform aktiv
wenn Wert in C203, dann Checkbox3 in der Userform aktiv
.
.
usw. bis Wert C213, dann Checkbox12 aktiv.

Kann mir jemand helfen?

P.S. Das ganze hat folgenden Sinn. Ich wollte, dass die aktivierten Checkboxen in der Userform immer aktiv bleiben, auch wenn ich Excel schließe und wieder öffne. Daher habe ich nun ein Makro, dass wenn ich eine CB aktiviere, in einer Hilfstabelle ein "x" reingeschrieben wird. Nun möchte ich wenn die Userform gestartet wird geprüft wird, ob ein X in der Zelle steht und wenn ja soll die Checkbox wieder aktiviert werden.
War bisher ziemlich viel arbeit für mich, aber evtl. kennt ihr ja ne einfachere Lösung für die Zukunft *Smilie
vielen Dank schonmal an euch...

:)

chris-kaiser · 5. August 2014

Hi,

code auf das UF

Code:

Private Sub UserForm_Activate()
Dim sh As Worksheet, i as Integer
Set sh = Sheets("Tabelle1")
With sh
For i = 1 To 12
Me.Controls("Checkbox" & i).Value = (.Cells(200 + i, 3).Value "")
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 5. August 2014

Hi,

schreibe die relevante Zelladresse in die Tag-Eigenschaft jeder CheckBox, dann kannst du sie mit folgendem Code beim Start des UserForms aktivieren

Code:

Private Sub UserForm_Activate()
Dim bytBox As Byte
For bytBox = 1 To 12
Me.Controls("CheckBox" & bytBox) = Range(Me.Controls("CheckBox" & bytBox).Tag) = "x"
Next bytBox
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kolrabina · 6. August 2014

HEy vielen Dank euch beiden für die Antworten, aber leider habe ich es mit den beiden Möglichkeiten nicht hinbekommen. Bin bestimmt zu blöd *wink.gif* Aber habe noch nicht viel Erfahrung damit.

ALso ich habe nun beim 2. Beispiel folgenden code in die Userform eingefügt

P.S. habe es für 2 Checkboxen angepasst zum testen.

PHP:

Private Sub uf_monat_Activate() Dim bytBox As Byte For bytBox = 1 To 2 Me.Controls("CheckBox" & bytBox) = Range(Me.Controls("CheckBox" & bytBox).Tag) = "x" Next bytBox End Sub

Beverly · 6. August 2014

Hi,

die Codezeile muss heißen

Code:

Private Sub UserForm_Activate()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Name des UserForms ist hier irrrelevant. Mit UserForm wird das Objekt an sich angesprochen - ähnlich wie z.B. beim Worksheet_Change-Ereignis eben das Worksheet, in dem sich die Prozedur befindet.

kolrabina · 7. August 2014

Hammer, super, funktioniert *wink.gif*

Vielen vielen Dank für die Hilfe....

Viele Grüße '

Office: (Office 2007) Wenn wert in Zelle dann Checkbox in Userform aktivieren

Wenn wert in Zelle dann Checkbox in Userform aktivieren

Wenn wert in Zelle dann Checkbox in Userform aktivieren

Wenn wert in Zelle dann Checkbox in Userform aktivieren

Wenn wert in Zelle dann Checkbox in Userform aktivieren - Similar Threads - wert Zelle Checkbox

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zelle wert null wenn in anderer Zelle wert noch null

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Wert einer Zelle kopieren wenn..

Wert einer Zelle neben einer anderen Zelle automatisch anzeigen

Wenn in Zelle bestimmter Wert dann kopieren

wie Anpassen mit Formel Abhängig vom Vorgänger