Wie kann ich testen ob die aktive Zelle einen Hyperlink enthält?
Grund: Makro soll nur dann ausgeführt werden wenn die aktive Zelle keinen Hyperlink enthält.
Gruss MartinM
Danke den VBA Göttern
Sub test()
If ActiveCell.Hyperlinks.Count > 0 Then
MsgBox "Hyperlink, Makro wird nicht gestartet !", vbCritical
Else
MsgBox "Kein Hyperlink, Makro wird gestartet !", vbInformation
End If
End Sub
Private Sub Worksheet_Activate()
varWert = Selection
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Hier muss dann natürlich deine Überprüfung rein !
If MsgBox("Wert erhalten ?", vbYesNo) = vbYes Then
Exit Sub
Else
Application.EnableEvents = False
Target = varWert
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
varWert = Target
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Hier muss dann natürlich deine Überprüfung rein !
If MsgBox("Wert erhalten ?", vbYesNo) = vbYes Then
Exit Sub
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Sub test()
Dim myHyp As Hyperlink
On Error Resume Next
Set myHyp = ActiveCell.Hyperlinks(1)
On Error GoTo 0
If myHyp Is Nothing Then
MsgBox "keiner da"
Else
MsgBox myHyp.SubAddress
End If
End Sub