Office: Werte aus Text in Spalten auflisten

Hallo! Ich bin ein echter Anfänger mit Excel und stehe nun vor einem Problem, dass wahrscheinlich nicht mal so schwer zu lösen ist...

Ich habe hier einen Text (in Gelb) mit je 2 Werten pro Feld und möchte nun die Werte daraus einzeln in 2 weiteren Spalten aufgelistet haben. Ich habe mal in Spalte B und C angefangen die Werte reinzuschreiben, wie ich es gerne hätte. Nun soll Excel das aber gerne AUTOMATISCH machen :), schließlich sind das ein paar mehr Tabellen.

Was muss ich machen? Habt ihr vllt eine schnelle Hilfe parat? Das würde mir sehr weiterhelfen und ich bin für jeden Tipp dankbar.

 

Hallo Chris -

Ohne Gewähr:

Diese Formel in B1:
=GLÄTTEN(TEIL(A1;2;SUCHEN("""";A1;2)-2))
und runterkopieren;

und diese Formel in C1:
=GLÄTTEN(RECHTS(A1;LÄNGE(A1)-SUCHEN(",";A1)))
und runterkopieren.

 

Wow, danke für die schnelle Antwort. Es scheint zu gehen, ich probiere grad noch n bisschen aus, wie man das auf die komplette Spalte anwendet.

 

Geht es? Hab die "Anleitung" noch mal genauer gemacht; bitte noch mal lesen... ↑ ;-)

:!: Diese Lösung geht nur, wenn:

1. der erste Teil immer in Gänsefüßchen steht;
2. das Trennzeichen immer ein Komma ist und
3. kein weiteres Komma vorkommt.

 

Ja, das geht einwandfrei. Nochmals Danke! ;-)

 

Wie mache ich denn nun ein Diagramm aus den Werten?? Spalte B soll die X-Achsen einteilung sein, Spalte C sollen die entsprechenden Werte sein. Ich kriege es einfach nicht hin

 

Hallo Chris -

Sorry, mit Diagrammen habe ich leider zu wenig Erfahrung, vielleicht kann Schatzi da weiterhelfen...

Du hast ja dann auch noch die beiden Probleme, erstens den Dezimalpunkt durch ein Dezimalkomma zu ersetzen, und zweitens Sachen wie 3.15*1000 irgendwie auszurechnen.

Wie gesagt, ich gehe stark davon aus, daß Schatzi das zu lösen weiß.

 

Hallo!

Schatzi rätselt schon seit über einer Stunde an diesem besch... Datenimport herum.

Zusätzlich besteht nämlich auch noch das Problem, dass sich in den Daten ZWEI VERSCHIEDENE Arten von Leerzeichen verbergen; darauf muss man erstmal kommen...

Ich hab's jetzt mit diesem Code gelöst:

Code:

Sub test()
Dim zelle As Range, x, x1, x2
For Each zelle In Range("A1:A30")
x = Replace(zelle, Chr(32), "")
x = Replace(x, Chr(160), "")
x = Replace(x, Chr(34), "")
x1 = Left(x, InStr(x, ",") - 1)
x2 = Right(x, Len(x) - Len(x1) - 1)
x1 = Evaluate(x1)
x2 = Evaluate(x2)
zelle.Offset(0, 1) = x1
zelle.Offset(0, 2) = x2
Next zelle
End Sub

Rechtsklicke den Tabellenreiter des Tabellenblatts und wähle "Code einfügen".
Den Code ins Codefenster rechts einfügen.
Zurück in der Tabelle das Makro "test" mit Alt+F8 aufrufen.
Die Daten werden in Spalte B und C aufgelistet.

PS: Bestell bitte der Person, von der du diese Daten erhältst, einen äußerst unfreundlichen Gruß von mir...

 

:shock: :lol:
Oh mann, hätte nicht gedacht, dass das so kompliziert wird. Das ist eigentlich ein Export-File einer Schalldruckmessung, die ich irgendwie in Diagrammen darstellen muss.

Danke, Schatzi und Krino, mach mich gleich mal am die Arbeit und probier es aus.

 

OK, nun funktioniert auch das Diagramm.