Ausgeblendete Zeilen mit VBA einblenden

Hallo zusammen,
ich habe folgendes Anliegen. Mit dem nachfolgenden Makro werden in einer Excel Datei alle Zeilen mit dem Datum älter als heute ausgeblendet. Das funktioniert auch tadellos.
Nun ist das Problem, dass in der Zukunft liegende Zellen, in denen Zeilen miteinander verbunden sind, ebenfalls ausgeblendet werden. Kann ich dies irgendwie umgehen? Ich habe nun des Öfteren gelesen, dass verbundene Zellen nicht mit Makros harmonisieren. Vielleicht gibt es dennoch eine Möglichkeit.
Leider kann ich auch keine Auto-Filter Funktion nutzen, da ich zwischendurch Zeilen mit Text habe und die mir dann ebenfalls rausgefiltert / ausgeblendet werden.
Hier der aktuelle Code:


Private Sub Workbook_Open()
Dim lR%, i%
lR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lR To 1 Step -1
dat = Date
If Range("a" & i).Value

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Makros harmonisieren durchaus mit verbundenen Zellen.
Man muss nur wissen, das man verbundene Zellen hat und dies in der Programmierung entsprechend berücksichtigen.
In deinem Fall könnte es beispielsweise hilfreich sein, die Zeile zuerst zu selektieren, bevor du sie ausblendest.
Bei der Selektion einer Zeile erweitert Excel nämlich den Zellbereich automatisch auf alle betroffenen Zeilen, wenn in der selektierten Zeile ein Zellverbund über mehrere Zeilen vorhanden ist:
Es wird zwar in der Regel davon abgeraten, in VBA Zellbereiche zuerst zu selektieren und dann die Selektion zu bearbeiten, weil das meisten nicht notwendig ist und viele Nachteile hat (Bildschirmflackern, langsamere Abarbeitung des Makros, längerer Code mit mehr Zeilen usw), aber hier hat das Selektieren eine Funktion, die für dich in diesem Fall nützlich ist.
und noch ein kleiner Tipp:
versuche alles, was sich innerhalb einer Schleife nicht ändert, außerhalb der Schleife durchzuführen.
Die wiederholte Ausführung kostet nur Zeit. (auch wenn man es meistens nicht merkt, aber hier gehts ums prinzip).
Da sich das Datum über den Verlauf der Schleife nicht ändern wird, kann man diese Zuweisung (dat = Date) vorher machen.
Innerhalb wäre nur sinnvoll, wenn die Schleife über Mitternacht läuft und nach Mitternacht schon mit dem neuen Datum gearbeitet werden muss und nicht mehr mit dem alten.
hier der Code als ganzes:


 Private Sub Workbook_Open()
Dim lR%, i%
lR = Cells(Rows.Count, 1).End(xlUp).Row
dat = Date
Application.ScreenUpdating = False
For i = lR To 1 Step -1
If Range("a" & i).Value

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Ausgeblendete Zeilen mit VBA einblenden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgeblendete Zeilen mit VBA einblenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread