Wo liegt der Fehler im Code?
18.10.2007 12:04:00
Manuel
--------------------------------------------------------------------------------
Hallo,
ich habe folgenden Code:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [D35] = "" Then
Kalender1.Visible = True
Else
Kalender1.Visible = False
End If
End Sub
Damit versuche ich den Button "Kalender1" auszublenden, wenn in Zelle 35 kein Wert drin steht. Allerdings bleibt der Button eingeblendet.
Wo liegt mein Fehler?
Eventuell auch eine andere Lösung? Ich muss diese Abfrage nämlich für mehrere Felder / Buttons machen!
Danke schon mal im Voraus!
MfG Manuel