Microsoft Excel

Herbers Excel/VBA-Archiv

Chek box



Excel-Version: 9.0 (Office 2000)

Betrifft: Chek box
von: Fritz
Geschrieben am: 10.06.2002 - 15:23:18

Hallo,
wie kann ich alle "check Box" ( Formular/Kästchen mit Haken)
auf einem Arbeitsblatt mit Hilfe eines Makros aktivieren?
ActiveSheet.Shapes("Check Box 2").Select
ActiveSheet.Shapes("Check Box 3 ").Select
ActiveSheet.Shapes("Check Box 4 ").Select
nicht einzeln sondern alle auf einmal

Bitte helft mir
ich bedanke mich im Voraus
Fritz


  

Re: Chek box
von: PeterA
Geschrieben am: 10.06.2002 - 15:30:45

Hallo Fritz

Meines wissens nur mit einer Schleife


Sub Test()
Anzahl_Box = 3

For x = 1 to Anzahl_Box

ActiveSheets.Shapes("Check Box" & x) = true

next
End Sub



  

Re: Chek box
von: Fritz
Geschrieben am: 10.06.2002 - 15:33:45

Hallo nochmals,
möchte alle Check Box einer Tabelle markieren und
mit unten stehendem Makro die Häkchen entfernen

With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With

Gruß und Dank
Fritz


  

Re: Chek box
von: Fritz
Geschrieben am: 10.06.2002 - 15:44:01

Hallo Peter,
ich habe deinen Vorschlag ausprobiert.
bei der Zeile
ActiveSheets.Shapes("Check Box" & x) = true
bringt er eine Fehlermeldung.
Hilfst du mir nochmal??
Danke, danke
Fritz