Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Aus Textfeld mit Text und Zahlen, die Zahl auslesen mit Excel ?





Frage

Hallo, habe folgenden TEXT in einer Zelle und möchte die Zahlen in eine Zelle haben, damit ich eine Summe bilden kann. Wie geht das ? Danke Taschenmesser - alt;;Verkaufspreis: EUR 3,00 (Auktion) ich möchtew hier die 3,00 als Zahl auslesen. kann mir jemand helfen bitte ? Gruss Sebastian PS: eine ähnlich Anfrage hatte gestern schon, das war aber mit Funktion Wert gut zu lösen , weil die Zahl ganz RECHTS am Ende stand. hier leider nicht.

Antwort 1 von Sebastian11

Nachtrag:
hatte gestern schon diese tip erhalten, wenn das Textfeld (bsp: Zelle A1) mit Zahlen so aussieht:

EUR 0,25

Lösung um die Zahlen auszulesen:
WERT(RECHTS(A1;LÄNGE(A1)-4))

Antwort 2 von DAve

Hallo,
wo kommen die Daten denn her? Ist das eine .csv- Datei, oder sowas. Die kann man nämlich sehr schön über Access einlesen und auseinander klamüsern.

mfg

Antwort 3 von cmkatz

Hallo

Zitat:

hatte gestern schon diese tip erhalten, wenn das Textfeld (bsp: Zelle A1) mit Zahlen so aussieht:
warum machst du dann nicht dort weiter, wo du die Antwort bekommen hast??

nämlich hier:
https://supportnet.de/discussion/listmessages.asp?AutoID=184371&...

Gruß
cmkatz

Antwort 4 von Sebastian11

#3
Das ist ne Tabellenform, von ebay runtergeladen:
Microsoft Excel CSV-Datei (durch Kommata getrennte Werte)

Habe noch mit Access gearbeitet, aber das wäre vielleicht notwendig...

Aber vielleicht besteht ja auch die Möglichkeit, diese in Excel durch "öfnnen und kommagetrennt o.ä. einzulesen.
Danke

Antwort 5 von nighty

hi alle :)

hier eine formel fuer eine zahl isolierung an beliebiger stelle :)

gruss nighty

=Sumtext(A1;anfang;ende)

beispiel

michael test 1,5 hallo

jetzt prima daum sagen wir mal
anfang 8
ende 16

ergebnis 1,5

einzufuegen alr f11(vbeditor)/einfuegen/allgemeines modul
jetzt ist die formel unter einfuegen/function verfuegbar

Function Sumtext(Zellen As Range, AnfangX As Long, EndeX As Long) As Double
Dim Zelle As Range
Dim zahl1
Dim zahl2
Application.Volatile
For Each Zelle In Zellen
If EndeX > Len(Zelle) Then EndeX = Len(Zelle)
If AnfangX < 1 Then AnfangX = 1
For zeich1 = AnfangX To EndeX
If Asc(Mid$(Zelle, zeich1, 1)) > 47 And Asc(Mid$(Zelle, zeich1, 1)) < 58 _
Or Asc(Mid$(Zelle, zeich1, 1)) = 44 Or Asc(Mid$(Zelle, zeich1, 1)) = 46 Then
zahl1 = zahl1 & Mid$(Zelle, zeich1, 1)
End If
Next zeich1
If zahl1 = "" Then zahl1 = "0"
zahl2 = zahl1 * 100
Sumtext = Sumtext + (zahl2 / 100)
zahl1 = ""
zahl2 = ""
Next
End Function

Antwort 6 von DAve

Hallo nochmal,

kann sein das, das mit Excel auch funtzt. Wie gesagt ich machs immer mit Access und exportier mir die Tabelle dann in ein Excelblatt.

mfg

Antwort 7 von Sebastian11

Hallo,
danke für die Hilfe.
habe leider keine Ahnung von VBeditor ...
und mit access auch noch nie gearbeitet. :-((
Datei bei Access einfügen und dann exportien scheint ne gute Lösung zu sein.
ich habe ne andere Lösung gefunden und zwar:
die Textspalte markieren mit Registerkarte:
Daten/Text in Spalten mehrmals durch Leerzeichen getrennt duchführen bis die Zahlen isoliert sind.
dann formatieren und schwups kann ich summen bilden.
Aber Dave kann mir ja noch besser tips für Acces geben ?
Access in % mInuten ? :-)
erstmal danke an alle !!

Antwort 8 von balumba

Wenn der Text in A1 steht, dann gehts so:

=LINKS(RECHTS(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1);LÄNGE(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1))-4);SUCHEN(",";RECHTS(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1);LÄNGE(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1))-4))+2)


Gruß
Balumba



Antwort 9 von balumba

Wenn der Text in A1 steht, dann gehts so:

=LINKS(RECHTS(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1);LÄNGE(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1))-4);SUCHEN(",";RECHTS(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1);LÄNGE(RECHTS(A1;LÄNGE(A1)-SUCHEN("EUR";A1)+1))-4))+2)


Gruß
Balumba

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: