Makro bleibt hängen bei Commandbutton.Visible
13.11.2007 09:32:36
Marc81
ich habe ein Tabelle in der zwei Formeln stehen. Diese enthalten einen Wert welcher der "Standardwert" ist, möchte der User diesen ändern kann er die Formel einfach überschreiben. Um dem User zu ermöglich, wieder den Standardwert, sprich die Formel, wieder einzutragen habe ich neben dem Feld zwei Commandbutton (aus Steuerelement-Toolbox) welcher die Formel einträgt. Anschließend soll der Button ausgeblendet werden.
Wird jetzt die Formel wieder überschrieben, soll der Button wieder sichtbar werden.
Jetzt mein Problem: Das Makro bleibt immer an der Zeile "CommandButton1.Visible = True" hängen und läuft daher nicht mehr weiter um den zweiten Button einzublenden.
Außerdem wird der Button erst eingeblendet wenn ich den Inhalt der Zelle lösche. Also ich überschreibe die Formel. (Jetzt sollte der Button eingeblendet werden) Jetzt lösche ich den Inhalt über "Entf" und dann erscheint der Button.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then Call Laenge
If Target.Address = "$B$12" Then Call Durchmesser
End Sub
Private Sub Laenge()
If Tabelle1.Range("B11").HasFormula = True Then
CommandButton1.Visible = False
Else:
CommandButton1.Visible = True
End If
End Sub
Private Sub Durchmesser()
If Tabelle1.Range("B12").HasFormula = True Then
CommandButton2.Visible = False
Else:
CommandButton2.Visible = True
End If
End Sub
Hat einer einer eine Idee woran es liegen könnte.
Gruss Marc
Anzeige