VBA Code - Pfad auswahl
Sebastian
wäre Euch für Eure hilfe sehr dankbar. Habe nachfolgenden VBA Code hier in der Recherche gefunden und möchte diesen gerne ändern. Im moment muss ich den Pfad zum Auslesen eines Ordners im Code direkt ändern. Dies ist sehr mühsam. Ich würde gerne ein Pfadauswahlfenster in den Code einbauen, weiß aber nicht wie.
Bin Euch für Eure Hilfe sehr dankbar.
Gruß Seppel
Sub OrdnerInhalteEinlesen()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
Columns(1).ClearContents
sPath = "P:\Video\" ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow, 1).Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns("A:A").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A1:A139")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End
Sub 'Bei erneutem Aufruf werden die alten Funde überschrieben