Msg Box
27.11.2007 18:05:27
Heino
ich möchte eine MsgBox anzeigen, wenn der Wert in Zelle 4, 3 30mm unterschreitet. Das funktioniert mit folgendem Code:
Private Sub Worksheet_Deactivate()
With Cells(4, 3)
If .Value
Soweit, so gut. Jetzt möchte ich, das auch die zelle 4, 6 in gleicher Weise kontrolliert wird. Muss ich ein zweites Deactivate-Ereignis mit angepasstem Code schreiben, oder wäre es mögich, im o.g Code die zweite Zelle 4, 6 mit unterzubringen. Habe es schon versucht, kriege aber nur Fehlermeldungen.
Wäre für Eure Hilfe sehr dankbar!
Herzlicher Gruss
Heino