ich erhalte bei Folgendem Code immer die meldung Fehler beim Kompilieren, Benutzerdefinierter Typ nicht definiert!
Option Explicit
Private WithEvents Timer1 As APITimer
Wisst ihr, was ich da tun muss, um den Fehler zu beheben?Schöne Grüße, Bernd
Option Explicit
Private WithEvents Timer1 As APITimer
Wisst ihr, was ich da tun muss, um den Fehler zu beheben?Private Sub Worksheet_Activate()
Set Timer1 = New APITimer
Timer1.IntervalMS = 100
Timer1.Enabled = True
End Sub
Private Sub Worksheet_Deactivate()
Timer1.Enabled = False
Timer1.destroy
If Userform1.Visible Then Userform1.Hide
End Sub
Private Sub Timer1_Tick()
With ActiveWindow
If .ActiveSheet.Name = "Tabelle2" Then
If .ScrollRow >= 77 And .ScrollRow