Zeichenkette auseinander nehmen.

Hallo,

Ich bekomme immer eine Tabelle mit einer Spalte mit 150 Zellen wo Produktabkürzungen hintereinander geschrieben sind, die mit einem Plus getrennt sind.
Es können 1- 6 Produkte sein.

Ich möchte in 6 Spalte je einen Wert haben.
Anschließend möchte ich die Werte unten zusammen ziehen.

z.B.  80 mal Er, 20 mal Zw ....

Habe mal mit den Befehl Links was versucht =LINKS(a3;SUCHEN("+";a3)-1)

Kann mirjemand Helfen?

Grüße

Siegfried

Er+Zw+W6,40 Er Zw W6,40
  
Er+W6,39 Er W6,39
  
Er+W7,00 Er W7,00
  
Er+Ei+Zw+W6,4 Er Ei Zw W6,4
  
Er+Se Er Se
  
Er+Se+Seb+Por+Ei Er Se Seb Por Ei
W6,4 W6,4
  
Er+Ei+2Zw+W6,4 Er Ei 2Zw W6,4
  
Fwo Fwo

"Daten => Trext in Spalten => Trennoptionen: (*) Getrennt, [X] Andere: '+'"

Wolfgang

Hallo Wolfgang,

Das kann man machen wenn man nur eine Spalte hat.
In den anderen Spalten sind auch Werte und Namen.
Und nur die eine Spalte will ich auswerten.

Grüße

Siegfried

"Daten =  Trext in Spalten =  Trennoptionen: (*) Getrennt, [X] Andere: '+'"

Wolfgang

Hallo,

Ich bekomme immer eine Tabelle mit einer Spalte mit 150 Zellen wo
   Produktabkürzungen hintereinander geschrieben sind, die mit einem Plus
   getrennt sind.
   Es können 1- 6 Produkte sein.

Ich möchte in 6 Spalte je einen Wert haben.
   Anschließend möchte ich die Werte unten zusammen ziehen.

z.B.  80 mal Er, 20 mal Zw ....

Habe mal mit den Befehl Links was versucht =LINKS(a3;SUCHEN("+";a3)-1)

Kann mirjemand Helfen?

Er+Zw+W6,40              Er         Zw            W6,40
Er+W6,39                     Er         W6,39
Er+W7,00                     Er         W7,00
Er+Ei+Zw+W6,4          Er         Ei             Zw        W6,4
Er+Se                             Er         Se
Er+Se+Seb+Por+Ei      Er         Se            Seb     Por Ei
W6,4                            W6,4
Er+Ei+2Zw+W6,4         Er         Ei             2Zw    W6,4
Fwo                                Fwo

Hallo Wolfgang,

Das kann man machen wenn man nur eine Spalte hat.
In den anderen Spalten sind auch Werte und Namen.
Und nur die eine Spalte will ich auswerten.

Wie bitte willst du denn die Einzelwerte auswerten, wenn nicht in
eigenen Spalten? Und du schrubst ja selbst

Ich möchte in 6 Spalte je einen Wert haben.

Also entweder entsprechende Spalten einfügen, oder auf ein eigenes
Tabellenblatt oder einen freien Bereich o. ä. auslagern.

Per Formel sehe ich jedenfalls schwarz, da müsstest du mit jeder Menge
Hilfszellen und unmöglichen Formelmonstern arbeiten.

Die einzige denkbare Alternative wäre noch ein Makro. Aber auch da hast
du das Problem, dass du irgendwie Platz für die Ausgabespalten zur
Verfügung stellen musst.

Function Parameter (sSource as string, iIndex as integer, sSeparator

as string)

dim sParamArray as variant
dim sResult as string
sParamArray = Split(sSource, sSeparator)
if iIndex < LBound(sParamArray())+1 or iIndex >

UBound(sParamArray())+1 then

  sResult = "?"
else
  sResult = sParamArray(iIndex-1)
end if
Parameter = sResult
End Function

[TOFU gelöscht]

Wolfgang

Hallo Siegfried,

schau dir doch mal die Funktion an die ich letztes Jahr hierzu gemacht habe. Eventuell bringt dich das ja weiter. Hört sich für mich zumindest danach an.

https://listarchives.libreoffice.org/de/users/msg22043.html

lg

Jürgen

Hallo Siegfried,

dein Spaltenproblem verstehe ich nicht, aber wenn du es unbedingt mit
Formeln lösen möchtest, geht das in diese Richtung ... :-))

https://1drv.ms/x/s!Au2M6zvFVyX6pF9TLkqlDGGICnBo?e=vLzhr0

LG Günther