Abfrageergebnis in MsgBox
01.09.2017 09:51:25
Thomas
ich habe mir eine Abfrage erstellt, welche einen markierten Bereich auf defekte Hyperlinks prüft und mir die Zelladressen mit den defekten Links in einer MsgBox ausgibt. Funktioniert auch gut.
Allerdings bekomme ich es nicht hin, dass die Zelladressen aller defekten Links in einer MsgBox ausgegeben werden.
Als zweites sieht die Meldung folgendermassen aus:
"Defekter Hyperlink in Zelle $B$23"
schöner wäre
"Defekter Hyperlink in Zelle B 23"
Ist das möglich?
Für Lösungsansätze bin ich immer dankbar.
Viele Grüße,
Thomas
Mein Code
Private Sub CommandButton226_Click()
Dim L As Range, hLink As Hyperlink
On Error Resume Next
For Each L In Selection
If L.Value "" Then
If L.Hyperlinks.Count And Not L Like "*@*" Then
For Each hLink In L.Hyperlinks
If Dir(hLink.Address) = "" Then MsgBox "Defekter Hyperlink" _
& vbCrLf & "in Zelle " & L.Address
Next hLink
End If
End If
Next L
End Sub