tijd als tekst in cel plaatsen

Status
Niet open voor verdere reacties.
pasan

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?

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"
 
Maak er dit van:
"'" & Format(start, "hh:mm")
 
Zet de tijden in de cellen als normale tijden.

Kolom A de datums en kolom B de tijden.

Dit is het principe.
Code: 
Private Sub UserForm_Initialize()
With ListBox1
  .List = Cells(1).CurrentRegion.Value
 For i = 0 To .ListCount - 1
   .List(i, 1) = Format(.List(i, 1), "hh:mm")
  Next i
 End With
End Sub
 
Heren bedankt.
en in dit geval kies ik voor de oplossing van edmoor

Ik maak ook gebruik van textboxen en deze worden wel als tekst waarde hh:mm weg geschreven.
en ik denk dat ik alles weer op de schop moet nemen als ik de bijdrage van HSV ga gebruiken in dit geval.
 
Mijn oplossing is een direct antwoord op je vraag, maar je kan het beter andersom doen.
Als je ergens wilt gaan rekenen met die tijden is de oplossing van HSV beter.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan