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"