Sub TrvanieKodu() Dim MyTimer As Double Dim x As Integer Dim y As Integer MyTimer = Timer x = Sheets("Hárok1").Range("g4") y = Sheets("Hárok1").Range("f4") Sheets("Sheet1").Cells(x, y).Value = Sheets("Hárok1").Range("N10").Value prva = Timer - MyTimer MyTimer = Timer x = Range("G4") y = Range("F4") Range("N10").Select Selection.Copy Sheets("Sheet1").Select ActiveSheet.Cells(x, y).Select ActiveSheet.Paste Sheets("Hárok1").Select druha = Timer - MyTimer Range("B1") = prva Range("B2") = druha End Sub
VBA Excel -premenná vo funkcii Range