Zeilen ab definierter Zeile bis Ende ausblenden

Forumthread: Zeilen ab definierter Zeile bis Ende ausblenden

13.02.2008 15:00:18

Marek

Hallo,
ich möchte einen Bereich ab einer definierten Zeile auswählen, um ihn auszublenden.
In angehängter Tabelle steht der Code. Im CommandButton1 wird nur der Bereich bis zur letzten befüllten Zeile markiert. Die Markierung soll aber bis Zeile 65536 gehen.
Der Code, der hinter dem CommandButton2 steht, soll das bewerkstelligen. Allerdings passiert da auch nicht mehr als beim CommandButton1.
Hat jemand eine Idee, wie man das - auch gern anders - lösen kann?
Gruß
Marek
https://www.herber.de/bbs/user/49891.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen ab definierter Zeile bis Ende ausblenden

13.02.2008 15:13:35

Renee

Hi Marek,


Private Sub CommandButton2_Click()
Rows(Range("B2").End(xlDown).Offset(2, 0).Row & ":" & Rows.Count).Select
End Sub

P.S. Ich hasse selects...
GreetZ Renée

AW: Zeilen ab definierter Zeile bis Ende ausblenden

13.02.2008 15:25:28

Marek

Hi Renée,
fantastisch! Auf "Rows.Count" wäre ich nicht gekommen, und auch, dass man in der Klammer mit "&" arbeiten kann.
Selects müsste ich auch nicht unbedingt haben, geht aber mit meinen Kenntnissen zunächst am einfachsten. :-)
Vielen Dank.
Gruß
Marek

AW: Zeilen ab definierter Zeile bis Ende ausblenden

13.02.2008 15:19:24

Peter

Hallo Marek,
so sollte es gehen:


Private Sub CommandButton2_Click()
Dim LetzeZeile As Long
LetzteZeile = Range("B2").End(xlDown).Offset(2, 0).Row
Rows(LetzteZeile & ":" & 65536).Select
End Sub

Gruß Peter

AW: Zeilen ab definierter Zeile bis Ende ausblenden

13.02.2008 15:27:00

Marek

Hi Peter,
auch dir danke für deine Hilfe.
Sieh es mir nach, dass ich die Lösung von Renée bevorzuge - ist kürzer. ;-)
Gruß
Marek

Infobox / Tutorial

Zeilen ab definierter Zeile bis Ende in Excel ausblenden

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 Zeilen ab einer definierten Zeile bis zum Ende in Excel auszublenden, kannst du den folgenden VBA-Code verwenden. Dieser wird in einem CommandButton hinterlegt:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Füge einen neuen CommandButton in dein Arbeitsblatt ein.
Klicke mit der rechten Maustaste auf den CommandButton und wähle „Code anzeigen“.
Füge den folgenden Code in das Code-Fenster ein:

Private Sub CommandButton2_Click()
    Dim LetzeZeile As Long
    LetzeZeile = Range("B2").End(xlDown).Offset(2, 0).Row
    Rows(LetzteZeile & ":" & Rows.Count).Hidden = True
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Klicke auf den CommandButton, um die Zeilen auszublenden.

Häufige Fehler und Lösungen

Fehler: Der Code funktioniert nicht, weil Rows.Count nicht korrekt implementiert ist.
- Lösung: Stelle sicher, dass du den gesamten Code korrekt eingegeben hast und dass kein Tippfehler vorliegt.
Fehler: Die Zeilen werden nicht ausgeblendet.
- Lösung: Überprüfe, ob die Zelle B2 tatsächlich eine befüllte Zelle ist und ob du die richtige Zeile auswählst.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch die manuelle Methode ausprobieren:

Markiere die Zeilen, die du ausblenden möchtest.
Klicke mit der rechten Maustaste und wähle „Ausblenden“.
Du kannst auch die Filter-Funktion verwenden, um nur bestimmte Zeilen anzuzeigen.

Praktische Beispiele

Ein praktisches Beispiel könnte sein, dass du in einem Bericht nur die relevanten Daten anzeigen möchtest und alle anderen Daten ab einer bestimmten Zeile ausblenden willst. Mit dem oben genannten VBA-Code kannst du schnell alle irrelevanten Zeilen ausblenden.

Tipps für Profis

Verwende Application.ScreenUpdating = False, um das Flackern des Bildschirms beim Ausblenden der Zeilen zu vermeiden. Setze es am Anfang deines Codes und aktiviere es am Ende wieder.

Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True

Experimentiere mit anderen Methoden wie Rows.Hidden, um die Flexibilität deines Codes zu erhöhen.

FAQ: Häufige Fragen

1. Frage
Kann ich auch mehrere Bereiche gleichzeitig ausblenden?
Antwort: Ja, du kannst mehrere Rows-Befehle kombinieren, um verschiedene Bereiche auszublenden.

2. Frage
Funktioniert dieser Code in allen Excel-Versionen?
Antwort: Ja, der Code sollte in allen modernen Excel-Versionen (Excel 2007 und später) funktionieren. Achte darauf, dass Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Zeilen ab definierter Zeile bis Ende ausblenden

Forumthread: Zeilen ab definierter Zeile bis Ende ausblenden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen ab definierter Zeile bis Ende in Excel ausblenden

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)

Zeilen ab definierter Zeile bis Ende ausblenden

Forumthread: Zeilen ab definierter Zeile bis Ende ausblenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zeilen ab definierter Zeile bis Ende in Excel ausblenden

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)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread