Controls("Checkbox"....) wird nicht erkannt

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TheTrust3343.

    Controls("Checkbox"....) wird nicht erkannt

    Hallo


    Ich habe ein kleines Problem bei der Anwendung von Checkboxen in Verbindung mit Controls.

    In der Excel stehen jeweils Wahr/Falsch und diese sollen beim einlesen dann entsprechend als Checkbox ausgegeben/dargestellt werden.
    Mit dem einlesen des Textes in eine Textbox funktioniert es, aber nicht bei einer Checkbox. Schätze mal das wird ein Problem mit dem
    Dateityp sein, aber ich weis nicht wirklich weiter.
    Dank euch.

    Visual Basic-Quellcode

    1. Private Sub LastInputs()
    2. Dim LastRow As Integer
    3. Dim FirstLastRow As Integer
    4. Dim Maschine As String
    5. Dim wstTab As Worksheet
    6. Dim lngZeile As Integer
    7. Dim intTxtID As String
    8. Dim intLastTxtID As Integer
    9. On Error Resume Next
    10. Set wstTab = ThisWorkbook.Sheets(Me.txtMaschine.Text)
    11. LastRow = (wstTab.Cells(Rows.Count, 1).End(xlUp).Row) 'Letzte Zeile mit Informationen
    12. FirstLastRow = LastRow - 10 'Erster der letzten 10 Einträge
    13. intLastTxtID = 0
    14. With wstTab
    15. lngZeile = LastRow 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    16. Do Until lngZeile = FirstLastRow
    17. intTxtID = intLastTxtID + 1
    18. intLastTxtID = intTxtID
    19. Controls("txtDatumLast" & intTxtID) = CStr(.Cells(lngZeile, 2))
    20. [color=#FF0000]Controls("chkSichtprüfungLast" & intTxtID).Value = CStr(.Cells(lngZeile, 5).Value)[/color]
    21. lngZeile = lngZeile - 1 'Nächste Zeile bearbeiten
    22. Loop
    23. End With
    24. End Sub
    Ich denke das ganze liegt daran das du versucht einen String in die Value zu schreiben.
    Die Value akzeptiert aber meines Wissens nach nur Booleans. Also versuch mal folgendes:

    VB.NET-Quellcode

    1. ​[color=#FF0000]Controls("chkSichtprüfungLast" & intTxtID).Value = CBool(.Cells(lngZeile, 5).Value)[/color]


    Mfg
    Conway's Game Of Life Monogame Sample: 80%

    Conway's Game Of Life Monogame Sample