Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CheckBoxen

CheckBoxen
21.10.2007 19:05:00
Ernst
Guten Abend Forum
Kann mir jemand behilflich sein und den untenstehenden Code vereinfachen.
mfg
Ernst Dunkel

Sub cbDeaktivieren()
Sheets("U-Werte").CheckBox1.Value = False
Sheets("U-Werte").CheckBox2.Value = False
Sheets("U-Werte").CheckBox3.Value = False
Sheets("U-Werte").CheckBox4.Value = False
Sheets("U-Werte").CheckBox5.Value = False
Sheets("U-Werte").CheckBox6.Value = False
Sheets("U-Werte").CheckBox7.Value = False
Sheets("U-Werte").CheckBox8.Value = False
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBoxen
21.10.2007 19:11:00
Josef
Hallo Ernst,
Sub cbDeaktivieren()
Dim intI As Integer

For intI = 1 To 8
    Sheets("U-Werte").OLEObjects("CheckBox" & intI).Object.Value = False
Next

End Sub

Gruß Sepp

Anzeige
Danke
21.10.2007 19:13:24
Ernst
Hallo Sepp
Herzlichen Dank für Deine schnelle Hilfe.
Wünsche Dir noch einen schönen Abend.
Grüsse aus der Schweiz
Ernst Dunkel

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige