Dim tijd(notatie)

[Theknurt]

Hallo iedereen,

Ik ben bezig met een VBA schrijven, alleen kom er eventjes niet zo goed uit.

Het volgende:

Ik heb een tabblad genaamd Totaal. Daar in staan de namen van de personen onderelkaar en de kolommen daar rechts van de verschillende tijden (in tijdsnotatie 18:32 = 18 uur en 32 minuten)

Nu lees ik deze waarde in, maakt ie er een decimale waarde van (0,7722).
Tot hier geen probleem. (of misschien wel)

Nu wil ik deze waarde's per persoon, op eigentabblad weer vermelden. Echter zet hij hier nu de decimale vorm neer, terwijl ik toch echt de tijdsnotatie blief te willen hebben....

Dim I, Aantal, Wi, Wo As Integer
'Dim Wi As Integer
'Dim Wo As Integer
Dim naam As String
Dim ShWeek, ShBasis, ShTotaal As Worksheet
Dim Waarde(1 To 28) As String

'Application.ScreenUpdating = False
Set ShTotaal = Sheets("Totaal")
ShTotaal.Select

Range("b5").Select
Aantal = Range(Selection, Selection.End(xlDown)).Count

For I = 1 To Aantal
    ShTotaal.Select
    Range("b5").Select
    naam = ActiveCell.Offset(I - 1, 0).Range("A1").Value
        For Wi = 1 To 28
            Waarde(Wi) = ActiveCell.Offset(I - 1, Wi + 2).Range("A1").Value
        Next Wi

    Sheets(naam).Select
    Range("B10").Select
        For Wo = 1 To 28
          ActiveCell.Offset(0, Wo - 1).Range("A1").Value = Waarde(Wo)
        Next Wo
Next I

Wie o wie kan mij verder in helpen.

doe ik het ergens fout in de DIM optie's ??

Txs anyway......

 

[WinteE]

Dim As Date

 

[Tardis]

Hallo Theknurt,

denk er ook even aan om variabelen expliciet te definieren.
Als je dat niet doet, wordt de standaard (Variant) gebruikt.
Deze coderegel van je

Dim I, Aantal, Wi, Wo As Integer

heeft als resultaat dat I, Aantal, Wi en Wo als Variant gelezen worden, terwijl dat waarschijnlijk Integers zouden moeten zijn

Groet,

Tardis

 

[Theknurt]

Dim As Date

Hoi WinteE,

Ik d8 dat ik dit al geprobeerd had, maar deed het waarschijnlijk verkeerd.
Heb het nu weer geprobeerd, en het werkt idd........

txs.:thumb:

Hoi Tardis,

Option Explicit toegevoegd en de waarden apart ge-dim-t......:thumb: