Microsoft Office Forums - View Single Post

SARCux · 11-09-2024, 08:48 AM

Hi @all,

I have the same version of Excel on both PCs.
The following is not running on one workstation:

Code:

Set rngDate = Cells.Find(What:=Date, LookAt:=xlWhole, LookIn:=xlValues)

complete code

Code:

Sub Zum_aktuellen_Datum_scrollen()
    Dim rngDate As Range
   
    Set rngDate = Cells.Find(What:=Date, LookAt:=xlWhole, LookIn:=xlValues)
   
    If rngDate Is Nothing = False Then
'
'        'Zur Zelle, mit dem aktuellen Datum scrollen, Row / Column
'        Application.Goto Reference:=rngDate, scroll:=True
'
        'Zur Zeile, mit dem aktuellen Datum scrollen.
        ActiveWindow.ScrollRow = rngDate.Row
'
'        'Zur Spalte, mit dem aktuellen Datum scrollen.
'        ActiveWindow.ScrollColumn = rngDate.Column

    End If
   
End Sub

Can someone explain to me what the error is here?