Nur Zahlen herausfilten, geht das?

Question

Guten Morgen meine lieben Excel *Z*s =)

ich würde gerne aus einer Zelle: "DOUGLAS VST.48 GES.M.B.H. " oder "MARIONNAUD FIL.09" oder "MUELLER VST 5614" nur die zahlen herausfiltern!!!

geht das???

die zahlen sind immer unterschiedlich in dem text eingefügt.....zum teil 2, 3 oder 4 stellig!!!

ist sowas möglich????


liebe grüße
danke

Answer 1

hallo,

so direkt ist mir keine Lösung bekannt, aber wäre über Makro zu machen. Dazu müsste man wissen wo der Text steht , wo die Zahl hin soll und ob in der Zahl auch sonerzeichen (Punkt, komme o.ä.) vorkommen

Gruß

Helmut

Answer 2

hallo,

sonerzeichen

=Sonderzeichen

Gruß

Helmut

Answer 3

Hallo atomictunes,

hier findest Du die Lösung

www.excelformeln.de/formeln.html?welcher=103

Gruß
Rainer

Answer 4

Hallo noch mal,

falls Du Probleme beim übersetzen der Formel hast, sie lautet so:

{=SUM((MID(0&A1,LARGE(IF(ISNUMBER(MID(0&A1,ROW($1:$256),1
)*1),ROW($1:$256),1),ROW($1:$256)),1)*1)*10^(ROW($1:$256)-1))}

Beachte: Formeleingabe muss mit Strg+Shift+Return abgeschlossen
werden, da sie als Matrixformel arbeitet.

Gruß
Rainer

Answer 5

@ rainer....

versteh dir formel leider nicht ganz:

nehmen wir mal an: DOUGLAS VST.416 GES.M.B.H. steht in D2 und ich möchte die Zahl in E2 drin stehen haben

wie würde die formel reinkopiert werden?

grüße

Answer 6

hi all ^^

ein beispiel :-)

gruss nighty

parameter,die da waeren

zelle,rang

in deinem falle waere der erste zahlenblock gefragt,daher waere der rang die 1

Function SumZahlen(Zellen As Variant, zaehler1 As Integer) As String
Dim Zelle As Range
Dim zeich1 As Integer
Dim schalter As Boolean
Dim zaehler3 As Integer
ReDim zaehler2(Len([Zellen])) As String
zaehler3 = 1
Application.Volatile
If zaehler1 > Len([Zellen]) Then zaehler1 = Len([Zellen])
For zeich1 = 1 To Len([Zellen])
If Mid([Zellen], zeich1, 1) Like "[0-9,.]" = True Then
zaehler2(zaehler3) = zaehler2(zaehler3) & Mid([Zellen], zeich1, 1)
schalter = True
End If
If schalter = True And Mid([Zellen], zeich1, 1) Like "[0-9,.]" = False Then
zaehler3 = zaehler3 + 1
schalter = False
End If
Next zeich1
SumZahlen = zaehler2(zaehler1)
End Function

Answer 7

Hallo,

kopiere Rainers Formel in die Zelle E2 und ersetze in der Formel A1 durch D2.

Und:

Beachte: Formeleingabe muss mit Strg+Shift+Return abgeschlossen
werden, da sie als Matrixformel arbeitet.

Gruß

M.O.

Answer 8

Hallo atomictunes,

das Beispiel sollte Klarheit bringen.

rapidshare.com/files/264667071/Zahlen.xls.html

Gruß
Rainer

PS: Wenn Du bei weiteren Fragen Deine Probleme in dieser Form darstellst, wird es
kaum noch Missverständnisse geben und alle sind glücklich :-)

Answer 9

könnt ihr mir noch mal helfen??? habe gerade eine test.xls hochgeladen....

http://www.2shared.com/file/7043048/63cd45b1/test.html

Answer 10

@ rainberg

kannst du es vllt wo anders hochladen? rapid geht hier bei mir leider nich :(