Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Checkbox per VBA aktivieren
#1
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.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#2
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
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#3
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.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question CheckBox in freigegebener Arbeitsmappe vici 3 73 22.11.2016, 20:06
Letzter Beitrag: shift-del
  Checkbox "ja-Nein" derhanfti 6 106 18.11.2016, 11:00
Letzter Beitrag: derhanfti
  Grafik mit Makro über Bedingung aktivieren hellidor 2 135 05.10.2016, 08:15
Letzter Beitrag: hellidor
  Wenn Checkbox DANN TEXT + Farbe freeloader1986 8 243 27.09.2016, 13:56
Letzter Beitrag: IchBinIch
  Userform, Checkbox, If-Funktion - mehrere Auswahlmöglichkeiten chrjh 5 251 13.09.2016, 12:08
Letzter Beitrag: IchBinIch
  Entfernte Hyperlinks wieder aktivieren NiSche22 7 320 16.08.2016, 12:01
Letzter Beitrag: Kuwer
  Checkbox soll Wert übergeben Mago 1 162 09.08.2016, 10:45
Letzter Beitrag: IchBinIch
  UserForm mit Checkbox anwählen Travis5002 4 166 03.08.2016, 13:48
Letzter Beitrag: Travis5002
  CheckBox Haken von Anfang an aktiv D K 8 376 03.08.2016, 12:05
Letzter Beitrag: D K
  Checkbox erst nach Bedingung anzeigen M4rcus 2 313 25.06.2016, 11:48
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste