auflistung aller Dateien (@ RalfP??)
15.02.2004 21:48:10
Jonathan
Ralf hatte mir diesbezüglich schon sehr weitergeholfen!
ich möchte in bestimmten Zellen alle geöffneten Dateien mit Hyperlinks zu diesen auflisten.
Folgenden Code habe ich von ihm bekommen (von mir angepasst)
Sub HypLink2()
x = 50
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(x, 3), Address:=w.Path & "\" & w.Name, ScreenTip:="klicken Sie hier, um direkt zu dieser Datei zu gelangen", TextToDisplay:=w.Name
x = x + 1
End If
Next w
End Sub
Nun habe ich aber noch weitere Fragen:
> w.name wird immer wie folgt angezeigt:
mappe1.xls
kann man den namen auch ohne .xls anzeigen lassen, und ohne den Pfad?
> ich möchte, dass die Hyperlinks nicht alle nach unten aufgelistet werden, sondern nur von Zeile 50:54 in Spalte C, wenn die Zellen belegt sind soll es in Spalte D weitergeführt werden, usw.....
> wie kann ich das ERscheinungsbild der Hyperlinks verändern? (Schriftfarbe, Größe, unterstrichen usw.......)
Vielen dank für Eure Hilfe
Grüße
Jonathan