Office: Dateinamen auslesen

Hallo Freunde,

ich habe unten stehenden Code. Warum kann ich diesen nicht per klick auf den Button ausführen?
Danke für eure Hilfe

Sub Worksheet_Change(ByVal Target As Range)

Dim Dateiname, dummy, pfad
pfad = "C:\Users\Desktop\Labortest\" 'mit \ am Ende!
If Target.Column = 1 Then
Dateiname = Dir(pfad & "*A2P*")
Do While Dateiname ""
If InStr(Dateiname, Target) > 0 Then
dummy = Split(Dateiname, "_")

Worksheets("Sheet2").Cells(Target.Offset(0, 2).Row, Target.Offset(0, 2).Column) = Target

End If
Dateiname = Dir()
Loop
End If

End Sub

:)

 

Ich hab mich falsch ausgedrückt.

Mit diesem Code wird der Dateiname erst importiert, wenn ich ihn in Spalte A im Sheet 1 eingebe. Sollte er im Ordner sein, dann wird er im Sheet 2 angezeigt.

Ich suche einen Code, den ich einem Button zuweisen kann. Per Klick auf den Button sollen alle Dateinamen ins excel importiert werden.

 

Hi,

Code:

 

Danke funktioniert wunderbar

 

Ich habe jetzt ein Problem, das ich nicht verstehe.

ich habe das ganze jetzt schon super am laufen.
Aber:
Ich möchte den Ordner, in dem die Files liegen, jetzt auf einen Netzwerkserver legen. Ich kann aber die Files nicht von diesem Server laden.
Ich habe schon alles Probiert, er lädt sie nicht.

Wenn ich aber den Link zum Server anklicke, öffnet er mir den Ordner, also stimmt die verlinkung. Nur einfügen tut mir der Code nichts.

Was kann das sein?

 

Niemand eine Idee?

 

Dann überwache doch mal strDateiname.