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.
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
- Private Sub LastInputs()
- Dim LastRow As Integer
- Dim FirstLastRow As Integer
- Dim Maschine As String
- Dim wstTab As Worksheet
- Dim lngZeile As Integer
- Dim intTxtID As String
- Dim intLastTxtID As Integer
- On Error Resume Next
- Set wstTab = ThisWorkbook.Sheets(Me.txtMaschine.Text)
- LastRow = (wstTab.Cells(Rows.Count, 1).End(xlUp).Row) 'Letzte Zeile mit Informationen
- FirstLastRow = LastRow - 10 'Erster der letzten 10 Einträge
- intLastTxtID = 0
- With wstTab
- lngZeile = LastRow 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
- Do Until lngZeile = FirstLastRow
- intTxtID = intLastTxtID + 1
- intLastTxtID = intTxtID
- Controls("txtDatumLast" & intTxtID) = CStr(.Cells(lngZeile, 2))
- [color=#FF0000]Controls("chkSichtprüfungLast" & intTxtID).Value = CStr(.Cells(lngZeile, 5).Value)[/color]
- lngZeile = lngZeile - 1 'Nächste Zeile bearbeiten
- Loop
- End With
- End Sub