Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen

Forumthread: Dateinamen

Dateinamen
14.07.2003 10:09:19
Maze
Hallo,
ich habe letzte Woche diese Formel von Nike gekriegt. Funktioniert super!
Jetzt hab ich aber noch zusätzlich andere Dateinamen in anderer Form
Diese Formel
For i = 1 To 50
strTest = Cells(i, 1)
Dim intU1 As Integer
Dim intU2 As Integer
Dim intU3 As Integer
intU1 = InStr(1, strTest, "_")
intU2 = InStr(intU1 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
'ID612_BC_test
Cells(i, 2) = Mid(strTest, intU2 + 1, intU3 - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & _
Right(strTest, Len(strTest) + 1 - intU3)
Next i
funtioniert nur bei Dateinamen in solcher Form FORM_SD_ID752_Tst.doc die anderen sind in dieser Form FORM_SD_ID785.doc meine frage ist kann ich die Formel so umbauen das sie bei beiden Dateinamen funkt.
Danke
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen
14.07.2003 11:06:38
ChrisL
Hi Maze
Option Explicit

Sub test()
Dim intU1 As Integer
Dim intU2 As Integer
Dim intU3 As Integer
Dim i As Byte
Dim strTest As String
For i = 1 To 50
strTest = Cells(i, 1)
If strTest <> "" Then
If Len(strTest) = 17 Then
intU1 = InStr(1, strTest, "_")
intU2 = InStr(intU1 + 1, strTest, "_")
Cells(i, 2) = Mid(strTest, intU2 + 1, intU3 - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & Right(strTest, 4)
Else
intU1 = InStr(1, strTest, "_")
intU2 = InStr(intU1 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
Cells(i, 2) = Mid(strTest, intU2 + 1, intU3 - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & _
Right(strTest, Len(strTest) + 1 - intU3)
End If
End If
Next i
End Sub

Gruss
Chris

Anzeige
AW: Dateinamen
14.07.2003 11:42:45
maze
Hi Danke funktioniert,
nur ein Fehler macht er beim umbennen (den Punkt nach ID785)
ID785._SD.doc
Wo muss ich die Formel ändern wenn ich den . noch rauskriegen will
Danke

AW: Dateinamen
14.07.2003 11:47:21
ChrisL
Hi Maze
FORM_SD_ID785.doc
ergibt
ID785_SD.doc
kann den Fehler nicht nachvollziehen.
Gruss
Chris

Anzeige
AW: Dateinamen
14.07.2003 13:01:46
maze
Komisch bei mir macht er den Punkt.
Jetzt hab ich noch ein weiteres Format hinzubekommen.
FORM_CAD_ID750.doc
vielleicht kannst mir nochmal helfen.
DANKE

AW: Dateinamen
14.07.2003 13:12:13
ChrisL
Option Explicit

Sub test()
Dim intU1 As Integer
Dim intU2 As Integer
Dim intU3 As Integer
Dim i As Byte
Dim strTest As String
For i = 1 To 50
strTest = Cells(i, 1)
If strTest <> "" Then
intU1 = InStr(1, strTest, "_")
intU2 = InStr(intU1 + 1, strTest, "_")
intU3 = InStr(intU2 + 1, strTest, "_")
If intU3 = 0 Then
Cells(i, 2) = Mid(strTest, intU2 + 1, InStr(strTest, ".") - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & Right(strTest, 4)
Else
Cells(i, 2) = Mid(strTest, intU2 + 1, intU3 - 1 - intU2) & _
Mid(strTest, intU1, intU2 - intU1) & _
Right(strTest, Len(strTest) + 1 - intU3)
End If
End If
Next i
End Sub

Gruss
Chris

Anzeige
AW: Dateinamen
14.07.2003 13:44:10
maze
Super, funktioniert alles
Vielen Dank

;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Dateiname
Martin

Hallo,
ich habe eine Exceltabelle, die beim Speichern an einem speziellen Ort mit einem speziellen Dateiname gespeichert werden soll. Pfad steht in einer Zelle (A1), der Dateiname in einer anderen Zelle (A2).
Wenn der Nutzer speichert soll die Datei dann dort gespeichert werden.
Ic...
08.08.2008 11:30:22
Thread-ID: 1000223
4 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Anzeige
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Dateinamen-Übertrag aus Verzeichnis in Excelspalte
Joerschi

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich möchte aus einem beliebigen Verzeichnis auf meiner Festplatte die vollständigen Namen aller darin enthaltenen Dateien in eine Excel-Tabelle übertragen. Die Sortierung sollte dabei alphabetisch/nummerisch aufste...
10.10.2008 14:46:00
Thread-ID: 1015594
9 Beiträge
Datum beim Export im Dateinamen
Herbert

Hallo,
bezüglich meines Beitrages zur Hinterlegung habe ich noch eine andere Idee. Der nachfolgende Code exportiert das jeweilige Tabellenblatt nach C:\temp. Dateiname ist der jeweilige Name der Registerkarte. Kann man hier beim Abspeichern das aktuelle Datum beifügen (Name der Registerkar...
21.10.2008 15:41:27
Thread-ID: 1018062
3 Beiträge
Anzeige
Dateinamen zusammensetzen
Wolfgang

Einen guten Abend an alle
Mein Problem ist folgendes:
In meiner Tabelle sollen Daten aus anderen Mappen übernommen werden.
Die gewünschten Jahre werden in anderen Tabellenblättern dargestellt.
Die Daten sind zu importierten aus Mappen mit Namen wie xyz07.xls, xyz08 usw.,
wob...
22.10.2008 19:09:38
Thread-ID: 1018450
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige