Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige