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))
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
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
nämlich hier:
https://supportnet.de/discussion/listmessages.asp?AutoID=184371&...
Gruß
cmkatz
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??hatte gestern schon diese tip erhalten, wenn das Textfeld (bsp: Zelle A1) mit Zahlen so aussieht:
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
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
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
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 !!
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
=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
=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

