Microsoft Excel

Herbers Excel/VBA-Archiv

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

Alle Buttons ausblenden

Betrifft: Alle Buttons ausblenden von: Dirk (KR)
Geschrieben am: 04.08.2008 12:32:45

Hallo zusammen,
nach langer Zeit brauche ich mal wieder Hilfe.

Ich denke ich sehe mal wieder den Wald vor lauter Bäumen nicht.
In der Recherche wurde ich nicht fündig.

Ich möchte alle Buttons ausblenden, deren Caption ="" ist.
Kann ich das in einem Rutsch oder muss ich für jeden button ein

if Sheets(1).CommandButton1.Caption = "" then
Sheets(1).CommandButton1.Visible = False einsetzen ?

Die Beschriftung der Buttons ziehe ich aus einer dazugehörigen Zelle.

Vielen Dank im voraus

Gruß
Dirk (KR)

  

Betrifft: AW: Alle Buttons ausblenden von: Rudi Maintaire
Geschrieben am: 04.08.2008 12:42:53

Hallo,
da musst du schon mit einer Schleife drüber.
Das If kannst du dir aber sparen.
z.B.
With Sheets(1).CommandButton1
.Visible =.Caption <>""
End with

Gruß
Rudi


  

Betrifft: AW: Alle Buttons ausblenden von: Dirk (KR)
Geschrieben am: 04.08.2008 13:10:42

Hi Rudi,

danke für deine schnelle Hilfe.
Werde es dann so machen.

Gruß
Dirk (KR)


 

Beiträge aus den Excel-Beispielen zum Thema "Alle Buttons ausblenden"