Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige