Supportnet / Forum / Tabellenkalkulation
Zahlen in einer Zelle trennen
Frage
Hallo zusammen ich habe folgende Zahlen in einer Zelle und möchte diese gerne in zwei getrennten Zellen darstellen können:
vorher (sind in einer Zelle gemeinsam)
499.49/2,973 (0.17)
Wunsch:
ZelleA: 499.49
ZelleB: 2,973
ZelleC: 0.17
ist das möglich?
Besten Gruß,
Nico
Antwort 1 von wasnlos
Ich hab da was, geht bestimmt auch leichter, funktioniert aber:
Angenommen Ursprungszahl steht in A1.
Für 466.49:
=LINKS(A1;FINDEN("/";A1)-1)
Für 2,973:
=TEIL(A1;FINDEN("/";A1)+1;FINDEN("(";A1)-2-FINDEN("/";A1))
Für 0.17:
=TEIL(A1;FINDEN("(";A1)+1;FINDEN(")";A1)-FINDEN("(";A1)-1)
Alternativ könnte man wahrscheinlich auch mit
Daten -> Text in Spalten
arbeiten.
Da fällt mir aber nichts ein, um die letzte Klammer weg zu bekommen. Da müsste dann auch wieder eine Funktion herhalten.
Angenommen Ursprungszahl steht in A1.
Für 466.49:
=LINKS(A1;FINDEN("/";A1)-1)
Für 2,973:
=TEIL(A1;FINDEN("/";A1)+1;FINDEN("(";A1)-2-FINDEN("/";A1))
Für 0.17:
=TEIL(A1;FINDEN("(";A1)+1;FINDEN(")";A1)-FINDEN("(";A1)-1)
Alternativ könnte man wahrscheinlich auch mit
Daten -> Text in Spalten
arbeiten.
Da fällt mir aber nichts ein, um die letzte Klammer weg zu bekommen. Da müsste dann auch wieder eine Funktion herhalten.
Antwort 2 von ncbmatrix
super vielen Dank :-)
ncbmatrix
ncbmatrix
Antwort 3 von Guenter
Hallo,
mit Makro könnte es so gehen:
Gruß
Günter
mit Makro könnte es so gehen:
Sub test()
Dim i%, n%, m%, a%
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To i
For m = 1 To Len(Cells(n, 1).Text)
If Mid$(Cells(n, 1).Text, m, 1) = "/" Then
Cells(n, 2).Value = left$(Cells(n, 1).Text, m - 1)
a = m
End If
If Mid$(Cells(n, 1).Text, m, 1) = "(" Then
Cells(n, 3).Value = Mid$(Cells(n, 1).Text, a + 1, m - a - 2)
Cells(n, 4).Value = Mid$(Cells(n, 1).Text, m + 1, Len(Cells(n, 1).Text) - m - 1)
End If
Next m
Next n
End Sub
Gruß
Günter
Antwort 4 von ncbmatrix
vielen Dank! :-)
Antwort 5 von KrapUnzelS
Folgende Vorgehensweise in Excel
Daten, Text in Spalten, Feste Breite auswählen, Weiter.
Dann vor und hinter den Werten je eine Pfeillinie setzen. Dann auf Weiter und Fertig stellen.
Überflüssige Spalten löschen. Fertig !!
Daten, Text in Spalten, Feste Breite auswählen, Weiter.
Dann vor und hinter den Werten je eine Pfeillinie setzen. Dann auf Weiter und Fertig stellen.
Überflüssige Spalten löschen. Fertig !!

