Print side | Luk vindue

Fejl i VBA ved indirekte opslag i office16

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4930
Udskrevet den: 05.Maj.2024 kl. 08:39


Emne: Fejl i VBA ved indirekte opslag i office16
Besked fra: ZXCVB
Emne: Fejl i VBA ved indirekte opslag i office16
Posteringsdato: 13.Maj.2023 kl. 17:19
Med ny PC er jeg opdateret til office16 (før office13)

Her er koden
Sub indkøb()
'
' Md1 Makro
' Makro indspillet 25-09-2013 af bruger
'

    Sheets("indkøb").Select
'    Range("d5:" & [H3]).Select
     Range("d5:f20").Select
    Selection.Copy
    Sheets("MD").Select
    ActiveWindow.SmallScroll Down:=0
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
'   Calculate
End Sub

'    Range("d5:" & [H3]).Select virkede i office13 hvor det indirekte opslag [H3] f.eks er F20, som vist i
    den efterfølgende linje (den linje er kun med for test)

I office16 stopper VBA således

    Sheets("indkøb").Select
     Range("d5:" & [H3]).Select

ved [H3]

Er der nogen der kan hjælpe

MVH
Knud




-------------
Med venlig hilsen

Knud Evendorff


Print side | Luk vindue