kolomformaat op tijd zetten hh:mm

[badabing60]

hallo

ik probeer om automatisch een nieuw tabblad te maken en daarin om de zoveel minuten een regel toe te voegen.
In kolom a staat in het origineel nu() met als weergave alleen de uren en de minuten. Die weergave wil ik in het nieuwe tabblad ook hebben. Hoe zet ik kolom a in dat formaat?
Sub stap1()
' stap1 Macro
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Workbooks.Open "doeltest.xlsx"
With Sheets.Add
.Name = Date
End With

ActiveWorkbook.Close True
Workbooks("brontest.xlsm").Activate
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Sub Stap2()
Stap2 Macro
With Application
.ScreenUpdating = False
.DisplayAlerts = False
[Blad1!A1].Resize(, [lV1].End(xlToLeft).Column).Copy
Workbooks.Open "doeltest.xlsx"
[A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
ActiveWorkbook.Close True
Workbooks("brontest.xlsm").Activate
.CutCopyMode = False
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

 

[HSV]

Lukt het hiermee?

Selection.PasteSpecial Paste:=xlPasteFormats

 

[badabing60]

De regel die ik kopieer gaat over 10 kolommen waarvan alleen voor kolom A het gevraagde formaat geldt. Ik moet dus alleen kolom A in sub stap1 benoemen in het gevraagde formaat. Het liefst moet dit formaat gelden vanaf A2 t/m A65536 zodat in A1 een koptekst kan worden opgenomen

gr. bada

 

[Haije]

bada,

als je dit toevoegt direct nadat het blad is toegevoegd

[A:A].Select
    Selection.NumberFormat = "[hh]:mm"

heb je dan wat je wilt?

 

[badabing60]

Het werkt maar moest wel de [] weghalen
[A:A].Select
Selection.NumberFormat = "hh:mm"

Bedankt!

gr. bada

 

[Geminite]

Het werkt maar moest wel de [] weghalen
[A:A].Select
Selection.NumberFormat = "hh:mm"

Bedankt!

gr. bada

Top om te horen, mag de vraag dan aub op opgelost ? (rechtonder)