Seite 1 von 1

Makro für Zeilen ausblenden in denen 2 Zellen leer sind

Verfasst: So, 14.10.2012 18:59
von 1.ray
Hallo,
Wie muss ein Makro ausschauen,
mit dem alle Zeilen einer Tabelle ausgeblendet werden, die in 2 bestimmten Zellen nichts stehen haben?

Sub Zakab
with thisComponent.sheets().getbyname("Journal")
for zi = 8 to 126 'zeile 9 bis 127
.Rows(zi).isvisible = .getcellbyposition(4,15,zi).value
next

end with
End Sub
????????
mit value geht es nicht, da blendet er alle Zeilen aus.

Gruß
1.ray

Re: Makro für Zeilen ausblenden in denen 2 Zellen leer sind

Verfasst: So, 14.10.2012 19:18
von Karolus
Hallo
Meine Glaskugel sagt du meinst:

Code: Alles auswählen

Sub Zakab
with thisComponent.sheets().getbyname("Journal")
for zi = 8 to 126 'zeile 9 bis 127
if .getcellbyposition(4,zi).string = ""  and .getcellbyposition(15,zi).string = "" then
.Rows(zi).isvisible = False
else 
.Rows(zi).isvisible = True
end if
next

end with
End Sub
Karolus

Edit: Übrigens geht das auch "makrofrei" per →Daten→Filter→Standardfilter...

Re: Makro für Zeilen ausblenden in denen 2 Zellen leer sind

Verfasst: Mo, 15.10.2012 00:46
von 1.ray
Hallo Karolus,

wieder mal Du.
Vielen Dank für Deine prompte Antwort.

Leider habe ich nicht die ganze Wahrheit geschrieben: In der Spalte E (=4) steht zwar wirklich nichts in den Zellen der auszublendenden Zeilen,
wohl aber in der Spalte P (=15), nämlich Formeln! Die sind ja nur sichtbar, wenn sie Zahlen "produzieren".

(Die Zahlen, die in der Spalte E (=4) stehen, werden auch durch Formeln "hergestellt".)

Komisch ist aber, dass das Makro Zeilen einblendet, die vorher ausgeblendet waren.

Dein "last not least" (Edit)funktioniert aber gut: Daten- Filter- Standardfilter: Spalte E >0 , dann links:oder, Spalte P<0(da stehen negative Zahlen)
Wow! mein erstes Erfolgserlebnis mit dem Datenpiloten.( Zeit wird´s, ich weiss)
Also wieder mal vielen Dank

Gruß
1.ray