Clever-Excel-Forum

Normale Version: Checkbox per VBA aktivieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo VBA - Freunde,

ich stehe wieder mal auf dem Schlauch und komme nicht weiter.

In den Zellen Z38:AG38 steht je nach früherer Auswahl in einem Userform ein X.

Wenn ich nun die Userform zum Ändern der früheren Eingaben aufrufe, möchte ich die entsprechende Ceckbox bei einem X mit schwarzem Häkchen (true) haben,

Mit folgendem Code geht es nicht:
Code:
Private Sub UserForm_Activate()

Dim sonst As String
Dim ExSi As String
Dim Exrgrue As String

sonst = Range("AH38").Value
ExSi = Range("Z38").Value
Exgrue = Range("AA38").Value


If ExSi = "X" Then
CheckBox1.Value = True
End If

'CheckBox1 = ExSi
CheckBox2 = Exgrue
Textbox1.Value = sonst
End Sub
Die Checkbox1 bleibt leer, die Ceckbox2 wird grau.

Wie müsste der Code richtig lauten?

Vielen Dank für eure Anrworten schon im voraus.
Hallo ihr,

mit:
If ExSi = "x" Then CheckBox1.Value = True Else CheckBox1.Value = False

ich hatte am Anfang nur auf ein großes X abgefragt, daran lag mein Fehler.

Danke
Moin,

erst einmal: Schön, dass du deine Lösung hier geschrieben hast. Der Komplettheit wegen:

Code:
If LCase(ExSi) = "x" Then CheckBox1.Value = True Else CheckBox1.Value = False

wäre noch besser (und richtiger) gewesen, denn in dem Fall wird "X" und "x" gleichermaßen akzeptiert.