Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Nochmal check box



Excel-Version: 9.0 (Office 2000)

Betrifft: Nochmal check box
von: Fritz
Geschrieben am: 11.06.2002 - 09:07:39

Bitte nochmals um Hilfe.
Warum funktioniert das Makro nicht?
Muß ich zwischen Check Box und &x eine Leerstelle einfügen, wie macht man das?
Sub Test()
Anzahl_Box = 10
'Dim x
For x = 1 To Anzahl_Box
ActiveSheets.Shapes("Check Box" & x) = True
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With
Next x
End Sub

  

Re: Nochmal check box
von: PeterA
Geschrieben am: 11.06.2002 - 09:40:02

Hallo Fritz

Der fehler ist wahrscheinlich das ganze mit den "Shapes".
So wird die Checkbox auf True gesetzt. Am besten du vergisst diue Schleife und löst es so ==>

Tabelle1.CheckBox1 = True
Tabelle1.CheckBox2 = True
Tabelle1.CheckBox3 = True

Ciao Peter


  

Re: Nochmal check box
von: Fritz
Geschrieben am: 11.06.2002 - 12:47:36

Hallo Peter,
vielen Dank, aber dein Vorschlag kann nicht funktionieren.
Probiere es selbst.
Aber trotzdem vielen Dank für dein Bemühen.
Ich gebe auf
Gruß
Fips

  

Re: Nochmal check box
von: PeterA
Geschrieben am: 12.06.2002 - 12:16:21

Hallo Fritz

Ich habs probiert mit genau dem Code und es hat funktioniert

Ciao Peter