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

Question

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.

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

Verwandte Fragen

Kannst du Excel-Makros erstellen?