Text in Zahlen umwandeln

Question

Hallo,
es werden Werte von einer Tabelle (DATA) in eine andere Tabelle(Auswertung) mit einem Makro übertragen.
Das Ergebnis sieht dann so aus: Ry 1.10 um
Ist es möglich den Text mit einer Formel in Zahlen umzuwandeln, oder ist es nur mit VBA möglich?
Das Endergebnis sollte dann so aussehen: 1,10 damit man weitere Berechnungen anstellen kann.

Gruß
fedjo

Sub Auswertung()
Dim Zfrei As Long
Zfrei = Sheets("Auswertung").Cells(100, 1).End(xlUp).Row + 1
Sheets("Auswertung").Cells(Zfrei, 1) = Sheets("DATA").Cells(2, 1)
Sheets("Auswertung").Cells(Zfrei, 2) = Sheets("DATA").Cells(2, 2)
End Sub

Answer 1

Hallo Fedjo,

Strg+h
Suchen nach "." ersetzen durch ","
oder Multiplikation mit 1
Schreibe eine 1 in eine Zelle, diese Zelle kopieren, markiere Deinen Bereich, rechte Maustaste, Inhalte einfügen, im Dialog auswählen Multiplikation und ok
oder
Daten, Text in Spalten, Zellen vorher als Standard, Zahl formatieren

Ich vermute mal 1.1 steht in einer Extra Zelle.

Gruß Hajo

Answer 2

Hallo Hajo,
danke für die schnelle Antwort.
in der Excel Zelle steht: Ry 1.10 um
Der Text kann in der Spalte "A" auch öfters vorkommen..

Gruß
fedjo

Answer 3

Hallo Fedjo,

wenn in A1 "Ry 1.10 um" steht, erhältst Du mit folgender Matrixformel den Zahlenwert 1,1

=--WECHSELN(TEIL(LINKS(A1;MAX(ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1)*SPALTE(1:1)));VERGLEICH(1;ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1)*1;0);LÄNGE(A1));".";",")

Formeleingabe mit Strg+Shift+Enter bestätigen

Gruss
Rainer

Answer 4

Hallo Rainer,
in welche Zelle muß die Formel eingefügt werden?
Kann ich die Formel nach unten ziehen für weitere Eingaben?


Gruß
fedjo

Answer 5

Hallo Fedjo,

oder kürzer und ohne Matrixformel

=--WECHSELN(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;FINDEN(" ";A1)+1)-FINDEN(" ";A1));".";",")

Gruss
Rainer

Answer 6

Hallo Fedjo,

beide Formeln gehören in eine Zelle der gleichen Zeile, in der der Textwert steht und können nach unten gezogen werden.

Gruss
Rainer

Answer 7

Hallo Rainer,
die Formel funktioniert super.
Vielleicht wäre es dir noch möglich die Formel mit einer Wenn Abfrage zu ergänzen. Wenn "A1" leer ist dann soll eine "0" angezeigt werden sonst deine Formel: WECHSELN(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;FINDEN(" ";A1)+1)-FINDEN(" ";A1));".";",")


Gruß
fedjo

Answer 8

Hallo Fedjo,

=WENN(A1="";0;--WECHSELN(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;FINDEN(" ";A1)+1)-FINDEN(" ";A1));".";","))

Gruss
Rainer

Answer 9

Hallo Rainer,
es wird mir ein Fehler ( #WERT!) angezeigt.
Ist es möglich das er durch die Leerzeichen (Ry 1.10 um) im Text verursacht wird.

Gruß
fedjo

Answer 10

Hallo Fedjo,

kann ich nicht nachvollziehen, bei mir funktioniert die Formel.
Mit den Leerzeichen hat das nicht zu tun.

Wenn Du nicht klar kommst wäre eine Beispieldatei hilfreich.

Gruss
Rainer