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
  Checkbox wert ausgeben hbboy15 14 282 10.01.2017, 22:22
Letzter Beitrag: hbboy15
  Checkbox zeilenabhänig vervielfältigen hbboy15 8 141 02.01.2017, 17:31
Letzter Beitrag: schauan
  Zeilen kopieren wenn Checkbox true tobi85 5 119 14.12.2016, 16:12
Letzter Beitrag: tobi85
Question CheckBox in freigegebener Arbeitsmappe vici 3 114 22.11.2016, 20:06
Letzter Beitrag: shift-del
  Checkbox "ja-Nein" derhanfti 6 141 18.11.2016, 11:00
Letzter Beitrag: derhanfti
  Grafik mit Makro über Bedingung aktivieren hellidor 2 190 05.10.2016, 08:15
Letzter Beitrag: hellidor
  Wenn Checkbox DANN TEXT + Farbe freeloader1986 8 339 27.09.2016, 13:56
Letzter Beitrag: IchBinIch
  Userform, Checkbox, If-Funktion - mehrere Auswahlmöglichkeiten chrjh 5 318 13.09.2016, 12:08
Letzter Beitrag: IchBinIch
  Entfernte Hyperlinks wieder aktivieren NiSche22 7 388 16.08.2016, 12:01
Letzter Beitrag: Kuwer
  Checkbox soll Wert übergeben Mago 1 198 09.08.2016, 10:45
Letzter Beitrag: IchBinIch

Gehe zu:


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