Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahlenwert aus string auslesen

Zahlenwert aus string auslesen
12.10.2003 21:59:11
Björn
Huhu zusammen,

kann mir gerade jemand sagen, wie man per VBA eine zahl aus einem String mt Text auslesen kann? Also zB aus "1000 DM" mache 1000 ?

Vielen Dank!

Gruß

Björn

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlenwert aus string auslesen
12.10.2003 22:34:40
Klaus-Dieter
Hallo Björn,

mit diesem Makro geht es, bezogen auf dein Beispiel:


Option Explicit
Sub isolieren()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Cells(r, 2).NumberFormat = "0"
Cells(r, 2) = Left(Cells(r, 1), Len(Cells(r, 1) - 3))
Next r
End Sub



Code eingefügt mit: Excel Code Jeanie

So sieht das Ergebnis aus:

Anzeige
AW: Zahlenwert aus string auslesen
12.10.2003 22:40:30
th.heinrich
hallo Björn,

warum per VBA ?

SUCHEN-ERSETZEN. suchen nach DM ersetzen durch nichts.

gruss thomas
AW: Zahlenwert aus string auslesen
12.10.2003 22:41:25
Holger Levetzow
versuche es mal so:

Sub zahl()
Text = Range("A1")
For i = 1 To Len(Text)
If Asc(Mid(Text, i, 1)) >= 48 And Asc(Mid(Text, i, 1)) <= 57 Then ergebnis = ergebnis & Mid(Text, i, 1)
Next
ergebnis = ergebnis * 1
End Sub

in Ergebnis steht dann die Zahl.
Läßt Du ergebnis = ergebnis * 1 weg, steht in ergebnis die zahl als Text.

Holger
AW: Zahlenwert aus string auslesen
12.10.2003 23:20:56
Björn
Huhu,

Danke Euch Dreien!

Ich hatte überlegt, ein Script zu schreiben, das alle DM-Werte in Tabellen in Euro umrechnet. die Lösungsvvorschläge haben gezeigt, daß das gar nicht so einfach ist. Ein Ansatz auf Excel-basis allein scheidet natürlich leider aus :-(.

Der Ansatz von Holger hat mich zunächst am meisten beeindruckt und es ist wohl auch die treffendeste Antwort auf meine insoweit zu unpräzise Frage. Ich hab 's auch entsprechend für einen kleinen Range-Auschnitt weiterentwickelt - s.u.. Aber es geht natürlich fast zu weit, weil dadurch auch nicht Währungsrelatierte Kombinationen von Text und Zahlen verloren gehen könnten. Solchermaßen muß die Reise wohl doch eher in die Richtung von Klaus-Dieters Ansatz gehen. Per se geht der natürlich auch zu weit, weil er voraussetzt, daß alle Werte-Kombinationen ein " DM" am Ende besitzen. Daher muß es wohl so werden:

wenn am Anfang oder am Ende ein "DM " oder " DM" und der Ausdruck davor bzw dahinter eine Zahl enthält, dann kappe 3 Stellen vor bzw. hinter der Zahl.....

Ob es besonders zuverlässig wird...mal gucken.

Jedenfalls vielen Dank Euch allen noch einmal!

Liebe Grüße

Björn



Sub zahl()
z = 1
Do While z < 500
Text = Cells(z, 1).Value
For i = 1 To Len(Text)
If Asc(Mid(Text, i, 1)) >= 48 And Asc(Mid(Text, i, 1)) <= 57 Then
ergebnis = ergebnis & Mid(Text, i, 1)
End If
Next
If IsNumeric(ergebnis) Then
ergebnis = ergebnis * 1
Cells(z, 1) = ergebnis
End If
ergebnis = ""
z = z + 1
Loop
End Sub

Anzeige
AW: Zahlenwert aus string auslesen
12.10.2003 23:40:54
Holger Levetzow
dann solltest Du solche Zeichen wie , integrieren (Nr. 44).

Holger

317 Forumthreads zu ähnlichen Themen


Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige