HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kontrollkästchen in Userform

Kontrollkästchen in Userform
20.03.2005 21:34:20
Benjamin
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

1
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Kontrollkästchen in Userform
21.03.2005 07:27:43
GraFri
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
mfg, GraFri

Links zu Excel-Dialogen

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!