Supportnet Computer
Planet of Tech

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.

Antwort 2 von ncbmatrix

super vielen Dank :-)

ncbmatrix

Antwort 3 von Guenter

Hallo,

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 !!