použil jsem tento zápis
Dim cpop, cbyt, crok, cpor, vysledek As String
cpop = Cispop
cbyt = Cbytu
crok = Year(Now())
cpor = CISCE
vysledek = cpop & "/" & cbyt & "/" & crok & "-" & cpor
' doplnění hodnot do tabulky
pocet.Offset(0, 0).Value = CISCE.Value
pocet.Offset(0, 2).Value = ComboBox1.Value
pocet.Offset(0, 3).Value = Cispop.Value
pocet.Offset(0, 4).Value = Cbytu.Value
pocet.Offset(0, 5).Value = Najemce.Value
pocet.Offset(0, 6).Value = Strd.Value
pocet.Offset(0, 7).Value = DTPicker1.Value
pocet.Offset(0, 1).Value = vysledekcitovat