Verzeichnis einlesen öffnen
01.09.2003 10:11:28
sigi
wie kann ich nachfolgenden Code so abändern, dass die Pfandangabe
im Tabelle2 steht.
Die Ausgabe der Vereichnisse soll in Tabelle Text stehen und per Hyperlink geöffnent werden.
Danke im vorraus
Gruß
Sigi
Sub Kalkulation()
Sheets("Text").Select
Columns("A:A").Select
Selection.ClearContents
Dim arrFiles As Variant
Dim intCounter As Integer
Application.ScreenUpdating = False
arrFiles = FileArray("c:\Dokumente und Einstellungen/Freimann/Eigene Dateien/Bauvorhabenakt/Bauvorhaben/Kalkulation", "*.*")
For intCounter = 1 To UBound(arrFiles)
With ThisWorkbook.Worksheets(1)
.Cells(intCounter, 1) = arrFiles(intCounter)
.Hyperlinks.Add Anchor:=.Cells(intCounter, 1), _
Address:="c:\Dokumente und Einstellungen/Freimann/Eigene Dateien/Bauvorhabenakt/Bauvorhaben/Kalkulation\" & .Cells(intCounter, 1).Value
End With
Next intCounter
Columns(1).AutoFit
Sheets("Text").Select
Range("A1").Select
End Sub
Anzeige