megoldást keresek erre a problémára
-
#2134
A fejléc beírását még egyszerűbben is megoldhatod.
Dim fejlec As String, oszlop As Integer
fejlec = "Dátum,Napok,Kezdés,Vége,Ledolgozott idő"
For oszlop = 0 To 4
Cells(1, oszlop + 1) = Split(fejlec, ",")(oszlop)
Next