Kontrollkästchen in Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Kontrollkästchen in Userform von: Benjamin
Geschrieben am: 20.03.2005 21:34:20

Hallo,
ich habe eine Tabelle entworfen und in dieser Tabelle habe ich einige Kontrollkästchen eingefügt.

Nun ist meine Frage wie ich dieses Kontrollkästchen in ein Userform einfüge?
Also wie ich ein Kontrollkästchen in das Userform einfüge, weiß ich.

Nur wie erstelle ich die Verknüpfung zwischen dem Kontrollkästchen im Userform und dem in der Tabelle ?

Wie setze ich alle Kontrollkästchen durch einen Klick auf einen Button in den ausgangszustand?

Ich hoffe Ihr blickt durch was ich meine

Im vorraus besten dank
Benjamin

Bild


Betrifft: AW: Kontrollkästchen in Userform von: GraFri
Geschrieben am: 21.03.2005 07:27:43

Hallo

Vielleicht hilft dir folgender Code weiter.



      
Option Explicit

Dim chkStatus(1 To 3) As Boolean ' für 3 Kontrollkästchen


Private Sub UserForm_Initialize()
' Ausgangszustand der Kontrollkästchen ermitteln
  With Worksheets("Tabelle1")
    chkStatus(1) = .chkTabelle1.Value
    
'...
    '...
' Status des Kontrollkästchens in der UF übernehmen
  chkUF1.Value = .chkTabelle1.Value
    
'...
    '...
  End With

End Sub

Private Sub chkUF1_Click()

' dazugehöriges Kontrollkästchen in der Userform ändern
  Worksheets("Tabelle1").chkTabelle1.Value = chkUF1.Value

End Sub


Private Sub cmdAusgangszustand_Click()

' Ausgangszustand der Kontrollkästchen ermitteln
  With Worksheets("Tabelle1")
    .chkTabelle1.Value = chkStatus(1)
    
'...
    '...
' Wenn der Status dauch in der UF übernommen werden soll
  chkUF1.Value = .chkTabelle1.Value
    
'...
    '...
  End With

End Sub

 

     Code eingefügt mit Syntaxhighlighter 3.0

Bei weiteren Fragen einfach melden.

mfg, GraFri


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kontrollkästchen in Userform"