Ereignisausführung
06.11.2003 15:39:20
Peter
Das Ereigis soll erst ausgeführt werden, wenn alle Zellen des Bereiches
gefüllt sind. Wie wird es richtig gemacht?
~begin~
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4:E4")) _
Is Nothing Then Call Ereignis
End Sub
Sub Ereignis()
MsgBox "Alle Zellen im Bereich sind nicht leer !"
End Sub
~end~
Danke im voraus
Peter
Anzeige