Office: Ausgeblendete Zeilen per Makro einblenden, wenn bestimmte Range leer ist

Hallihallo,
ich habe eine Range (bspw. B394:H493). Auf dem Tabellenblatt gibt es einen Button, der in dieser Range die Zeilen ausblendet, wenn sie leer sind. Also z.B. wenn B394 bis H394 leer, dann Zeile 394 ausblenden. Um nun in die ausgeblendeten Zeilen Einträge vornehmen zu können, gibt es einen Button, der immer 10 Zeilen wieder einblendet. Dazu das Makro unten. Das Makro ist nicht das praktischste, da nur stur die Schleife durchläuft. Wenn also die Zeilen, die das makro einblenden will bereits eingeblendet sind, passiert gar nicht. Optimal wäre, wenn das Makro innerhalb der Range 10 gerade ausgeblendete Zeilen wieder einblendet. Also ungefähr so:

Zeile 394 eingeblendet? ja? Nächste Zeile prüfen..
Zeile 395 eingeblendet? ja? Nächste Zeile prüfen..
Zeile 396 eingeblendet? nein? Zeile 396 einblenden. Nächste Zeile prüfen..
Zeile 397 eingeblendet? ja? Nächste Zeile prüfen..
..
..
..

Zeile 442 eingeblendet? nein? Zeile 442 einblenden. 10 Zeilen eingeblendet. End Sub

Ich hoffe ich konnte mein Problem einigermaßen verständlich erklären. Hat jemand eine Idee?


Code:

:)

 

Hallo André,

mein Vorschlag:
Code:

 

Hallo IngGi,
vielen Dank für deine Mühe. Sieht im Ansatz nicht schlecht aus, allerdings prüft dein Makro nur, ob die ersten 10 Zeilen eingeblendet sind. Sind die eingeblendet, passiert nichts. Ich benötige es so, dass das Makro immer 10 nicht eingeblendete Zeilen einblendet, egal welche Zeilen innerhalb der Range das sind. Also wenn die ersten 50 Zeilen in der Range eingeblendet sind, blendet das Makro die Zeilen 51-60 ein. Die 10 Zeilen müssen auch nicht zusammenhängend sein. Was müsste ich daher ändern?
Gruß, André.

 

Dann packe doch die Zähler-Erhöhung in die If-Auswertung:

If rng.EntireRow.Hidden = True
rng.EntireRow.Hidden = False
intZeilen = intZeilen + 1
End If

intZeilen am Anfang initialisieren !


Berti

 

Super, so lübbt dat. Hier noch der komplette Code wie ich ihn nun benutzen werden. Danke für eure Hilfe!
Gruß, André

Code:

 

Hallo André,

ich schlage Dir folgende Lösung vor :

VBA-Code:

Sub ZehnZeilenEinblenden()     Dim intEingeblendete As Integer, lngZeile As Long     lngZeile = 1     While intEingeblendete < 10         If Rows(lngZeile).Hidden Then             Rows(lngZeile).Hidden = False             intEingeblendete = intEingeblendete + 1         End If         lngZeile = lngZeile + 1         'Prüfen, ob noch ausgeblendete Zeilen existieren :         If Range(Cells(lngZeile, 1), Cells(Rows.Count, 1)).SpecialCells(xlCellTypeVisible) .Count _             >= Range(Cells(lngZeile, 1), Cells(Rows.Count, 1)).Count Then intEingeblendete = 10     Wend End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Hallo NoNet,
danke für deine Hilfe, aber das "Problem" ist schon lange Geschichte. Aber vielleicht hilft es ja mal jemand anderem.

 

Hallo André,

sorry - ich hatte glatt übersehen, dass der Thread ja schon 7 Monate alt ist *upps ...Frage mich jetzt bitte nicht, wie ich hierauf gestossen bin - ich weiß es selbst nicht mehr (vermutlich durch eine Suche nach etwas ganz anderem ?!!?)

Sowas aber auch...*mrcool