Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > ComboBoxen ausblenden
Normale Version: ComboBoxen ausblenden
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

diving_excel

22.01.2019, 14:21
Hallo!
Gibt es einen VBA Befehl der alle Comboboxen gleichzeitig ausblendet? Hab ein Formular bei dem ich viele einzelne Boxen habe und die würde ich gerne nach Bedarf gleichzeitig ein- bzw ausblenden.


Code:
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
   TB.Caption = "Hide schedule data"
   Application.ScreenUpdating = False

   
   ThisWorkbook.Worksheets("Tabelle1").ComboBox1.Visible = True
   ThisWorkbook.Worksheets("Tabelle1").ComboBox2.Visible = True
   ThisWorkbook.Worksheets("Tabelle1").ComboBox3.Visible = True
   ThisWorkbook.Worksheets("Tabelle1").ComboBox4.Visible = True
 
   Range("A1").Select

Else

   
   ThisWorkbook.Worksheets("Tabelle1").ComboBox1.Visible = False
   ThisWorkbook.Worksheets("Tabelle1").ComboBox2.Visible = False
   ThisWorkbook.Worksheets("Tabelle1").ComboBox3.Visible = False
   ThisWorkbook.Worksheets("Tabelle1").ComboBox4.Visible = False
   
   Application.ScreenUpdating = True
   TB.Caption = "Show schedule data"
   Range("A1").Select
End If
End Sub


Im Beispiel hab ich das mit 4 Combo Boxen gemacht. Im Original hab ich aber 60. Möchte deswegen nur ungern so eine Wahnsinns Liste erzeugen.

Danke schon mal für euren Input!


Gruß!

Klaus-Dieter

22.01.2019, 14:24
Hallo,

Code:
For i = 1 To 60
  Controls("ComboBox" & i).Visible = False
Next

diving_excel

22.01.2019, 15:04
Dankeschön!
Beim einfügen bekommen ich die Meldung: "Fehler beim Kompilieren: Sub oder Funktion definiert". Dabei wird "Controls" markiert. Muss ich hierfür noch etwas ergänzen?

Code:
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
Dim i As Long


If TB.Value = True Then
   TB.Caption = "Hide schedule data"
   Application.ScreenUpdating = False

   For i = 1 To 60
       Me.Controls("ComboBox" & i).Visible = True
   Next
   
Else

   
   For i = 1 To 60
       Me.Controls("ComboBox" & i).Visible = False
   Next
   
   Application.ScreenUpdating = True
   TB.Caption = "Show schedule data"
   Range("A1").Select
End If
End Sub

MisterBurns

22.01.2019, 15:23
Wenn du dir den Code von Klaus-Dieter genau ansiehst, wirst du erkennen, dass da nirgendwo was von Me.Controls steht :)

diving_excel

22.01.2019, 15:30
Ups, mein Fehler, allerdings funktioniert das nach entfernen von Me. ebenfalls nicht. Erhalte die selbe  Fehlermeldung

MisterBurns

22.01.2019, 15:44
Kann ich nicht nachvollziehen, bei mir läuft dein Code anstandslos durch.

Allerdings muss ich anmerken, dass dein Application.Screenupdating falsch platziert ist. Trifft Bedingung 1 zu, wird Screenupdating deaktiviert, aber nicht mehr aktiviert.
Daher gehört der Code für's Aktivieren/Deaktivieren vor bzw. nach dem If-Teil.

Und zur Fehlermeldung: Da steht hoffentlich "Sub oder Function NICHT definiert"?
https://docs.microsoft.com/de-de/dotnet/...ot-defined

Heißt dein Togglebutton womöglich anders?

Flotter Feger

22.01.2019, 15:45
Hallo,

im Worksheet sind es keine Controls, sondern OleObjects.

MisterBurns

22.01.2019, 15:47
@Sabina: OMG, natürlich. Ich war auf eine Userform fixiert!

Kuwer

22.01.2019, 15:58
Hallo,

so sollte es reichen:
Private Sub ToggleButton1_Click()

   Dim i As Long

   Dim TB As ToggleButton

  

   Set TB = ToggleButton1

   If TB.Value = True Then

     TB.Caption = "Hide schedule data"

   Else

     TB.Caption = "Show schedule data"

   End If

   Application.ScreenUpdating = False

   For i = 1 To 60

      ThisWorkbook.Worksheets("Tabelle1").OLEObjects("ComboBox" & i).Visible = TB.Value

   Next

   Application.ScreenUpdating = True

End Sub
Gruß Uwe

diving_excel

22.01.2019, 23:05
Vielen Dank, hat geklappt!
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > ComboBoxen ausblenden