Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1816to1820
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

Userform

Userform
08.03.2021 09:06:54
Everlost
Hallo zusammen,
ich habe eine Frage in Bezug auf die Userform und den Commandbuttons. Ich habe eine Art Hauptmenü entworfen bei der 8 Commandbuttons permanent sichtbar sein sollen. Nennen wir sie CMB 1-8. Nun möchte ich das beim klicken von CMB 1, CMB 9-13 sichtbar werden (das habe ich schon hinbekommen allerdings sollen dann alle anderen bis auf 1-8 ausgeblendet werden. Die jeweiligen Comandbuttons der 8 Hauptbuttons liegen übereinander. Es gehört auch zu jedem ein Hauptbutton eine bestimmte Image die eingeblendet werden soll und alles anderen Images sollen dann bei Klick ausgeblendet werden. Mir fehlt quasi der Befehl bei Klick Commandbutton 1 blende Commandbutton von xxx bis xxx und xxx ein und alle aus. Und Blende bei klicken Commandbutton 1 eine bestimmte Image ein und alle anderen aus. Ich hoffe das war irgendwie verständlich. Würde mich über eine Antwort freuen.
MFG
Ever

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform
08.03.2021 09:33:12
Nepumuk
Hallo,
würde ich so machen:
Private Sub CommandButton1_Click()
    
    Call ShowHideControl("CommandButton", 1, 8, False) ' Button 1 bis 8 ausblenden
    
    Call ShowHideControl("CommandButton", 9, 13, True) ' Button 9 bis 13 einblenden
    
    Call ShowHideControl("Image", 2, 8, False) ' Image 2 bis 8 ausblenden
    
    Call ShowHideControl("Image", 1, 1, True) ' Image 1 einblenden
    
End Sub

Private Sub ShowHideControl(ByVal pvstrControl As String, ByVal pvlngFrom As Long, _
        ByVal pvlngTo As Long, ByVal pvblnVisible As Boolean)

    Dim lngIndex As Long
    For lngIndex = pvlngFrom To pvlngTo
        Controls(pvstrControl & CStr(lngIndex)).Visible = pvblnVisible
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Userform
08.03.2021 15:00:29
Everlost
Super Nepumuk,
funktioniert wunderbar!
Vielen lieben Dank!
Gruß

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige