Link auf Verzeichnis oder Webseite
26.07.2021 17:10:30
Mich.l
Option Explicit
Global z As Long, s As Long
Sub NeueLinks()
Dim NeueDateien As Variant, i As Long, z As Long, s As Long, r As Range
NeueDateien = Application.GetOpenFilename("Files (*.*), *.*", , "Meine Favoriten", "Einfügen", True)
If IsArray(NeueDateien) Then
s = 17
For z = 2 To 14 Step 3
If Cells(z, 17).Value = "" Then Exit For
Next z
If Not (IsEmpty(Cells(z, s))) Then z = z + 3
For i = LBound(NeueDateien) To UBound(NeueDateien)
If Not z > 14 Then
Cells(z, s).Hyperlinks.Add Anchor:=Cells(z, s), _
Address:=NeueDateien(i), _
TextToDisplay:=StrReverse(Split(StrReverse(NeueDateien(i)), "\")(0))
Else: MsgBox ("Es ist kein Platz mehr!")
End If
z = z + 3
Next i
End If
End Sub
Nun möchte ich aber auch auf ein Verzeichnis oder eine Internetseite einen Link setzen können.
Hierzu verwendet man ja:
Sub Verzeichnis()
Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub
Mir ist aber nicht klar, wie ich automatisch die Anzeige des Links kürzen kann und wie man hier auf die nächste freie Zelle verweisen kann. Das sollte doch ähnlich funktionieren, wie oben, oder? Ich benötige von dem Menü eigentlich nur Verzeichnis oder Webseite. Email und aktuelles Dokument könnte, wenn das funktioniert ausgeblendet werden.
Danke im Voraus
Michl