MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 19.07.2018, 07:09   #1
mirko231078
Neuer Benutzer
Neuer Benutzer
Standard Excel 2013 - Zahl aus Text extrahieren

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

Geändert von mirko231078 (19.07.2018 um 07:40 Uhr).
mirko231078 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 07:14   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

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.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m 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.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.

Geändert von Hajo_Zi (19.07.2018 um 07:24 Uhr).
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 07:39   #3
mirko231078
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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
mirko231078 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 07:43   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

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.


Gruß Hajo

__________________

Signatur in jedem Beitrag
m 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.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 07:52   #5
RPP63neu
MOF Meister
MOF Meister
Standard

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

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 07:57   #6
RPP63neu
MOF Meister
MOF Meister
Standard

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:

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok

Geändert von RPP63neu (19.07.2018 um 07:59 Uhr).
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:07   #7
mirko231078
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von Hajo_Zi Beitrag anzeigen

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.


Gruß Hajo

Hajo was erzählst du für ein Quatsch, ich habe diese Formel aus einem deiner Links.

Danke RPP63 ich probier es mal so und ja vor der Zahl ist ein backslash
mirko231078 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:25   #8
chris-kaiser
MOF Guru
MOF Guru
Standard

Hi,

reicht es ggf. auch so?
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABC
1C:UserMirkoDesktopChargenZeugnisse435256-85476.msg435256-85476.msg435256-85476

ZelleFormel
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 .......
Angehängte Grafiken
Dateityp: jpg grafik.JPG (53,2 KB, 2x aufgerufen)

__________________

Gruß Chris

Feedback nicht vergessen,
p.s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
3a2920576572206973742064656e20646120736f206e65756769657269672e

Geändert von chris-kaiser (19.07.2018 um 08:31 Uhr).
chris-kaiser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:33   #9
mirko231078
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke Chris so in etwa haben wir es jetzt auch gemacht. erstmal
mirko231078 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:39   #10
RPP63neu
MOF Meister
MOF Meister
Standard

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
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

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 09:33   #11
mirko231078
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat:

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

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
mirko231078 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:51 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.