Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl vom Text über Makro trennen?

Zahl vom Text über Makro trennen?
09.09.2015 20:09:38
Kasimir
Hallo Leute!
Ich habe ein Problem. Ich habe eine Liste, in der ich Zahlen von Texten trennen muss. In Spalte A stehen in den Zellen eine Kombination aus Zahlen und Text. Als Beispiel z.B.
100Text
1204TextText
12Text
Ich möchte nun die Zahl vom Text trennen und den Text löschen. Für obiges Beispiel müsste dann das Ergebnis wie folgt aussehen:
100
1024
12
Wie stelle ich das am geschicktesten in Form eines Makros an?
Ich bin Euch für jede Hilfe dankbar,
Kasimir

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl vom Text über Makro trennen?
09.09.2015 20:17:05
Gerd
Hallo Kasimir! Sub t() Dim Z As Long For Z = 1 To 3 Cells(Z, 2) = Val(Cells(Z, 1)) Next End Sub
Gruß Gerd

AW: Zahl vom Text über Makro trennen?
09.09.2015 20:20:49
Kasimir
Hallo Gerd!
Wow, das ging ja mal schnell und die Lösung ist auch noch recht simpel. Danke Dir für die Lösung. Dir noch einen schönen Abend.
MfG
Kasimir

AW: Zahl vom Text über Makro trennen?
09.09.2015 20:23:45
Matthias
Hallo
Geht bei mir nur wen die Zahl immer vorn steht!
Wieso soll aber aus 1204TextText plötzlich 1024 werden ? Seltsam!
Gruß Matthias

AW: Zahl vom Text über Makro trennen?
09.09.2015 20:32:27
Gerd
Hallo Matthias,
natürlich geht das nur, wenn der Zahlenteil links steht - wie in den gezeigten Beispielen.
Und den Rest buchen wir unter Schreibfehler.
Gruß Gerd

Anzeige
kein Problem Gerd, mir fiel das nur eben auf, owT
09.09.2015 20:35:54
Matthias

Na, da war wohl das 'saubere Schläfer-Geschenk'...
09.09.2015 23:33:00
Luc:-?
…von gerademal gestern so ziemlich umsonst (genauso wie mein 10 Jahre älteres), Leute,
wenn hier nicht darauf verwiesen wird! :-|
 ABCDE
7100Text100=--Sauber(A7)100=--MaskOn(A7;"num")
81204TextText1204=--Sauber(A8)1204=--MaskOn(A8;"num")
912Text12=--Sauber(A9)12=--MaskOn(A9;"num")
10     
11100=--Sauber("100Text")`=--Sauber(´`)´
121204=--Sauber("1204TextText")
1312=--Sauber("12Text")
14     
15100=--MaskOn("100Text";"num")`=--MaskOn(´`;"num")´
161204=--MaskOn("1204TextText";"num")
1712=--MaskOn("12Text";"num")
Die beiden unteren BspErgebnisse erzielt man, wenn man den blauen FmlText in den durch `…´ markierten Teilen per SubProzedur um den Originaltext herumlegt. Vorteil → das Original bleibt erhalten (kann ggf rekonstruiert wdn) und es wird keine separate Ergebnisspalte benötigt, die dann ggf auf das Original, dieses vernichtend, zurückgespeichert wdn muss. Das wäre hier die eigentliche Heraus­forderung gewesen, nicht die, das Rad zum xten mal neu zu erfinden (auch, wenn der Deutsche angeblich gerade dazu neigt)… ;->
Übrigens fktn beide UDFs auch, wenn die Zahl (hier wohl möglichst nur eine!) an anderer Stelle im Text steht.
Gruß, Luc :-?
Besser informiert mit …

Anzeige
Hier mal noch eine Alternative
09.09.2015 21:00:13
Matthias
Hallo
 AB
1T1e0x0t100
210Tex0t100
3Text100100


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4 

Option Explicit
Sub Zahlen()
Dim MyMid&, x&, strg$
For x = 1 To 3
strg = ""
For MyMid = 1 To Len(Cells(x, 1))
If IsNumeric(Mid(Cells(x, 1), MyMid, 1)) Then
strg = strg & Mid(Cells(x, 1), MyMid, 1)
End If
Next
Cells(x, 2) = strg
Next
End Sub

Gruß Matthias
Anzeige

302 Forumthreads zu ähnlichen Themen

Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzeige
Zellinhalte Zahlen und Text extrahieren
Marky

Hallo Excel Spezialisten !
Ich würde gerne aus zwei nebeneinander stehenden Spalten die Zellinhalte extrahieren.
Die Zellinhalte bestehen aus Zahlen und Text. Die aus den Zellen zu extrahierenden Zahlen und Texte
stehen immer in den Spalten K10 und N10.
Die Zielzellen sind immer...
29.09.2008 12:55:00
Thread-ID: 1013076
6 Beiträge
Zelle mit 50 stelliger Zahl
Mathias

Hallo guten morgen,
kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
21.10.2008 08:33:45
Thread-ID: 1017842
3 Beiträge
Anzeige
Text_Zahlenwert suchen und Zahlen "ablegen"
Lemmi

Hallo zusammen,
ich möchte aus einer drei spaltigen Tabelle Zahlen auslesen, die dann Monatsweise abgelegt werden sollen!
Es soll immer nach einem " Schlüsselwort" (...kann auch eine x beliebige Zahlfolge in der Benennungsliste sein) die Auslesung der Zahlenwerte durchgeführt werden.
03.01.2009 22:11:00
Thread-ID: 1036655
4 Beiträge
Text und Zahlen teilen
Bernie

Hallo Leute,
ich suche ganz dringen nach einem Makro, mit dem ich aus einer Tabelle mit Straßennamen - diese sind oft chaotisch geschrieben- z.B. Bahnhofstraße45A
a) die Straße in eine Spalte
b) die Hausnummer (mit A usw.) in eine Spalte
ausgeben kann.
Hat jemand ein zünd...
05.03.2009 14:39:23
Thread-ID: 1056861
7 Beiträge
Text und Zahlen in einer Zelle
Sammy

Hallo liebes Forum
Ich bekomme eine Liste mit ca. 200 Namen mit Personalnummeren.
die Zelle um die es geht sieht so aus.
Zelle A1 143(Gerda Becker)
Ich benötige allerdings die Zahl 143 in einer Zelle und (Gerda Becker) in einer Zelle.
Falls das nicht möglich ist, würde e...
24.05.2009 10:20:18
Thread-ID: 1076915
7 Beiträge
Zahl und Datum als formatierten Text übergeben
k

Hallo,
sicherlich stelle ich mich nur wieder zu blöd an, aber ich komm nicht weiter.
Ich habe in einer Tabelle Werte (Umsatzzahlen) sowie Datums-Werte(Tag der Rechnung) und möchte diese gern aber als "TEXT" an ein Listview-element weiter gegeben.
Dabei soll aber optisch es noch wie...
21.08.2009 10:03:57
Thread-ID: 1097614
7 Beiträge
Zahlenwert von Text trennen
Text

Hallo zusammen,
habe mal wieder ein kleines Problem mit Zahlen und Einheiten!
Ich habe heute eine Zahl mit Einheit (verschiedenen Einheiten) in einer Zelle z. B. in A1 123,03 Nm oder A2 123,123456 kg
Wie kann ich die Einheit von dem Zahlenwert trennen?
Mein ergebnis soll Zelle...
15.09.2009 19:31:11
Thread-ID: 1103044
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
11
5
2
14
3
6
6
6
4
3
3
3
7
4
5
3
5
22
11
6
2
5
3
1