AW: Makro nur starten wenn kein Hyperlink in Zelle
24.01.2006 13:14:57
Heiko
Hallo Martin,
wo ist denn in diesem Thread Hajo vertreten ?!
Mal als Anregung, in das Codefenster des entsprechenden Tabellenblattes, wenn die Werte durch User und VBA verändert werden können.
Option Explicit
Public varWert As Variant
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
Oder, wenn es nur um Eingaben vom User geht, z.B. so: in das Codefenster des entsprechenden Tabellenblattes
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
Gruß Heiko
PS: Rückmeldung wäre nett !