If ActiveSheet.Value = True Then
04.07.2006 15:52:23
Wagner-ES
Ab und zu habe ich hier hineingeschaut und gelegentlich auch nette Kleinigkeiten gefunden.
nun habe ich wirklich ein Problem, aber ich stehe einfach mal auf dem Schlauch.
Und zwar möchte ich gerne bei der Aktivierung eines Tabellenblattes einen Eintrag in einem Protokoll erzeugen.
Dazu habe ich folgendes eingegeben:
--Anfang--
Sub Worksheet_Activate()
If ActiveSheet.Value = True Then
Open "C:\windows\log.txt" For Append As #1
Print #1, Now & " " & Application.UserName & " Tabellenblatt: 'Auswahl' angezeigt"
Close #1
Else
End If
End Sub
--Ende--
Kann mir jemand sagen wo das Problem ist? Bzw. an welcher Stelle ein Denkfehler ist?
Vielen Dank im Voraus!
Anzeige