Mailadressen ignorieren
30.08.2017 13:23:40
Thomas
ich hoffe mir kann jemand bei meinem folgenden Problem helfen.
Ich habe ein Command Button der mir alle Hyperlinks im ausgewählten Bereich öffnet.
Dies sind verlinkte *.pdf Dateien. Funktioniert auch wunderbar.
In einer Spalte befinden sich allerdings Mailadressen, welche nicht berücksichtigt werden sollten, da sich sonst immer eine neue Mail öffnet. Leider bekomme ich es nicht hin, dass diese unberücksichtigt bleiben. Können die Mailadressen beispielsweise anhand des "@" identifiziert und übersprungen/ignoriert werden?
Wäre toll, wenn jemand eine einfache Lösung hätte.
Viele Grüße,
Thomas
Mein Code:
Private Sub CommandButton225_Click()
Dim L As Range
On Error Resume Next
If MsgBox(Selection.Hyperlinks.Count & " Hyperlinks sind vorhanden." _
& vbCrLf & "Hyperlinks öffnen?", vbYesNo, "Hyperlinks") = vbYes Then
Else: Exit Sub
End If
For Each L In Selection
If L.Hyperlinks.Count Then
L.Hyperlinks(1).Follow
End If
Next L
End Sub