Abhängigkeiten auflisten

[SvenKo]

Ich suche eine Lösung Abhängigkeiten zu visualisieren.
Gegeben ist eine Tabelle mit 4 Spalten. Den Werten in Spalte 1 sind teilweise bis zu 3 Abhängigkeiten zugewiesen. Diese Abhängigkeiten sollen ausgegeben werden. Wohin ist ersteinmal egal. Es kann unterhalb der derzeitigen Auflistung sein oder in einer neuen Tabelle.
Gibt es eine Möglichkeit so etwas rein in Calc zu lösen oder nur mit Hilfe von Makros?

Bzw. mit welchen Stichworten könnte ich hier Suchen, falls es für derartige Fragen schon Lösungen gibt? Bisher habe ich nichts wirklich Brauchbares gefunden :-/

Anbei eine Beispieldatei. Im zweiten Tabellenblatt sind Beispiele für die Ausgabe der Abhängigkeiten dargestellt.

Mfg
Sven

LLO 4.3.3.2

[F3K Total]

Hi,
das läßt sich vermutlich auch mit Formel lösen, ich habe mal ein Makro geschrieben:

Code: Alles auswählen

Sub Transform_Matrix
    odoc = ThisComponent
    osheets = odoc.sheets
    osheet = oSheets.getbyName("Gegeben")
    oCursor = oSheet.createCursor
    oCursor.gotoEndOfUsedArea(false)
    nEndrow = oCursor.RangeAddress.Endrow
    oNRange = oSheet.getcellrangebyposition(0,1,0,nEndrow)
    oVRange = oSheet.getcellrangebyposition(1,1,3,nEndrow)
    aNData = oNRange.dataarray
    aVData = oVRange.dataarray
    nCounter = 0
    dim aOutput(0) as Variant
    aOutput(0) = array()
    for i = 0 to uBound(aNData)
        Srow = JOIN(aVData(i),"")
        if sRow > "" then
            if nCounter > 0 then
                redim preserve aOutput(nCounter)   
                sOutput = array("")'Leerzeile
                aOutput(nCounter) = sOutput
                nCounter = nCounter + 1
            endif
            redim preserve aOutput(nCounter)   
            sOutput = array("Abhängigkeiten von " & aNData(i)(0))
            aOutput(nCounter) = sOutput
            nCounter = nCounter + 1           
            for k = 0 to 2
                 if aVData(i)(k)<>"" then
                     redim preserve aOutput(nCounter)
                     aOutput(nCounter) =  array(aVData(i)(k))
                     nCounter = nCounter + 1
                 endif         
             next k
        endif
    next i
    nCounter = nCounter - 1
    oTargetSheet = oSheets.getbyName("Ausgabe")
    aTargetRange = oTargetSheet.getCellRangeByPosition(0,0,0,nCounter)
    aTargetRange.setdataarray(aOutput)
    odoc.currentController.activeSheet = oTargetSheet
End Sub

Siehe Beispieldatei.

Damit das Makro laufen darf, stellst du unter Extras/Optionen(Einstellungen)/Openoffice oder LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.

Gruß R

[SvenKo]

Vielen Dank F3K Total
Das sieht schon mal interessant aus. Mal sehn wie ich das anpassen kann.
Ziel soll es sein ein Modul vorzugeben und dann alle Abhängigkeiten dazu aufzulisten. Na mal schaun

[paljass]

Hallo SvenKo,
ich hab dir mal ne Formellösung versucht zu erstellen.

Gruß
paljass

[SvenKo]

Hallo paljass

Ein interessanter Ansatz.
Wie funktioniert das mit dem Aufklappen der auszuwählenden "Module" in der Zelle G5?
Das habe ich bisher noch nicht gesehen gehabt.

[paljass]

Moin,

Wie funktioniert das mit dem Aufklappen der auszuwählenden "Module" in der Zelle G5?

Daten - Gültigkeit

Gruß
paljass

[SvenKo]

Super Danke