Kann man mehrere Shapes gleichzeitig in VBA sichtbar machen?

Question

Kann man mehrere Shapes gleichzeitig in VBA sichtbar machen?

Antwort

Verwandte Fragen

Funktioniert folgender VBA-Code: for i = 1 to 3 x=choose(i, "Button 3", "Button 5", "Button 7") Shapes(x).Visible = msoTrue?

Gibt es eine Möglichkeit, die Sichtbarkeit von Button 1 per VBA wie bei Rows zu toggeln?

Warum führt Range("D5:D6", "C13:D14", "C16:D17").Locked = True in Excel VBA zum Fehler 'falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft'?

Kann man in Excel VBA den Shape-Namen dynamisch zusammensetzen, um dessen Sichtbarkeit festzulegen?

Accepted Answer

Ja, das lässt sich in VBA (Visual Basic for Applications) verkürzen, indem du eine Schleife verwendest. Beispiel: ```vba Dim i As Integer For i = 2 To 4 Shapes("Button " & i).Visible = True Next i ``` Damit werden die Sichtbarkeiten für "Button 2", "Button 3" und "Button 4" in einer Zeile pro Button gesetzt.

Accepted Answer

Dein Code-Snippet sieht nach VBA (Visual Basic for Applications) aus, wie es z.B. in Excel oder PowerPoint verwendet wird. Die Grundidee ist korrekt, aber die Syntax ist nicht ganz richtig. Hier die k... [mehr]

Accepted Answer

Dein Code-Snippet sieht nach VBA (Visual Basic for Applications) aus, wie es z.B. in Excel oder PowerPoint verwendet wird. Die Grundidee ist korrekt, aber die Syntax ist nicht ganz richtig. Hier die korrekte Schreibweise: ```vba Dim i As Integer Dim x As String For i = 1 To 3 x = Choose(i, "Button 3", "Button 5", "Button 7") Shapes(x).Visible = msoTrue Next i ``` **Hinweise:** - Die Schleife muss mit `For ... Next` geschrieben werden. - Die Funktion `Choose` ist korrekt verwendet. - `Shapes(x)` setzt voraus, dass es ein Shape mit dem Namen `Button 3`, `Button 5` und `Button 7` gibt. - `msoTrue` ist der richtige Wert, um die Sichtbarkeit auf "sichtbar" zu setzen. **Voraussetzungen:** - Der Code muss in einem Kontext laufen, in dem das `Shapes`-Objekt verfügbar ist (z.B. in PowerPoint: `ActivePresentation.Slides(1).Shapes(x)` oder in Excel: `ActiveSheet.Shapes(x)`). - Die Shapes müssen exakt so benannt sein. **Beispiel für PowerPoint:** ```vba Dim i As Integer Dim x As String For i = 1 To 3 x = Choose(i, "Button 3", "Button 5", "Button 7") ActivePresentation.Slides(1).Shapes(x).Visible = msoTrue Next i ``` **Beispiel für Excel:** ```vba Dim i As Integer Dim x As String For i = 1 To 3 x = Choose(i, "Button 3", "Button 5", "Button 7") ActiveSheet.Shapes(x).Visible = msoTrue Next i ``` **Fazit:** Ja, das geht – mit der richtigen Syntax und im passenden Kontext.

Accepted Answer

