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