Text in Zahlen umwandeln
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
Antwort schreiben
Antwort 1 von Hajo_Zi vom 17.08.2022, 16:38 Options
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
Antwort 2 von fedjo vom 17.08.2022, 17:24 Options
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
Antwort 3 von rainberg vom 17.08.2022, 17:37 Options
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
Antwort 4 von fedjo vom 17.08.2022, 17:50 Options
Hallo Rainer,
in welche Zelle muß die Formel eingefügt werden?
Kann ich die Formel nach unten ziehen für weitere Eingaben?
Gruß
fedjo
Antwort 5 von rainberg vom 17.08.2022, 17:50 Options
Hallo Fedjo,
oder kürzer und ohne Matrixformel
=--WECHSELN(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;FINDEN(" ";A1)+1)-FINDEN(" ";A1));".";",")
Gruss
Rainer
Antwort 6 von rainberg vom 17.08.2022, 17:53 Options
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
Antwort 7 von fedjo vom 17.08.2022, 18:19 Options
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
Antwort 8 von rainberg vom 17.08.2022, 18:23 Options
Hallo Fedjo,
=WENN(A1="";0;--WECHSELN(TEIL(A1;FINDEN(" ";A1)+1;FINDEN(" ";A1;FINDEN(" ";A1)+1)-FINDEN(" ";A1));".";","))
Gruss
Rainer
Antwort 9 von fedjo vom 17.08.2022, 18:41 Options
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
Antwort 10 von rainberg vom 17.08.2022, 18:46 Options
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
Antwort 12 von rainberg vom 17.08.2022, 19:38 Options
Hallo Fedjo,
jetzt habe ich erst verstanden, was Du mit den Leerzeichen meinst.
Deshalb noch eine Nachfrage.
Befinden sich zwischen Ry und dem Zahlenwert immer die gleiche Anzahl von Leerzeichen oder sind diese variabel?
Gruss
Rainer
Antwort 13 von fedjo vom 17.08.2022, 20:14 Options
Hallo Rainer,
ich gehe mal davon aus das es immer geleiche Anzahl von Leerzeichen sind. Bin mir aber nicht ganz sicher, da die Werte aus einem Meßgerät kommen.
Gruß
fedjo
Antwort 14 von rainberg vom 17.08.2022, 20:20 OptionsLösung
Hallo Fedjo,
wenn Du sicher gehen willst, dann nimm die Matrixformel.
Habe sie mal eingebaut.
MatrixformelGruss
Rainer
Antwort 15 von fedjo vom 17.08.2022, 20:57 Options
Hallo Rainer,
Die Matrixformel funktioniert super.
Danke noch mal für deine Hilfe.
Gruß
fedjo