Zeile ausblenden wenn Wert 0

[PS_on_target]

Hallo zusammen,

habe jetzt schon mehrere Foren durchwühlt, aber noch nicht das gewünschte Ergebnis erzielt.
Fehlermeldung: Sub- oder Function-Prozedur nicht definiert.

Meine Tabellen-Seite 1 (Übersicht) enthält alle Daten von Tabelle 2 und 3. Wenn in Tabelle 2 und 3 der Wert von 1 auf 0 geändert wird (sind Mengenangaben),
wird mir auf Tabelle 1 per WENN-Regel der Wert ergänzt, ein Bestellvorschlag mit Menge 1 wird eingefügt, am Ende habe ich dann eine Liste aller Artikel,
die neu gekauft werden müssen, aber eben auch die, die nicht neu gekauft werden müssen, d.h. hier ist in Tabelle 2 oder 3 noch der Wert 1 oder höher hinterlegt.
Hoffe das ist halbwegs gut erklärt.

Ich wollte jetzt über ein Makro dafür sorgen, dass, wenn Spalte F den Wert 0 ausweist (d.h. Tabelle 2 und 3 haben den Wert 1 oder höher, somit keine Bestellung nötig), diese Zeile auch ausgeblendet wird.

Welchen Code füge ich wie ein?

Bin dankbar für viele Antworten!

Gruß
PS

[F3K Total]

Hallo,
wenn Du folgendes Makro laufen läßt, werden in der ersten Tabelle alle Zeilen ausgeblendet, die in Spalte F eine 0 haben.

Code: Alles auswählen

Sub ausblenden_F0

osheet=thiscomponent.sheets(0)
ocursor=osheet.createcursor
ocursor.gotoendofusedarea(false)
nrow=ocursor.rangeaddress.endrow
for i=0 to nrow
orow=osheet.rows(i)
if osheet.getCellByPosition(5,i).value=0 then '5 entspricht der Spalte F, 6 wäre G usw.
orow.IsVisible=false'ausblenden
endif
next i

End Sub

Viel Erfolg
Gruß R

[PS_on_target]

Hallo erstmal,

danke soweit - das funktioniert an sich. Aber - sorry - wohl doch zu wenig Info.
Und zwar habe ich weiter unter der Artikelzusammenfassung eine SUMMEN-Berechnung, oben noch ein paar Texte & Details.
Der Rahmen (erweiterbar) für die laufenden Artikel läuft von F8 bis F64, kann aber später auch noch mehr werden.

So - also muss ich das ja noch mit einbauen, damit nur die Zellen gekürzt werden, richtig?

Kannst du das noch machen?
Lieben Dank für die Hilfe !

Gruß
Marco

[F3K Total]

So

Code: Alles auswählen

Sub ausblenden_F0

osheet=thiscomponent.sheets(0)
for i=7 to 63'anpassen wenn nötig
orow=osheet.rows(i)
if osheet.getCellByPosition(5,i).value=0 then '5 entspricht der Spalte F, 6 wäre G usw.
orow.IsVisible=false'ausblenden
endif
next i

End Sub

[PS_on_target]

Hallo,

danke nochmal für die Mühe.
Passt alles wunderbar von der Formatierung am Ende.

Meine Frage noch - kann man das irgendwie arrangieren, dass es sich aktualisiert?

Mein Problem ist - ich trage z.B. eine neue Menge auf Tabelle 2 ein, z.B. statt 1 eine 0. Nun wird die fehlende Zeile, die vorher ausgeblendet wurde,
aber nicht wieder angezeigt.

Wenn das noch möglich wär, bin ich mehr als glücklich!

Gruß & vielen Dank nochmal
Marco

[F3K Total]

Genug,
ich bin kein Dienstleister. Dieses Forum soll Hilfe zur Selbsthilfe bieten.
Beschäftige Dich mit Makros wenn Du es so komfortabel haben möchtest.
Kleiner Tipp: Wenn mit

Code: Alles auswählen

orow.IsVisible=false

eine Zeile ausgeblendet wird,
kann man vermutlich mit

Code: Alles auswählen

orow.IsVisible=true

eine Zeile einblenden.

Gruß R