Der von dir gezeigte VBA-Code bezieht sich auf das Aus- und Einblenden von Zeilen in Excel. Für einen Button (z.B. ein Steuerelement wie ein „Button 1“ aus der Formular- oder ActiveX-... [mehr]

Accepted Answer

Der von dir gezeigte VBA-Code bezieht sich auf das Aus- und Einblenden von Zeilen in Excel. Für einen Button (z.B. ein Steuerelement wie ein „Button 1“ aus der Formular- oder ActiveX-Steuerelemente-Leiste) gibt es eine ähnliche Möglichkeit, die Sichtbarkeit zu steuern. Allerdings haben Buttons keine `.Hidden`-Eigenschaft, sondern eine `.Visible`-Eigenschaft. Hier ein Beispiel, wie du die Sichtbarkeit von „Button 1“ (Formularsteuerelement) umschalten kannst: **Für einen Formular-Button:** ```vba ActiveSheet.Shapes("Button 1").Visible = Not ActiveSheet.Shapes("Button 1").Visible ``` **Für einen ActiveX-Button:** ```vba ActiveSheet.OLEObjects("CommandButton1").Visible = Not ActiveSheet.OLEObjects("CommandButton1").Visible ``` **Hinweis:** - Der Name des Buttons muss exakt stimmen („Button 1“ bei Formularsteuerelementen, „CommandButton1“ bei ActiveX-Steuerelementen). - Weitere Infos zu Shapes findest du hier: [Microsoft Docs - Shape.Visible property](https://learn.microsoft.com/en-us/office/vba/api/excel.shape.visible) So kannst du die Sichtbarkeit eines Buttons ähnlich wie bei Zeilen umschalten.

Accepted Answer

Der Fehler „falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft“ tritt auf, weil die Syntax von `Range` in deinem Beispiel nicht korrekt ist. **Erklärung:... [mehr]

Accepted Answer

Der Fehler „falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft“ tritt auf, weil die Syntax von `Range` in deinem Beispiel nicht korrekt ist. **Erklärung:** Die `Range`-Funktion in VBA akzeptiert entweder: - Einen einzelnen Bereich als String, z. B. `Range("A1:B2")` - Zwei Bereiche als zwei Argumente, z. B. `Range("A1", "B2")` (ergibt den Bereich von A1 bis B2) - Zwei Bereiche als zwei Argumente, z. B. `Range("A1:B2", "C3:D4")` (ergibt einen zusammengesetzten Bereich) **Aber:** Du hast **drei** Argumente übergeben: `Range("D5:D6", "C13:D14", "C16:D17")` Das ist nicht erlaubt, da `Range` maximal **zwei** Argumente akzeptiert. **Korrekte Vorgehensweise für mehrere, nicht zusammenhängende Bereiche:** Du kannst mehrere Bereiche mit der `Union`-Funktion zusammenfassen: ```vba Union(Range("D5:D6"), Range("C13:D14"), Range("C16:D17")).Locked = True ``` **Fazit:** Der Fehler entsteht, weil du zu viele Argumente an `Range` übergibst. Verwende stattdessen `Union`, um mehrere Bereiche zusammenzufassen. Weitere Infos: [Range-Objekt (Microsoft)](https://learn.microsoft.com/de-de/office/vba/api/excel.range) [Union-Methode (Microsoft)](https://learn.microsoft.com/de-de/office/vba/api/excel.application.union)

Accepted Answer

Ja, das geht in Excel VBA, aber es gibt ein paar kleine Fehler in deinem Beispiel. Hier ist die korrekte Schreibweise: ```vba Dim nbr As Integer Dim txt As String Dim form As String nbr = 11 txt = &... [mehr]

Accepted Answer

Ja, das geht in Excel VBA, aber es gibt ein paar kleine Fehler in deinem Beispiel. Hier ist die korrekte Schreibweise: ```vba Dim nbr As Integer Dim txt As String Dim form As String nbr = 11 txt = "Schaltfläche " form = txt & nbr Shapes(form).Visible = msoTrue ``` **Wichtige Hinweise:** - Die Variable `Shapes` muss sich auf das richtige Arbeitsblatt beziehen, z.B. `Worksheets("Tabelle1").Shapes(form).Visible = msoTrue` - `msoTrue` ist korrekt, aber du musst ggf. die Bibliothek "Microsoft Office xx.x Object Library" aktiviert haben. - Die Schreibweise `Shabpes` ist ein Tippfehler, es muss `Shapes` heißen. **Beispiel im Kontext eines Makros:** ```vba Sub SchaltflächeSichtbarMachen() Dim nbr As Integer Dim txt As String Dim form As String nbr = 11 txt = "Schaltfläche " form = txt & nbr ' Falls du auf ein bestimmtes Blatt zugreifen willst: ' Worksheets("Tabelle1").Shapes(form).Visible = msoTrue ' Oder auf das aktive Blatt: ActiveSheet.Shapes(form).Visible = msoTrue End Sub ``` **Weitere Infos:** - [Microsoft Docs: Shape.Visible property](https://learn.microsoft.com/en-us/office/vba/api/office.shape.visible) - [Microsoft Docs: Shapes collection](https://learn.microsoft.com/en-us/office/vba/api/excel.shapes) So kannst du den Namen einer Schaltfläche dynamisch zusammensetzen und darauf zugreifen.