[gelöst] Zeilen ausblenden auf anderem Tabellenblatt

[DITA]

Hallo,

brauche noch einmal Eure Hilfe - der Umstieg ist doch schwerer als gedacht
Habe schon nach Lösungen gesucht, einiges gefunden, kann es aber nicht auf mein Problem "umsetzen"

Habe versucht mit dem Makrorecorder in OpenOffice calc zumindest Bruchstücke aufzuzeichnen, aber irgendwie klappt das auch noch nicht so wie gewollt.

Versuche mal, mein Problem, bzw. Wunsch, zu beschreiben

manche Zellen der Tabelle1 (Eingabe) sollen ganze Zeilen (eine oder mehrere) in Tabelle2 (Ausgabe) ausblenden bzw. je nach Wert einblenden.
Hatte es mit der Wenn Funktion probiert Wenn(Eingabe.E10<>"";.... hier müßte dann der Makroaufruf hin

Hatte es auch schon mit bedingter Formatierung probiert, benötige aber für späteren Ausdruck den "Platz", so das ich da auch nicht weiter komme.
Auch der Makrorecorder liefert mir komischerweise nichts, wenn ich aufzeichne: gehe von Tabelle Eingabe auf Tabelle Ausgabe, markiere Zeile 12 und 13, blende diese aus, und gehe wieder auf Tabelle Eingabe Zelle so und so.
Vergebe noch nen Makronamen nach Aufzeichnungsstop, aber finden tu ich es nicht - das Makro - mhmmm????

Wer kann mir helfen?????

Danke Dirk

[F3K Total]

Moin,
eine kleine Beispieldatei, mit Angabe was wann wo ausgeblendet werden soll, würde vermutlich helfen. Der Maqkrorekorder ist für diese veränderliche Aufgabe ungeeignet.
Gruß R

[DITA]

Hallo,

hier die angeforderte Beispieldatei

Zeilen-einausblenden.ods

(11.17 KiB) 151-mal heruntergeladen

Dabei ist noch das ein oder andere aufgefallen, was ich versucht habe, deutlich zu beschreiben.

Danke erst einmal für den Versuch der Hilfe

Dirk

[mikeleb]

Hallo,

ich presch' mal mit einer Variante vor.

[F3K Total]

Södele,
habe zwei functions geschrieben, die ich in die Zellen rechts neben den farbigen geschrieben habe:

Code: Alles auswählen

function F_HIDE_SHOW(Zelle,von,bis,default_eingeblendet)
    osheet = thiscomponent.sheets.Ausgabe
    if Zelle <> 0 then
        if default_eingeblendet = 1 then
            for i = von - 1 to bis -1
                orow = osheet.rows(i)
                orow.IsVisible = false
            next i
        else
            for i = von - 1 to bis -1
                orow = osheet.rows(i)
                orow.IsVisible = true
            next i
        endif
    else
        if default_eingeblendet = 1 then
            for i = von - 1 to bis -1
                orow = osheet.rows(i)
                orow.IsVisible = true
            next i
        else
            for i = von - 1 to bis -1
                orow = osheet.rows(i)
                orow.IsVisible = false
            next i
        endif
    endif
End Function

function F_HIDE_SHOW_COUNT(Zelle,von,bis,max)
            osheet = thiscomponent.sheets.Ausgabe
            for i = von - 1 to bis -1
                orow = osheet.rows(i)
                orow.IsVisible = true
            next i
            for i = bis to von + max-1
                orow = osheet.rows(i)
                orow.IsVisible = false
            next i
End Function

Schau mal in die Datei, wie die Funktionen aufgerufen werden und die Parameter gefüllt werden.

HTH R

EDIT @mikeleb, da haben sich unsere Beiträge wohl um Sekunden überschnitten, ist doch interessant, wie unterschiedlich die beiden Lösungen sind ... viele Wege ...

[DITA]

Hey Leute,

ich bin sprachlos.....

Dachte das das ein Riesenproblem (für mich) ist, ihr schüttelt da mal grade so ......
Meine Hochachtung, vielen vielen Dank für die gleich 2 Lösungsvorschläge,
welche ich verwende kann ich noch nicht sagen, auf den ersten Blick haben beide Versionen etwas.

Wow, bin echt vonne Socken, werde mir jetzt noch nen bisschen Basic-Wissen aneignen.

Nochmals vielen vielen Dank für Eure Hilfe (nein, viiieeel mehr), bis zum bestimmt nächsten Mal

D A N K E

Gruss und Gute Nacht
Dirk