HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Zahlen isolieren

Forumthread: Zahlen isolieren
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zahlen isolieren

Zahlen isolieren

26.04.2003 09:12:40

Michael

Hallo,

ich habe Zelleinträge, die jeweils eine Zahl und beliebigen Text enthalten. Wie kann ich diese Zahl so isolieren, dass ich dann einen Zelleintrag nur noch mit dieser Zahl habe.

z.B.

1. Zelle : shadhgajdg - 5600hjsdjfhj sskk /
bereinigter Eintrag müßte 5600 sein
2. Zelle : gfh hfjfjjd 4670
bereinigter Eintrag müßte 4670 sein
3. Zelle : 2345ghsag akdk KHD-hdjaadajd
bereinigter Eintrag müßte 2345 sein

Die Position der Zahl innerhalb der Zelle ist also immer beliebig. Es kann auch sein, dass diese Zahl als String interpretiert wird.

Gruß und Danke
Michael

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zahlen isolieren

26.04.2003 09:33:31

andre
Formel - Zahl von Text trennen - Zahl in der Mitte

26.04.2003 17:04:43

Boris
Re: Zahlen isolieren

26.04.2003 20:19:08

andre
Dann mach auch direkt ne Zahl draus...

26.04.2003 21:21:23

Boris
Re: Dann mach auch direkt ne Zahl draus...

26.04.2003 21:37:57

andre
Ja, so geht´s auch :-) oT

26.04.2003 21:59:34

Boris

Re: Zahlen isolieren

26.04.2003 09:33:31

andre

hallo michael,
z.b. so:

Sub zahlenextrakt()
Dim meinString$, laenge%, zeichen$, zahl
meinString = ActiveSheet.[a1]
laenge = Len(meinString)
For i = 1 To laenge
zeichen = Mid(meinString, i, 1)
If Asc(zeichen) >= 48 And Asc(zeichen) <= 57 Then
zahl = zahl + zeichen
End If
Next
MsgBox zahl
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

gruss andre

Formel - Zahl von Text trennen - Zahl in der Mitte

26.04.2003 17:04:43

Boris

Hi Miachael,

in A1 steht dein Text. Dann in B1:

{=TEIL(LINKS(A1;MAX(WENN(ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1);SPALTE(1:1))));VERGLEICH(WAHR;ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1);0);LÄNGE(A1))}

Array-Formel; die {geschweiften Klammern} nicht eingeben, Formeleingabe mit Strg-Shift-Enter abschließen. Das erzeugt sie.

Gruß Boris

P.S: Von WF

Re: Zahlen isolieren

26.04.2003 20:19:08

andre

hallo michael,
damit das ganze als funktion genutzt werden kann geht der code auch so:

gruss andre

Dann mach auch direkt ne Zahl draus...

26.04.2003 21:21:23

Boris

Hi André,

dein Funktion läuft - liefert aber Text.
Um ne Zahl draus zu machen:

zahlenextrakt = Val(zahl)

Gruß Boris

P.S.: Der Vollständigkeit halber solltest du auch i dimensionieren (z.B. mit Integer).

Re: Dann mach auch direkt ne Zahl draus...

26.04.2003 21:37:57

andre

hallo boris,
stimmt bedingt. i ist ok, ansonsten wenn du statt as variant as double schreibst wird`s auch 'ne zahl - war jedenfalls beim testen so mit 123willi4.
gruss andre

Ja, so geht´s auch :-) oT

26.04.2003 21:59:34

Boris

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!