ich habe mit dem Macrorecorder folgenden Code aufgezeichnet bzw. erweitert:
Sub Verzeichnis_Einlesen()
'Sheet loeschen zwecks Vorbereitung
Rows("4:65536").Select: Selection.Delete Shift:=xlUp
'Dateinamen aus Verzeichnis auslesen mit Endung
Dim laufendeZahl As Integer
With Application.FileSearch
.LookIn = Range("a2").Value 'Verzeichnis-/Pafadname
.Filename = "*.*" 'Dateiendung (*.xls, *.doc, ...)
.Execute
For laufendeZahl = 1 To .FoundFiles.Count
Cells(laufendeZahl + 2, 1).Value = Dir(.FoundFiles(laufendeZahl)) 'mit Extension
Next laufendeZahl
End With
'Spalte Teilen
Application.DisplayAlerts = False
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="$", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Application.DisplayAlerts = True
'Zeilen Beschriften
Range("A3").Select: ActiveCell.FormulaR1C1 = "titel 1"
Range("B3").Select: ActiveCell.FormulaR1C1 = "titel 2"
Range("C3").Select: ActiveCell.FormulaR1C1 = "titel 3"
Range("d3").Select: ActiveCell.FormulaR1C1 = "Datei Endung"
Range("A3:d3").Select: Selection.Interior.ColorIndex = 6
'Hyperlinks einsetzen in Spalte A fuer diese Datei
Dim Zeile As Integer
Zeile = 5
Do Until _
Sheets("Sheet1").Cells(Zeile, 1) = ""
ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Sheet1").Cells(Zeile, 1), _
Address:="" & Sheets("Sheet1").Cells(Zeile, 1), _
ScreenTip:="Hiermit oeffnen Sie: " & Sheets("Sheet1").Cells(Zeile, 1), _
TextToDisplay:="" & Sheets("Sheet1").Cells(Zeile, 1)
Zeile = Zeile + 1
Loop
Range("A1").Select
End Sub
Funktioniert leider nicht ganz, wie ich es haben will.
Es soll das Verzeichnis in Zelle A2 eingelesen werden.
Im Verzeichnis sind Dateien vorhanden, die so aussehen koennten:
mehmet$undso$dann.xls
hallo$du$da.xls
was$geht$ab.doc
was$solldenn$sein.zip
ich$hier.doc
usw.
Die Einlesung Funktioniert.
Die Spaltentrennung funtioniert teilweise (Dateiendung nicht immer in Spalte D.
Die Links funktionieren nicht in Splate A (wird nicht gefunden).
Kann mir jemand bitte helfen.
Dank und Gruss
mehmet