Excel Dateiname aus Pfad

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe wer-weiß-was-Gemeinde,

ich stehe mal wieder vor einem riesigen Denkproblem.
Ich habe eine Exceltabelle wo ich in der Spalte A einen Pfad samt Dateiname eingelesen habe.

Beispiel: C:\Ordner\Unterordner\test.xls

Nun möchte ich mir gerne etwas zusammenschreiben das mir die Spalte A durchsucht, den Dateinamen abschneidet und in die Spalte B schreibt.

Das das dann so aussieht:
Spalte A = C:\Ordner\Unterordner\
und
Spalte B = test.xls

Das muss ich so für 1350 Zeilen machen.
Gibt es da eine schnelle und effektive Lösung???

Danke im voraus.

Viele liebe Grüße
ElaD

#2

Beispiel: C:\Ordner\Unterordner\test.xls
Nun möchte ich mir gerne etwas zusammenschreiben das mir die
Spalte A durchsucht, den Dateinamen abschneidet und in die
Spalte B schreibt.
Das das dann so aussieht:
Spalte A = C:\Ordner\Unterordner\
und
Spalte B = test.xls

Hi Michaela,
probiers mal so: (müßte ab version XL2000 laufen, da XL97 kein Instrrev kennt

sub tt()
dim zei as long
for zei = 1 to range("A65536").end(xlup).row
 cells(zei,2)=mid(cells(zei,1),instrrev(cells(zei,1),"\")+1)
 cells(zei,1)=left(cells(zei,1),instrrev(cells(zei,1),"\")-1)
next zei
end sub

Gruß
Reinhard

#3

Genial, funzt!
Mit so was ähnlichem habe ich auch rumhantiert, aber bei mir kamen immer irgendwelche Bugs, war ja auch nur so ähnlich.
Danke, Danke, Danke

Viele Grüße
ElaD

sub tt()
dim zei as long
for zei = 1 to range(„A65536“).end(xlup).row

cells(zei,2)=mid(cells(zei,1),instrrev(cells(zei,1),"")+1)

cells(zei,1)=left(cells(zei,1),instrrev(cells(zei,1),"")-1)
next zei
end subGruß
Reinhard