Office: (Office 2013) Zahl aus Text extrahieren

mirko231078 · 17. Juli 2018

Hallo zusammen,

ich möchte in excel eine Zahl aus einem Pfad extrahieren, wie könnte ich das am besten machen.

In der Zelle B2 steht zum Bespiel
C:UserMirkoDesktopChargenZeugnisse435256.msg
in Zelle B3 steht zu Beispiel:
C:UserMirkoDesktopChargenZeugnisse435256-85476.msg

Ich möchte nur die Zahlen in einer neuen Zelle anzeigen lassen, eventuell auch mit bindestrich.

Wie könnte ich das am besten machen?

Vielen Dank
Gruß
Mirko

:)

Hajo_Zi · 18. Juli 2018

Halo Mirko,

http://www.excelformeln.de/formeln.html?welcher=100
http://www.excelformeln.de/formeln.html?welcher=101
http://www.excelformeln.de/formeln.html?welcher=102

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

mirko231078 · 18. Juli 2018

Danke für die Antwort, aber leider zeigt er mir im Augenblick nun garnix an.

die Formel lautet:

=LINKS(B2;ANZAHL(LINKS(B2;SPALTE(A2:IQ2))*1))

also angepasst auf die Zelle

Hajo_Zi · 18. Juli 2018

Gut mein Vorschlag hat Dir also nicht gefallen. Zu Deiner Formel musst Du den Fragen von dem Di die hast.
Ich arbeite nicht für den Papierkorb und bin darum raus.

RPP63 · 18. Juli 2018

Moin!
Da die Forensoftware Backslashes verschluckt (ein doppelter erzeugt einen einzelnen angezeigten: \):
Wo steht der letzte Backslash?
Direkt vor der Zahl?
Dann suche die Position dieses Zeichens gemäß
http://www.excelformeln.de/formeln.html?welcher=108
Da die Dateiendung aus 3 Zeichen (+Punkt) besteht, kannst Du darauf TEIL() anwenden.

Gruß Ralf

RPP63 · 18. Juli 2018

In A1: Dein FullName
In B1: =FINDEN("#";WECHSELN(A1;"\";"#";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))
In C1: =TEIL(A1;B1+1;LÄNGE(A1)-B1-4)
Ergibt:

mirko231078 · 12. Januar 2021

von Hajo_Zi

Gut mein Vorschlag hat Dir also nicht gefallen. Zu Deiner Formel musst Du den Fragen von dem Di die hast.
Ich arbeite nicht für den Papierkorb und bin darum raus.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 18. Juli 2018

Hi,

reicht es ggf. auch so?

Arbeitsblatt mit dem Namen 'Tabelle1'
A B C
1 C:UserMirkoDesktopChargenZeugnisse435256-85476.msg 435256-85476.msg 435256-85476
Zelle Formel
B1 =GLÄTTEN(RECHTS(WECHSELN(A1;"";WIEDERHOLEN(" ";99));99))
C1 =LINKS(B1;LÄNGE(B1)-4)
Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
edit hier nach als Bild .......

mirko231078 · 18. Juli 2018

Danke Chris so in etwa haben wir es jetzt auch gemacht. erstmal

RPP63 · 18. Juli 2018

Ah!
Die "Lupo-Formel"!
Ginge natürlich auch mittels zwei Varianten einer UDF:
Code:

Function DateiName$(r$)
Dim tmp$: tmp = Mid(r, InStrRev(r, "\") + 1, 9 ^ 9)
DateiName = Left(tmp, InStr(tmp, ".") - 1)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder:
Code:

Function DatN2$(r$)
Dim Trennung: Trennung = Split(r, "\")
Dim tmp$: tmp = Trennung(UBound(Trennung))
DatN2 = Mid(tmp, 1, Len(tmp) - 4)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mirko231078 · 18. Juli 2018

Sub DateienAuflisten()

Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object

Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:Usersmirko.baaskeDesktopchargen")
Set objDateienliste = objVerzeichnis.Files

lngZeile = 1

For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Not Right(objDatei.Name, 4) = ".vbs" Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1

End If
Next objDatei

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe noch eine Möglichkeit gefunden, dies funktioniert so schon richtig gut. Das einzige was ich jetzt noch möchte das die Dateiendungen verschwinden, vielleicht hat hier jemand noch eine Idee.

Danke

Office: (Office 2013) Zahl aus Text extrahieren

Zahl aus Text extrahieren

Zahl aus Text extrahieren

Zahl aus Text extrahieren

Zahl aus Text extrahieren

Zahl aus Text extrahieren - Similar Threads - Zahl Text extrahieren

DATEDIF Ergebnis

Text aus einer Zelle in Zahl umwandeln

Zelle mit Text und Zahlen aufteilen

Makro/VBA Text in Zahl umwandeln

Zahl aus Text extrahieren

Zahlen aus Text extrahieren

Zahlen aus Zelle mit Text extrahieren

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	C:UserMirkoDesktopChargenZeugnisse435256-85476.msg	435256-85476.msg	435256-85476

Zelle	Formel
B1	=GLÄTTEN(RECHTS(WECHSELN(A1;"";WIEDERHOLEN(" ";99));99))
C1	=LINKS(B1;LÄNGE(B1)-4)