Jede zweite Zeile ausblenden

Forumthread: Jede zweite Zeile ausblenden

kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vorraus...

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

das geht auch mit einem Button ...

Matthias
Nachtrag ...

Matthias

das geht auch mit einem Button ...

27.10.2009 08:18:15

Matthias

Hallo
Benutze ein Tooglebutton

Option Explicit
Private Sub ToggleButton1_Click()
Dim LoX As Long
Application.ScreenUpdating = False
If ToggleButton1.Value = True Then
For LoX = 1000 To 8 Step -2
Rows(LoX).EntireRow.Hidden = True
Next
Else
Rows("8:1000").EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

hier das Beispiel (zur besseren Visualisierung ist eine bedingte Formatierung gesetzt.)
https://www.herber.de/bbs/user/65366.xls
Gruß Matthias

Nachtrag ...

27.10.2009 10:56:03

Matthias

Hallo
Willst Du genau die anderen Zeilen ausblenden dann
ersetze diese Codezeilen
For LoX = 1000 To 8 Step -2
durch diese Codezeilen
For LoX = 1001 To 9 Step -2
Gruß Matthias

Infobox / Tutorial

Jede zweite Zeile in Excel ausblenden und löschen

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

Um in Excel jede zweite Zeile auszublenden, kannst du VBA verwenden. Hier ist eine einfache Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbookName)“.
- Wähle „Einfügen“ und dann „Modul“.

Füge den folgenden Code ein:

Option Explicit
Private Sub ToggleButton1_Click()
   Dim LoX As Long
   Application.ScreenUpdating = False
   If ToggleButton1.Value = True Then
       For LoX = 1000 To 8 Step -2
           Rows(LoX).EntireRow.Hidden = True
       Next
   Else
       Rows("8:1000").EntireRow.Hidden = False
   End If
   Application.ScreenUpdating = True
End Sub

Füge einen ToggleButton in dein Excel-Blatt ein (Entwicklertools > Einfügen > ToggleButton).
Verknüpfe den Button mit dem oben eingegebenen Code.
Teste den Button, um jede zweite Zeile auszublenden oder wieder einzublenden.

Häufige Fehler und Lösungen

Fehler: „Der Code funktioniert nicht.“
- Überprüfe, ob der ToggleButton korrekt verknüpft ist.
Fehler: „Die Zeilen werden nicht versteckt.“
- Stelle sicher, dass der Wert des ToggleButtons richtig ausgelesen wird.
Problem: „Ich möchte jede zweite Zeile löschen.“
- Um jede zweite Zeile zu löschen, ändere den Code wie folgt:
```
For LoX = 1000 To 8 Step -2
   Rows(LoX).Delete
Next
```

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch Filter oder bedingte Formatierungen nutzen:

Filter setzen:
- Markiere die gesamte Tabelle und gehe zu „Daten“ > „Filter“.
- Verwende die Filteroptionen, um nur die gewünschten Zeilen anzuzeigen.
Bedingte Formatierung:
- Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
- Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“ und gib die Formel =REST(ZEILE();2)=0 ein, um jede zweite Zeile zu formatieren.

Praktische Beispiele

Beispiel: Jede zweite Zeile in eine neue Spalte verschieben:
- Du kannst eine Formel verwenden, um Daten aus jeder zweiten Zeile in eine neue Spalte zu ziehen. Beispiel:
```
=WENN(REST(ZEILE();2)=0;A1;"")
```
Beispiel: Summe jeder zweiten Zeile:
- Um die Summe jeder zweiten Zeile zu berechnen, kannst du die folgende Formel verwenden:
```
=SUMMEWENN(B:B;"<>""";A:A)
```

Tipps für Profis

Verwendung von Tastenkombinationen: Nutze STRG + SHIFT + L, um Filter schnell zu aktivieren.
Bedingte Formatierung optimieren: Nutze die Option „Regeln verwalten“, um deine Formeln effizient zu verwalten.
Makros aufzeichnen: Du kannst auch Makros aufzeichnen, um repetitive Aufgaben zu automatisieren, ohne den VBA-Editor zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich in Excel jede zweite Zeile löschen?
Du kannst dies über VBA tun, indem du die Zeilen mit der Delete-Methode löschst, oder du verwendest Filter, um die unerwünschten Zeilen auszublenden.

2. Gibt es eine Möglichkeit, jede zweite Zeile zu kopieren?
Ja, du kannst eine Formel verwenden, um jede zweite Zeile in eine andere Spalte zu kopieren. Beispiel: =WENN(REST(ZEILE();2)=0;A1;"").

3. Wie kann ich die Umbruchvorschau ausblenden?
Gehe zu „Seitenlayout“ und deaktiviere die „Umbruchvorschau“, um sie auszublenden.

Beliebteste Forumthreads (12 Monate)