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: [email protected]
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
