Makro startet nicht..????
20.11.2003 14:04:25
Peter S.
im basMain stehen diese beiden Anweisungen:
Sub DeleteContents()
Worksheets("Tabelle1").Range("A1:B1").ClearContents
End Sub
Sub Eintragen()
Range("B1").Value = "Hallo"
End Sub
und im Modul der Tabelle1 steht
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If IsEmpty(Target) Or IsEmpty(Target.Offset(0, -1)) Then Exit Sub
Application.OnTime Now + TimeSerial(0, 0, 5), "DeleteContents"
End Sub
Private Sub CommandButton1_Click()
If Range("B5").Text = "Systemdatum manipuliert - Funktionen gesperrt" Then
Call Eintragen
End If
End Sub
Soweit sogut....nach Klick auf Button1 wird alles bestens ausgeführt..jedoch
möchte ich das automatisieren:
Ich ersetze also den ....
Private Sub CommandButton1_..... durch
Private Sub Worksheet_Calculate()
If Range("B5").Text = "Systemdatum manipuliert - Funktionen gesperrt" Then
Call Eintragen
End if
End Sub
...und nichts tut sich??????????....wer weiß da Rat
danke
Peter