pasan
Terugkerende gebruiker
- Lid geworden
- 6 nov 2010
- Berichten
- 1.110
Hallo
in onderstaande code van een form staan "start" en "einde" als String gedeclareerd.
Maar wat ik ook probeer ik krijg deze 2 vanuit de array "gegevens" niet als tekst in een cel.
Ik zou het .Numberformat van de cel kunnen aanpassen en op het werkblad klopt het dan wel, maar als ik daarna een listbox wil vullen worden de tijden weer als getallen weer gegeven.
Is het mogelijk om de "start" "eind" vanuit de Array als tekst waarde weg te schrijven?
in onderstaande code van een form staan "start" en "einde" als String gedeclareerd.
Maar wat ik ook probeer ik krijg deze 2 vanuit de array "gegevens" niet als tekst in een cel.
Ik zou het .Numberformat van de cel kunnen aanpassen en op het werkblad klopt het dan wel, maar als ik daarna een listbox wil vullen worden de tijden weer als getallen weer gegeven.
Is het mogelijk om de "start" "eind" vanuit de Array als tekst waarde weg te schrijven?
Code:
Dim start As String, eind As String
Dim gegevens()
start = "7:00"
eind = "15:00"
With Sheets(CStr(Year(j)))
r = .Range("A" & Rows.Count).End(xlUp).Row + 1
''ReDim gegevens(1 To 5)
gegevens = Array(r, Format(CDate(j), "dd-mmmm-yyyy"), CStr(n), start, eind)
.Cells(r, 1).Resize(, 5) = gegevens
End With
Code:
Format(start,"hh:mm") "werkt niet"
Code:
Cstr(start) "werkt niet"