Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1456to1460
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
Inhaltsverzeichnis

Suche von Element in Dateiname

Suche von Element in Dateiname
12.11.2015 11:51:18
Element
Hallo in die Runde, mir wurde hier schon oft geholfen:)
Diesmal habe ich folgendes Problem, ich habe einen Dateinamen(BSP.: HSb12w09ms14a2ausu). ich benötige die zahl hinter dem ersten a. die zahl kann einstellig bis zu dreistellig sein und die pos von a kann nach hinten werden da die zahlen davor variablen sind die sich mit jeder Datei ändern können.
Hätte evtl jmd einen tipp bzw einen kleinen algorhythmus für mich.
Besten dank
Robert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche von Element in Dateiname
12.11.2015 12:47:59
Element
Hi Robert,
ist sicherlich nicht die Beste Lösung, aber mit einer Hilfsspalte und zweier Formel würde es so klappen:
A1 wäre Dein Beispielname: HSb12w09ms14a2ausu
B1 (Hilfsspalte) die Formel: =RECHTS(A1;(LÄNGE(A1)-SUCHEN("a";A1)))
C1 (Ergebnisspalte) die Matrixformel: {=SUMME((TEIL(0&B1;KGRÖSSTE(WENN(ISTZAHL(TEIL(0&B1;ZEILE($1:$256);1)*1);ZEILE($1:$256);1);ZEILE($1:$256));1)*1)*10^(ZEILE($1:$256)-1))}
Matrixformel mit Strg, Shift + Enter abschliessen.
mfg bernd

AW: Suche von Element in Dateiname
12.11.2015 13:02:08
Element
Moin
Vlt. auch zu lang. ;-)



Tabelle1
 AB
1HSb12w09ms14a2ausu2

verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
B1=VERWEIS(9^9;1*LINKS(TEIL(A1;FINDEN("#";WECHSELN(A1;"a";"#";1);1)+1;9^9);SPALTE(1:1)))  =LOOKUP(9^9,1*LEFT(MID(RC[-1],FIND("#",SUBSTITUTE(RC[-1],"a","#",1),1)+1,9^9),COLUMN(R)))

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

Anzeige
AW: mit vba
12.11.2015 13:50:03
hary
Moin
Einen hinterher.
Dim regEx As Object
Dim Matches As Object
Set regEx = CreateObject("Vbscript.Regexp")
With regEx
.Pattern = "a[0-9]+"
.Global = True
Set Matches = .Execute(Cells(1, 1)) '--Cells(1, 1) = A1
End With
With Matches
If .Count = 1 Then
MsgBox Mid(.Item(0), 2, 9 ^ 9)
End If
End With

gruss hary

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige