aximand
Goto Top

Checkbox Value -4146 ??

Moin zusammen.

Folgender Code:

  Set rng = Worksheets("Tabelle1").Range(Cells(lrow, 15), Cells(lrow, 15)) 
    Set cb = Worksheets("Tabelle1").CheckBoxes.Add(Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height) 
    cb.Name = lrow & "false" 
    cb.Caption = "" 
    cb.OnAction = "QSfalse" 
    cb.Value = False
    MsgBox cb.Value


Hier wird mir immer wieder -4146 ausgegeben, egal ob ich die Chebox mit Value = true oder false setze. Die Darstellung (angehakt/nicht angehakt) ist je nach Value richtig.
Woran mag das liegen??

Content-ID: 381137

Url: https://administrator.de/forum/checkbox-value-4146-381137.html

Ausgedruckt am: 04.04.2025 um 06:04 Uhr

SachsenHessi
SachsenHessi 24.07.2018 um 09:51:50 Uhr
Goto Top
Hallo,
versuche es mal mit den Excel-Konstanten.
Bsp:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A2").Value = "Test" Then  
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn  
    Else
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff  
    End If
End Sub
LG
Frank
SeaStorm
Lösung SeaStorm 24.07.2018 um 10:21:37 Uhr
Goto Top
Willkommen in Excel face-sad
Wert 1 ist Checked, 2 ist Mixed(grau), -4146 ist Unchecked

Besser sind die von @SachsenHessi erwähnten Konstanten xlOn und xlOff
Aximand
Aximand 24.07.2018 um 10:55:28 Uhr
Goto Top
Ja geil, Danke für die iNfo mit dem Unchecked -4146.
Hatte ich auch schon nach gesucht aber nix passendes gefunden, darum hier gefragt face-smile

Warum das bei mir egal ob checked oder unchecked auf -4146 steht möchte ich natürlich auch erwähnen.

Ich bin gerade in der Testphase und bei jedem Klick auf den Button StartTest wird im Prinzip das gemacht, was später beim Aufrufen des Sheets auch erfolgen soll. Dummerweise habe ich vergessen, dass die bereits bestehenden Checkboxen natürlich auch entfernt werden müssen. So gab es ca. 100 Checkboxen mit zum Teil identischen Namen.... Dann kann das nich funzionieren face-smile

Danke für die Info und Hilfe!
SachsenHessi
SachsenHessi 24.07.2018 um 11:33:51 Uhr
Goto Top
Noch ein Tipp..
im VB-Editor kann man sich mit Taste [F2] den Objektbrowser anzeigen lassen.
Dort kann man sich unter <Global> alle Konstanten (beginnen mit xl...) und auch sonstige Objekte (mit ihren Parametern) anzeigen lassen.
y2018-07-24_113201

LG
Frank