Daten einlesen
23.07.2007 10:17:27
walter
habe folgendes Makro für das einlesen der Datenbank in die UF Textboxen, klappt:
Sub Fill_Form(dataRow As Long)
Dim wsData As Worksheet
Dim i, icb As Long
Set wsData = Sheets("Data") ' Datenblatt zuweisen
For i = 1 To 38
UFData.Controls("textbox" & i) = wsData.Cells(dataRow, i).Text
Next
'-------------- hiermit möchte ich die Checkboxen einlesen, wenn in einer Zelle ein Kreuz steht, _
möchte
ich das die Checkbox auf true gesetzt wird. ----------------------------------------------- _
'--- Leider klappt es hiermit nicht:
For icb = 1 To 8
UFData.Controls("CheckBox" & icb) = wsData.Cells(dataRow, icb).Text
UFData.Controls("CheckBox" & icb) = wsData.Cells(dataRow, icb).Value
Was muß ich ändern ?
mfg Walter