CommandButton

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: CommandButton
von: Daniel R.
Geschrieben am: 13.06.2002 - 14:53:00

Hallo
Ich muss in einer Tabelle 13 Befehlsschaltflächen (CommandButtons) plazieren. Wie kann ich diese mit Hilfe einer Schleife alle "unsichtbar" machen. Der folgende Code funktioniert nicht:
for i = 1 to 13
CommandButton&i.Visible=False
next
Besten Dank für eine Antwort.
Gruss Daniel R.


nach oben   nach unten

Re: CommandButton
von: Hajo
Geschrieben am: 13.06.2002 - 15:02:18

Hallo Daniel

versuchs nach folhgendem Prinzip


Private Sub CommandButton1_Click()
    Dim As Integer
    For I = 2 To 4
        Shapes("CommandButton" & I).Visible = False
    Next
End Sub

Gruß Hajo


nach oben   nach unten

Re: CommandButton
von: Martin Beck
Geschrieben am: 13.06.2002 - 15:12:04

Hallo Daniel,

wenn auf dem Tabellenblatt keine anderen Forms sind:


Sub Buttons_unsichtbar1()
For i = 1 To 13
    ActiveSheet.Shapes(i).Visible = False
Next i
End Sub

ansonsten:


Sub Buttons_unsichtbar2()
For i = 1 To 13
    With ActiveSheet.Shapes(i)
        If Left(.Name, 13) = "CommandButton" Then
            .Visible = False
    End If
    End With
Next i
End Sub

Gruß
Martin Beck

nach oben   nach unten

Re: CommandButton
von: Daniel R.
Geschrieben am: 13.06.2002 - 16:07:16

Funktioniert!

Herzlichen Dank für die prompte Antwort.
Daniel R.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "CommandButton"