Zahl und Text in einer Zelle trennen um mit der Zahl weiter zu rechnen

Question

Hallo zusammen,

Ich habe ein cvs Datei importiert und in Exel (mac) geöffnet.
Nun möchte ich Text und Zahlen von einander trenne um mit den Zahlen weiter
zurechnen. Beispiel:
EUR 85,00 oder EUR 130,00

Am 9.9.2005 hatte Lea ein ähnliches Problem wie ich. Ich habe die Lösungen von
Rainer und Helmut ausprobiert und auf den ersten Blick funktioniert es. ich habe in
einer 2. Spalte nur noch die Zahlen. Allerdings lassen sich diese Zahlen nicht
zusammen rechnen. Die Summe wird mit 0,00€ angegeben. Ich habe versucht die
Zellen in Währung umzuformatieren aber es lässt sich auf die "Zahl ohne Text
Zellen" nicht anwenden. Weiß jemand wie das Problem zu lösen ist?

Doris

Answer 1

Hallo Doris,

unter dieser Adresse

kannst Du eine Beispielmappe ins Netz stellen und nach hier verlinken.
Dann sehen wir auch zweifelsfrei, was Dein Problem ist.

Gruß
Rainer

Answer 2

Hallo Doris,
auf eine frühere Frage von mir hatte mir Oliver "Coros" das folgende Makro erstellt:

Sub Wandeln()
Dim rngBereich As Range
Dim lngLastRow As Long
Dim lngLastColumn As Long

lngLastRow = ActiveSheet.UsedRange.Rows.Count
lngLastColumn = ActiveSheet.UsedRange.Columns.Count

For Each rngBereich In Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn))
If rngBereich <> "" And IsNumeric(rngBereich) Then _
rngBereich = CDbl(rngBereich)
Next
End Sub

Entscheidend ist hier Typumwandlungsfunktion CDbl
mfg
Wolfgang

Answer 3

Hallo,

ich würde es mal so versuchen

=WENN(ISTTEXT(A12);RECHTS(12;LÄNGE(A12)-FINDEN(" ";A12))*1;A12*1)

Gruß

Helmut

Answer 4

Hallo Doris,

falls Du das Problem mit einer Formel lösen möchtest, wäre auch folgende ein Möglichkeit.

=--WECHSELN(A1;"EUR ";"")

Gruß
Rainer

Answer 5

Hallo Doris,
Probleme mit Exporten anderer Software nach Excel gab es schon im letzten Jahrhundert und (fast) genau so lange gibt es auch die unter-schiedlichsten Lösungen.
In das obige Makro müsste für deine Form des Imports noch eine Zeile eingefügt werden, die zunächst den Text "EUR " entfernt.

Sub Wandeln3()
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.UsedRange
rngZelle.Replace What:="EUR ", Replacement:=""
If rngZelle <> "" And IsNumeric(rngZelle) Then _
rngZelle = CDbl(rngZelle)
Next
End Sub

Welche Excel-Version verwendest du?
Auch wenn du ohne Makro arbeiten willst, verwende zunächst "Suchen und ersetzen" um "EUR " loszuwerden. Ab Excel 2002 zeigt dann die Fehlerüberprüfung im Hintergrund" den Weg zur Umwandlung in Zahlen.

mfg
Wolfgang

Answer 6

Hallo zusammen,

kann mir jemand helfen? Ich habe bereits zwei Antworten geschrieben die ich
aber nirgends sehen kann. Es wäre mir aber wichtig zu wissen, dass sie bzw.
ob sie angekommen sind.

Außerdem gelingt es mir nicht mich unter "diese Antwort hat mein Problem
gelöste" anzumelden. Entweder kenne ich meinen Benutzernamen nicht oder
das System. Ist der Benutzername mein Name oder Nickname? soweit ich
weiß habe ich keinen vergeben. Wie erfahre ich nun wie mein Benutzername
lautet???

Answer 7

Hallo @ Sofuwo,

da du nicht registriert bist, werden deine Antworten zwar angenommen, du kannst diese aber nur finden, wenn du die Anfrage kennst.

Ebenso ist es mit dem Button "diese Antwort hat mein Problem
gelöst" geht auch nur bei registrierten Nutzern.

Die Registrierung erfolgt über das Login oben rechts.
Registrierte Nutzer sind unterstrichen, daran kannst du es erkennen.

Gruß

Helmut

Answer 8

Hallo Helmut,

"bei diese Antwort hat mein Problem gelöst" geht das Fenster zur
Registrierung/ Login auf. Ich komme dort nur nicht weiter, weil ich keinen
Benutzernamen habe oder ihn zumindest nicht weiß. Gibt es für dieses
Problem auch eine Lösung?

mfg
Doris

Answer 9

Hallo,

den Nutzernamen legst du fest, wenn es den schon gibt, musst du einen anderen wählen.

Gruß

Helmut