Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Trick bei vielen CheckBoxen ?

Trick bei vielen CheckBoxen ?
04.03.2004 10:45:17
Steve
Hallo zusammen,
ich habe folgendes Makro:

Private Sub CheckBox1_Click()
With Sheets("Berechnungen").Range("B2")
If CheckBox1.Value = True Then
.Value = 1
Else
.Value = ""
End If
End With
End Sub

Wenn ich nun nicht eine sondern ca. 100 solcher Checkboxen habe, gibt es einen Trick, mit dem ich im Editor nicht jedes einzelne Makro manuell ändern muß ?
(Also aus "B2" im nächsten Makro "B3" machen usw..)
Vielen Dank schonmal
Steve

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

Betreff
Datum
Anwender
Anzeige
AW: Trick bei vielen CheckBoxen ?
04.03.2004 14:00:12
DetlefD
Hallo Steve
versuch es mal so:
With Sheets("Berechnungen").Range("B2")
for x = 1 to 10
If Me.Controls("checkbox" & x).value = True Then
.Value = 1
Else
.Value = ""
End If
next x
End With
End Sub
Die Checkboxen müßen allerdings all gleich bezeichnet sein bis auf eine Nummer zB. checkbox1, checkbox2, checkbox3...
Anstatt der Zahl steht dann die Variable x.
Gruß,
Detlef
danke schonmal
04.03.2004 15:03:34
Steve
ich werde das nachher in Ruhe testen..
Grüße
Steve

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige