Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen isolieren

Zahlen isolieren
26.04.2003 07: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
Anzeige
Re: Zahlen isolieren
26.04.2003 07: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

Anzeige
Formel - Zahl von Text trennen - Zahl in der Mitte
26.04.2003 15: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 18: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 19: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).

Anzeige
Re: Dann mach auch direkt ne Zahl draus...
26.04.2003 19: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 19:59:34
Boris




Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige