Toggle-Button Zeilen Spalten ausblenden

Forumthread: Toggle-Button Zeilen Spalten ausblenden

08.06.2007 13:22:26

Wrobel

Hallo Leute,
ich bin nicht so der VBA Profi, daher die Frage ob man per Toggle Button in den Tabellen 3 und 7 bis 34 die Spalten B,C,G,H,I,J und die Zeilen 7,8,9,10 aus und einblenden kann?
Falls noch Fragen sein sollten bitte ich um Feedback.
Schönen Gruß aus SH
Wrobel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Toggle-Button Zeilen Spalten ausblenden

08.06.2007 13:41:00

Matthias

Hallo Wrobel,


Private Sub ToggleButton1_Click()
Dim sh As Worksheet
Dim hid As Boolean
hid = ToggleButton1.Value
For Each sh In ThisWorkbook.Worksheets
With sh
If .Index = 3 Or (.Index >= 7 And .Index

Gruß Matthias

AW: Toggle-Button Zeilen Spalten ausblenden

08.06.2007 16:23:52

Wrobel

Hallo Matthias,
danke für deine Antwort!
Hatte ich zwar vorher nicht gesagt, aber kann auch auf dem Button die Begriffe "Sichtbar" und "Unsichtbar" - wenn die Spalten und Zeilen verschwunden sind - vermerken?
Gruß
Wrobel aus SH

AW: Toggle-Button Zeilen Spalten ausblenden

08.06.2007 21:02:43

Matthias

Hallo Wrobel,
füge nach der Zeile


hid = ToggleButton1.Value

einfach dies ein:


ToggleButton1.Caption = IIf(hid, "Unsichtbar", "Sichtbar")

Gruß Matthias

Infobox / Tutorial

Toggle-Button zum Ein- und Ausblenden von Zeilen und Spalten in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und gehe ins VBA-Editor:
- Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge einen Toggle-Button hinzu:
- Gehe auf das Menü Entwicklertools und wähle Einfügen > Toggle Button.

Erstelle das VBA-Skript:

Doppelklicke auf den Toggle-Button und füge folgenden Code ein:

Private Sub ToggleButton1_Click()
   Dim sh As Worksheet
   Dim hid As Boolean
   hid = ToggleButton1.Value
   For Each sh In ThisWorkbook.Worksheets
       With sh
           If .Index = 3 Or (.Index >= 7 And .Index <= 34) Then
               .Columns("B:C").EntireColumn.Hidden = hid
               .Columns("G:J").EntireColumn.Hidden = hid
               .Rows("7:10").EntireRow.Hidden = hid
               ToggleButton1.Caption = IIf(hid, "Unsichtbar", "Sichtbar")
           End If
       End With
   Next sh
End Sub

Schließe den VBA-Editor:
- Speichere deine Änderungen und gehe zurück zu Excel.
Teste den Button:
- Klicke auf den Toggle-Button und überprüfe, ob die Spalten und Zeilen wie gewünscht ein- und ausgeblendet werden.

Häufige Fehler und Lösungen

Spalten oder Zeilen verschwunden: Wenn die Spalten oder Zeilen nicht angezeigt werden, prüfe, ob die Indizes in der If-Abfrage korrekt sind. Stelle sicher, dass die Worksheet-Indizes den tatsächlichen Tabellenblättern entsprechen.
Toggle-Button funktioniert nicht: Überprüfe, ob der Button korrekt in das Arbeitsblatt eingefügt wurde und die Makros aktiviert sind.

Alternative Methoden

Verwendung von Schaltflächen: Anstelle eines Toggle-Buttons kannst du auch Schaltflächen verwenden, die beim Klicken die Sichtbarkeit von Zeilen und Spalten steuern. Der Code bleibt ähnlich, du musst jedoch eine andere Schaltflächenart wählen.
Gruppierung: Eine weitere Methode zum Ein- und Ausblenden von Spalten ist die Gruppierungsfunktion in Excel. Du kannst Spalten oder Zeilen gruppieren und dann die Gruppe mit einem Klick ein- oder ausblenden.

Praktische Beispiele

Spalten ausblenden: Wenn du die Spalten B und C ausblenden möchtest, kannst du dies im Code einfach anpassen:
```
.Columns("B:C").EntireColumn.Hidden = True
```
Zeilen einblenden: Um Zeilen wieder sichtbar zu machen, setze Hidden auf False:
```
.Rows("7:10").EntireRow.Hidden = False
```

Tipps für Profis

Makro zuweisen: Du kannst das Makro auch einer Schaltfläche auf dem Arbeitsblatt zuweisen, um die Benutzerfreundlichkeit zu erhöhen.
Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen im VBA-Code, um potenzielle Probleme elegant zu handhaben.
Benutzerfreundlichkeit: Stelle sicher, dass der Toggle-Button eine klare Beschriftung hat, z.B. „Sichtbar“ oder „Unsichtbar“, damit der Benutzer versteht, was der Button bewirken wird.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Toggle-Buttons für verschiedene Zeilen und Spalten verwenden?
Du kannst für jeden Toggle-Button einen eigenen VBA-Code schreiben, der die spezifischen Zeilen und Spalten steuert.

2. Funktioniert das in allen Excel-Versionen?
Ja, das Skript sollte in den meisten modernen Excel-Versionen funktionieren, solange du VBA unterstützt.

3. Kann ich den Toggle-Button auch in einer Excel-Online-Version verwenden?
Leider wird VBA in Excel Online nicht unterstützt. Du müsstest auf eine Desktop-Version umsteigen.

Beliebteste Forumthreads (12 Monate)

Toggle-Button Zeilen Spalten ausblenden

Forumthread: Toggle-Button Zeilen Spalten ausblenden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Toggle-Button zum Ein- und Ausblenden von Zeilen und Spalten in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Toggle-Button Zeilen Spalten ausblenden

Forumthread: Toggle-Button Zeilen Spalten ausblenden

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Toggle-Button zum Ein- und Ausblenden von Zeilen und Spalten in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread