Worksheet_Change
17.04.2006 11:21:01
Erich
Ich bekomme es einfach nicht hin.
In der Recherche nichts gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zu, an As Variant
If Target.Column <> 2 Then Exit Sub
zu = MsgBox(" Text 1", vbYesNo + vbCritical)
If zu = vbNo Then
Exit Sub
Exit Sub
If zu = vbYes Then
End If
Call MyMacro
End If
End If
If Target.Column <> 3 Then Exit Sub
zu = MsgBox(" Text 2" & Chr(13) & "Text 3", vbYesNo + vbCritical)
If zu = vbNo Then
Exit Sub
If zu = vbYes Then
End If
Call MyMacro_1
End Sub
Folgendes Ergebnis sollte rauskommen.
In Spalte B wird eine Nummer eingegeben und beim velassen
der Zelle soll MyMacro aufgerufen werden.
Dann wird in Spalte C in der gleichen Zeile eine
Uhrzeit eingegeben und beim verlassen soll MyMacro_1
aufgerufen werden.
Im Augenblick passiert folgendes: Beim verlassen der Spalte B
werden beide Macros nacheinsander aufgerufen.
Hat jemand eine Idee ?
Gruss Erich