checkbox i userform

I Excel-VBA: ThisWorkbook
Når mappen åbnes - kaldes formularen "modeless" *) - d.v.s. at du kan arbejdei arket, mens formularen er åben. Ark1 aktiveres

Sub workbook_activate()
    Load UserForm1
    UserForm1.Show 0                          '*)
    ActiveWorkbook.Sheets(1).Activate
End Sub


I VBA - ARK1
Den markerede celle test forom længden af indhold er > 0....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Len(Target) > 0 Then
        UserForm1.CheckBox1 = True
    Else
        UserForm1.CheckBox1 = False
    End If
End Sub

Hej supertekst
Det var ikke helt sådan det skulle forstås.
jeg har følgende kode:

Sub read_data(mlrowdisplayed)
  txtModtaget_i_by.Text = Cells(mlrowdisplayed, 3)
  TxtBil.Text = Cells(mlrowdisplayed, 5)
  txtStartDato.Text = Cells(mlrowdisplayed, 6)
End Sub

som bruges til at læse et indhold ind i en userform, som resultat af en søgning. Kolonne 4 indeholder oplysning om der er tale om en stationcar. Denne oplysning repræsenteres i userformen i form af en checkbox. Checkboxen er skal være true, hvis det er en stationcar og hvis ikke det er tilfældet skal værdien være false. Dvs. hvis cellen er tom (altså ikke en stationcar), så skal værdien være false. Hvordan kan man gøre det i praksis?

if Cells(mlrowdisplayed, 4) = "" then
CheckBox1 = False
else
CheckBox1 = True
end if

Her er også et par muligheder
    CheckBox1.Value = ((ActiveSheet.Range("A1").Value) = True)
    CheckBox1.Value = Not (IsEmpty(ActiveSheet.Range("A1").Value))

Kabbak -> det var præcis det jeg søgte - læg et svar, så du kan få point.

Flemmingdahl -> din løsning kunne faktisk også anvendes, men Kabbaks løsning var lige til at sætte ind i min kode, men tak for indsatsen og inspirationen.

et svar ;-==