Re: [de-users] Calc::Matrix- oder Datenbank-Auswertung

Am 01.11.2015 um 15:49 schrieb Achim Pabel:
> Hallo Liste,
>
> wie ich "irgendwie" mein Problem lösen könnte - da mir fällt rein 
> gar nichts zu ein.Das rumstochern in der Hilfe ergab auch nichts. 
> Also frage ich mal...
>
> Tabell 2
>
> KundenName  / Nummer
>                            900   1040   10000 ...xxxx...  90000
> Kunde_1            x         x                                     x
> Kunde_2                      x            x  
> Kunde_...                    x                            x
> Kunde_...          x                      x
>
>
>
> Tabelle 1 (automatisiert sich automatisch mit Daten aus Tabelle 2)
>
> Kunde_1: 900,1040,9000
> Kunde_2: 1040,10000
> Kunde_...  1040,...
> Kunde_... 900,10000
>
>
> Ich brauche in Tabelle 1, in einer (usichtbaren) Zelle (je Kunde) 
> die Auswertung was in Tabelle 2 je Kunden-Zeile ausgewählt wurde.
> Die Tabelle 1 wird als CSV gespeichert. Dann kann je Kunden-Zeile 
> diese Zelle gelesen und ausgewertet werden (was er denn so alles 
> hat).
> CVS-Zeilen-Trenner = ';'
> Trenner je Nummer = ',' (oder was auch immer)
>
> Kann mich jemand mal in die richtige Richtung schubsen?

Function CSVSTRING(data, names) as string
   string result = ""
   If UBound(data,2) <> UBound(names,2) Then
      result = "Parameter ERROR"
   Else
      For iRow = LBound(data,1) To LBound (data,1)
         For iCol = LBound(data,2) To UBound(data,2)
            If Trim(data(iRow,iCol)) <> "" Then
               If NOT IsNumeric(data(iRow,iCol)) Then
                  If Len(data(iRow,iCol)) > 0 Then
                     If Len(result) > 0 Then
                        result = result & ";" & names(iRow,iCol)
                     Else
                        result = names(iRow,iCol)
                     End If
                  End If
               End If
            End If
         Next iCol
      Next iRow
   End If
   CSVString = result
End Function


Aufruf: =CSVSTRING(B2:F2;$B$1:$F$1)

Wolfgang
-- 

-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert