Hallo Forumsbesucher

mit dem folgenden Code im Tabellenblatt "Tabelle1" soll beim Aktivieren des Tabellenblatts der Zellinhalt in Zelle AH7 abhängig vom Inhalt der Zelle O18 sein:
wenn O18 > 0 dann AH7 = "" ansonsten AH7 = "x"

Mit dem nachfolgenden Code klappt das bei mir jedoch nicht:

Private Sub Worksheet_Activate()
If Range("O18").Value > 0 Then
Range("AH7").Value = ""
Else
Range("AH7").Value = "x"
End If
End Sub

Wie muss ich vorgehen, damit das wie gewünscht funktioniert.

Vielen Dank für eure Unterstützung.

mfg
Fritz