Office: sichtbare Zellen eines Filters markieren

Hallo,

ich versuche die sichtbaren Zellen einer gefilterten Liste farbig zu markieren. Leider läuft der Offset-Befehl auch über die nicht sichtbaren Zellen und markiert sie grün, was nicht gewünscht ist. Wer kann mir helfen. Besten Dank im voraus Carl.
PS: Datei angefügt!

Code:

:)

 

Moin, Carl,

vielleicht versuchst Du es einmal so:

Code:

 

tut mir leid, aber das ist nicht die gewünschte Lösung.

Ich möchte die unterschiedlichen Zeilen des sichtbaren Filters einzeln ansprechen können, daher hatte ich an die Offset Methode gedacht.
Ziel ist es in den einzelnen Zeilen bestimmte Werte abzufragen und falls vorhanden, bestimmte Zellen zu überschreiben.
Dazu muß ich jede sichtbare Zelle in einer sichtbaren Zeile adressieren können.

Ich hoffe Ihr habt eine prima Lösung dafür. Danke schon mal für Lösung Teil I.

Grüsse
Carlos

 

Moin, Carlos,

es ist mir neu, dass bei einer Angabe eines zu druchlaufenden Bereiches dies nicht Zelle für Zelle gemacht wird - könntest Du mir bitte mitteilen, woher Du Dein Wissen diesbezüglich beziehst? Wenn Du einen Autofilter gesetzt hast, kannst Du die entsprechende Zeilenangabe mit der Adresse rngZelle.Row herauslesen...

Eine andere schöne Alternative ist die Angabe des einzufärbenden Bereiches wie folgt:
rngZelle.Range("A1:D1").Interior.ColorIndex = 50

 

Hallo,

vielen Dank für die Antwort, aer sie befriedigt mich noch nicht vollständig. Wie ihr dem untenstehenden Code entnehmt soll (so mein Wunsch) über die Offset-Methode jede sichtbare Zeile gescheckt werden, ob bestimmte Werte in einer Zelle vorhanden sind (siehe "IF"-code) und dann soll wieder eine andere Zelle geändert werden (hier die farbige Markierung. Dies soll Zeile für Zeile geschehen.
Das Problem ist, dass Offset auch über die nicht sichtbaren Zeilen läuft. Das würde, da es sich um viele nicht sichtbare Zeilen handelt Zeit in Anspruch nehmen. Daher soll die Offset-Methode (oder eine andere von euch vorgeschlagene Methode) nur die sichtbaren Zellen anspringen -ähnlich dem manuellen springen von sichtbarer Zelle zu sichtbarer Zelle.

Ihr würdet mir sehr helfen. Besten Dank im Voraus.
Grüsse Carl

Code:

 

Moin, Carl,

wenn Du denn Dein Problem ganz und umfassend beschreiben würdest statt immer Teilchen nachzuschieben, wird sich sicherlich irgendein User finden, der Dir antwortet. Und sei es nur, um Dir mitzuteilen, dass Du mit dem Vorgehen nur mit einer weiteren If-Abfrage Erfolg haben wirst...

 

Hallo Jiinx,

das Problem soll soweit vollständig beschrieben sein. Mich würde interessieren, was du mit deiner "zweiten IF-Abfrage" meinst". Vielleicht hilft mir das ja weiter. Jeder andere ist natürlich auch willkommen mein Problem zu lösen.
Grüsse Carl

 

hi alle *Smilie

diese zeile koennte man so ergaenzen

If Cells(n, 2).Value = "0.0001" and Selection.EntireRow.Hidden = false Then Cells(n, 1).Interior.ColorIndex = 50

gruss poltergeist

 

Poltergeist,

Besten Dank für Deinen Tip, aber das führt auch nicht zur Lösung, da weiterhin auch die unsichtbaren Zellen durchlaufen werden. DIe Idee ist ja, dass gerade die unsichtbaren Zellen übersprungen werden.

Bin für weitere Lösungsversuche offen.
Gruss
Carl

 

hi alle *Smilie

muesst doch aber gehen,hab folgendes probiert und muesste auch bei dir funktionieren.da bei dem autofilter die zeilen nur ausgeblendet werden kann man so reagieren.autofilter in spalte a gesetzt und 5 zeilen werden in diesem beispiel durchlaufen und in spalte c info ausgegeben ob ausgeblendet oder nicht.vielleicht zum besseren verstaendnis ein anderes beispiel *Smilie

gruss poltergeist

For t = 1 To 5
Range("A" & t).Select
If Selection.EntireRow.Hidden = True Then
Range("C" & t) = "ausgeblendet"
Else
Range("C" & t) = "eingeblendet"
End If
Next t
End Sub

 

Moin, Carlos,

dem Offset-Befehl ist es ziemlich egal, ob Zellen sichtbar oder ausgeblendet ist - dieser stellt für Deine Art des Vorgehens das falsche Mittel dar. Dies kann auch in der OH nachgelesen werden, denn dort wird nur von Versatz geschrieben und die Eigenschaft der Zelle (aus gutem Grund) außen vor gelassen.

Lösungsvorschläge wurden von Dir als unpraktikabel zurückgewiesen, die allerdings dem Umstand Rechnung getragen haben. Du musst, wenn Du an Deinem Vorgehen festhalten willst, die nächste sichtbare Zelle suchen und direkt auf sie verweisen - was für ein Aufwand, wenn man es leichter haben könnte...

@poltergeist:
sehr lehrreich, den Zustand der Zeile in eine Zelle zu schreiben, die genau diesen Zustand zum Zeitpunkt des Schreibens hat - der aber nach dem Einblenden nicht mehr stimmt; der Ansatz passt schon... *wink.gif*

 

Hallo Jinx,

Ich frage mich, warum es in Excel möglich ist mit dem Cursor / Markierung von einer sichtbaren Zeile / Zelle in die nachfolgende zu springen und dies in Visual Basic nicht funktionieren soll.
Es muß doch einen Befehl geben, der es vermeidet alle Zellen (auch die nicht sichtbaren) zu durchlaufen.
Wie bereits angedeutet, würde dies zuviel Zeit in Anspruch nehmen, die ich nicht habe.
Auch kann ich mir nicht vorstellen, wie ich deinen Lösungsvorschlag mit der Forderung nach einer IF-Abfrage kombinieren kann. Vielleicht hilfst du mir da auf die Sprünge. Besten Dank im voraus.
Grüsse
Carl

 

Moin, Carl,

Excel - die unendlichen Weiten der Tabellenkalkulation.... äh, falsches Raumschiff!

Ist es doch, aber eben nicht so, wie man es sich einfach vorstellen könnte. Dazu dient eben der SpecialCells-Befehl, der nur die sichtbaren Zellen auswählt. Und in diesem eingeschränkten Bereich wird dann per Range-Befehl (etwas anderes ist der Befehlk rngZelle nicht) jede einzelne Zelle durchlaufen - eben nur wirklich jede sichtbare.

Da Du leider nach eigener Aussage keine Zeit hast, dies auszuprobieren, aber dies per Offset erreichen möchtest, wünsche ich Dir viel Erfolg und möchte Dich bitten, Dein letztendliches Ergebnis hier im Forum kundzutun: eim aut a sis (na, ich kann eigentlich schon ein wenig besser englisch).