Aktualisierung bei jeglicher Änderung?
13.10.2004 13:26:16
Jasch
Mich stört aber dass das Blatt bei jeglicher Änderung immer wieder aktualisiert wird (es flimmert). Obwohl die Zellen NICHT mit dem Makro verknüpft sind.
meiner Meinung tritt es erst auf, nachdem folgendes Makro ausgeführt wird:
TABELLE (Tabelle1):
Private Sub Worksheet_Calculate()
Call ein_aus([b5].Text)
End Sub
Modul1:
Option Explicit
Sub ein_aus(sh As String)
APF.Visible = 0
BAN.Visible = 0
BIR.Visible = 0
KIR.Visible = 0
On Error GoTo ERRH
Select Case sh
Case "Apfel": APF.Visible = -1
Case "Birne": BIR.Visible = -1
Case "Banane": BAN.Visible = -1
Case "Kirsche": KIR.Visible = -1
End Select
Exit Sub
ERRH:
MsgBox "Schreibweise von " & sh & " überprüfen!"
End Sub
Kann ich es irgendwie abstellen? Es soll nur aktualisiert werden, wenn sich der wert in B5 ändert.
Danke im Voraus!