Problem with VBA Code

SARCux · #1 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?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert a word VBA code to PowerPoint VBA code	laith93	Word VBA	5	11-09-2023 08:40 AM
Problem with ZIP code serial printing	Kuzcomerlin	Mail Merge	3	01-22-2020 02:12 PM
Problem with currency field code	DIYman	Mail Merge	2	09-22-2015 12:16 AM
Start of Document Code Problem	norgro	Word VBA	2	02-12-2013 04:03 AM
Custom formatting code - rounding problem	venkys4u	Excel	1	08-14-2012 07:45 PM