PDA

Vollständige Version anzeigen : Userform Checkbox füllen


Jens
04.07.2014, 17:07
einen schönen Abend allen im Forum

ich versuche schon eine ganze Zeit eine Userform Checkbox per VBA zu füllen.
Die Daten sollen aus einer Tabelle kommen.
Versucht habe ich bereits
If Worksheets("Eingabe Patientendaten").Cells(Me.SpinButton1.Value, 15).Value = "ja" Then
'MsgBox Me.Abtransport
Me.Abtransport = .Cells(Me.SpinButton1.Value, 15).Value

Die MsgBox zeigt den richtigen Wert an. Nur die Checkbox"Abtransport" bringt nicht das Ergebnis.
Wer kann mir hier helfen?

Jens

hary
04.07.2014, 17:40
Moin
Du moechtest eine Checkbox mit Wert fuellen?
Oder ist es eine Textbox?
Hast du eine with Anweisung, da du einen Punkt vor Cells hast?
.Cells(Me.SpinButton1.Value, 15).Value
was ergibt:
MsgBox Cells(Me.SpinButton1.Value, 15).Value
gruss hary

Jens
04.07.2014, 17:55
Hallo Hary

hier mal der komplette Code
Private Sub SpinButton1_Change()
If Me.SpinButton1.Value > 4 Then 'MsgBox "Auswahl OK"
With Worksheets("Eingabe Patientendaten")
Me.Standort = .Cells(Me.SpinButton1.Value, 1).Value
Me.Datum = .Cells(Me.SpinButton1.Value, 2).Value
Me.Zeit = Format(.Cells(Me.SpinButton1.Value, 3).Value, "hh:mm")
Me.Anrede = .Cells(Me.SpinButton1.Value, 4).Text
Me.Namen = .Cells(Me.SpinButton1.Value, 5).Text
Me.Vorname = .Cells(Me.SpinButton1.Value, 6).Text
Me.Straße = .Cells(Me.SpinButton1.Value, 7).Value
Me.PLZ = .Cells(Me.SpinButton1.Value, 8).Text
Me.Ort = .Cells(Me.SpinButton1.Value, 9).Text
Me.Geburtsdatum = .Cells(Me.SpinButton1.Value, 10).Value
Me.Telefon = .Cells(Me.SpinButton1.Value, 11).Value
Me.Fundort = .Cells(Me.SpinButton1.Value, 12).Text
Me.Verletzung = .Cells(Me.SpinButton1.Value, 13).Text
Me.Verletzung.Tag = .Cells(Me.SpinButton1.Value, 13).Text
Me.Maßnahmen = .Cells(Me.SpinButton1.Value, 14).Text
Me.Maßnahmen.Tag = .Cells(Me.SpinButton1.Value, 14).Text
'If Worksheets("Eingabe Patientendaten").Cells(Me.SpinButton1.Value, 15).Value = "ja" Then
'MsgBox Me.Abtransport
Me.Abtransport = .Cells(Me.SpinButton1.Value, 15).Value
'End If
'Me.Abtransport = .Cells(Me.SpinButton1.Value, 15).Text
Me.Abtransport.Tag = True
Me.AbtransportZiel = .Cells(Me.SpinButton1.Value, 16).Text
Me.AbtransportZiel.Tag = .Cells(Me.SpinButton1.Value, 16).Text
End With
End If
'Me.Caption = "Patient Nr. " & Me.SpinButton1.Value & " Wiedervorlage der Patientendaten"

On Error GoTo weiter

weiter:
End Sub
me.Abtransport ist eine Checkbox

hary
04.07.2014, 18:05
Moin
Meinst du das hier:
Me.Abtransport.Caption = .Cells(Me.SpinButton1.Value, 15).Text
gruss hary

Jens
04.07.2014, 18:10
Hallo
ne , ich wollte die Checkbox auf True oded False stellen

Jens

hary
04.07.2014, 18:13
Moin
Dann
Me.Abtransport.Value = .Cells(Me.SpinButton1.Value, 15).Text
gruss hary

Jens
04.07.2014, 18:29
Hallo Hary
Me.Abtransport.Caption = .Cells(Me.SpinButton1.Value, 15).Text zeigt den Wert richtig an
Me.Abtransport.Value = .Cells(Me.SpinButton1.Value, 15).Text
zeigt die Checkbox deaktiviert an und es ist immer als ja sichtbar.
Die Chekbox kann aber geändert werden

Jens

hary
05.07.2014, 06:35
Moin
Die Chekbox kann aber geändert werden
Ist das eine Frage? Und das soll sie nicht???

Me.Abtransport.Value = .Cells(Me.SpinButton1.Value, 15)
Me.Abtransport.Locked = True

gruss hary