Excel-VBA: til et Range i et bestemt sheet.
Jeg oplever at jeg i min VBA-programmering ikke får nogen værdier ind når jeg vil tilgå dem med: StaffingArray = Sheets(StaffingSheet).Range(Cells(DagholdRow, StaffingStartCol), Cells(DagholdRow, StaffingEndCol))
Så måtte jeg finde på en mere kreativ løsning:
Application.ScreenUpdating = False ' slår ScreenUpdate fra så bruger ikke oplever at der skiftes sheet under kodeafvikling
ThisSheet = ActiveSheet.Name ' registrerer hvilken sheet vi er på før kodeafvikling
Sheets(StaffingSheet).Activate ' aktiverer den sheet vi skal hente data i
' så hentes data ind i arrayet
StaffingArray = Range(Cells(DagholdRow, StaffingStartCol), Cells(DagholdRow, StaffingEndCol))
Sheets(ThisSheet).Activate ' skifter tilbage til oprindelig sheet
Application.ScreenUpdating = True ' slår ScreenUpdate til igen
ThisSheet = ActiveSheet.Name ' registrerer hvilken sheet vi er på før kodeafvikling
Sheets(StaffingSheet).Activate ' aktiverer den sheet vi skal hente data i
' så hentes data ind i arrayet
StaffingArray = Range(Cells(DagholdRow, StaffingStartCol), Cells(DagholdRow, StaffingEndCol))
Sheets(ThisSheet).Activate ' skifter tilbage til oprindelig sheet
Application.ScreenUpdating = True ' slår ScreenUpdate til igen
Er der nogen der har en bedre kreativ løsning på problemet?
