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

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

1.ray
***
Beiträge: 82
Registriert: So, 13.11.2005 13:31

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

Beitrag 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
Karolus
********
Beiträge: 7532
Registriert: Mo, 02.01.2006 19:48

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

Beitrag 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...
LO7.4.7.2 debian 12(bookworm) auf Raspberry5 8GB (ARM64)
LO25.2.3.2 flatpak debian 12(bookworm) auf Raspberry5 8GB (ARM64)
1.ray
***
Beiträge: 82
Registriert: So, 13.11.2005 13:31

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

Beitrag 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
Antworten