Microsoft Excel

Herbers Excel/VBA-Archiv

Quelle von Dateiinfo auslesen

Betrifft: Quelle von Dateiinfo auslesen von: Viktor
Geschrieben am: 01.09.2004 08:05:41

Hallo zusammen,

ist es möglich von Dateien die ein Hyperlink in zellen A1,A2 etc hat, die Dateiinfos auszulesen (wie Quelle, Author), und das alles in B1, B2 etc. zu screiben?

Danke und Gruss, Viktor

  


Betrifft: AW: Quelle von Dateiinfo auslesen von: Wolfgang
Geschrieben am: 01.09.2004 12:04:11

Hi Viktor,

Das einzige was mir einfällt ist folgender Code:

Sub hypadress()
Dim objBlatt As Worksheet
Dim objHyperlink As Hyperlink
Set objBlatt = Worksheets("Tabelle1")
    For Each objHyperlink In objBlatt.Hyperlinks
        i = objHyperlink.Address
        a = objHyperlink.Range.AddressLocal
        Range(a).Offset(1, 0) = i
Next
End Sub


dieser liest aber nur das Ziel aus und schreibt es in die darunter liegende Zelle. Ob und wie sich die anderen Punkte realisieren lassen, weiß ich nicht...

Hoffe das hilft dir wenigstens einen Schritt weiter.

Gruß
wolfgang


 

Beiträge aus den Excel-Beispielen zum Thema "Quelle von Dateiinfo auslesen"