Hallo,
habe folgendes Problem.
Ich möchte mit
For i = 3 To zeilen_2 Step 1
spfad = Range("G" & i)
sfile = Right$(spfad, Len(spfad) - InStrRev(spfad, "\"))
Range("G" & i).Delete
Range("G" & i).Value = sfile
Next i
aus einer Spalte in der komplette Pfade stehen, die Namen der Dateien extrahieren. Das funktioniert auch soweit.
Nur!!! Es wird nur jeder zweite Name extrahiert. Siehe Bsp. unten
Step 1 bzw. andere Spalte zum Schreiben helfen auch nicht weiter.
Bsp: vorher
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\03q.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\03u.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\04b.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\08u000000.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\13L000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\13Q000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15L000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15Q000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15U000000.XLS
danach
03q.xls
04b.xls
13L000000.XLS
15L000000.XLS
15U000000.XLS
Ich weiß nicht mehr weiter...
Mfg, Odin001