Checkbox per VBA aktivieren

[Heinz Ulm]

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.

[Heinz Ulm]

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

[GMG-CC]

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.