online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Tomschi vom 03.07.2019, 15:26 Options

leere Zeilen gruppieren/ausblenden

Hi!

Mal wieder eine Frage an die Spezialisten hier.

Ich habe eine Tabelle in der leere Zeilen per Knopfdruck gruppiert/ausgeblendet werden sollen.

Als "Verweis" dazu dient die Spalte A.

Ist z. B. A100 = leer, dann soll diese gruppiert/ausgeblendet werden.
A101 <> leer --> nicht gruppieren/ausblenden
A102 = leer (B102 <> leer) --> gruppieren/ausblenden
...

Mein "Prüfbereich" erstreckt sich von der Zeile 4 bis 200.

Kann man dies per VBA umsetzen?

Office 2000 - SP3

Thanx!

Tom


Antwort schreiben

Antwort 1 von M.O. vom 03.07.2019, 16:05 Options

Hallo Tom,

das folgende Makro blendet alle Zeilen zwischen den Zeilen 4 und 200 aus, in denen die Zelle in der Spalte A leer ist:

Sub ausblenden()

    For r = 4 To 200
    If Cells(r, 1) = "" Then
    Rows(r).EntireRow.Hidden = True
    End If
    Next r
     
    
End Sub


Gruß

M.O.

Antwort 2 von rainberg vom 03.07.2019, 16:05 Options

Hallo Tom,

nimm doch den Autofilter und filtere nach "Nichtleere".

Diese Prozedur kannst Du mit dem Makrorecorder aufzeichen und schon hast Du ein Makro.

Gruß
Rainer

Antwort 3 von Tomschi vom 04.07.2019, 08:40 Options

Guten Morgen!

DANKE!!!

Makro funktioniert und auch den Tipp betreffend dem Autofilter werde ich mir nochmals durch den Kopf gehen lassen.

Da das Blatt durch einen Blattschutz geschützt ist, dachte ich eben, es funktioniert nur per VBA.

Herzlichen DANK an Euch beide!

Tom

Ähnliche Themen

Zeilen ausblenden sperren?
Solomaster  09.07.2007 - 74 Hits - 1 Antwort

mehrere Zeilen in Excel einfügen
Arnsen1  07.08.2007 - 119 Hits - 1 Antwort

leere Spalten automatisch ausblenden
bender70  21.03.2009 - 317 Hits - 4 Antworten

Excel Steuerelement mit ausblenden
Ulrich71  31.01.2008 - 119 Hits - 2 Antworten

Zeilen ausblenden
gaga...  09.03.2008 - 170 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026