Anzeige
Archiv - Navigation
1060to1064
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
Inhaltsverzeichnis

sämtliche Commandbutton ausblenden bei Bedingung

sämtliche Commandbutton ausblenden bei Bedingung
14.03.2009 18:24:52
Wolfgang
Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sämtliche Commandbutton ausblenden bei Bedingung
14.03.2009 18:30:26
Hajo_Zi
Hallo Wolfgang,

Option Explicit
Private Sub CMD_Liste1_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "CommandButton" Then ObCb.Visible = False
Next ObCb
End Sub



AW: sämtliche Commandbutton ausblenden bei Bedingung
14.03.2009 18:40:25
Tino
Hallo,
z. Bsp. so.
Private Sub UserForm_Initialize()
Dim objCon As Control

If "Wert" <> "Bedingung" Then
    
    For Each objCon In Controls
     If TypeName(objCon) = "CommandButton" Then
      objCon.Visible = False
     End If
    Next objCon

End If

End Sub


Gruß Tino

Anzeige
AW: sämtliche Commandbutton ausblenden bei Bedingung
14.03.2009 19:21:34
Wolfgang
Hi Tino, Hi Hajo
Danke für Eure Antworten.
Beide Varianten sind einfach perfekt.
Gruß
Wolfgang

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige