Vraag over code VBA

[Marky76]

Beste,

Volgende code heb ik in VBA om in mijn werkblad te laten zien op welk tijdstip dit werkblad werd opgeslagen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sht
For Each sht In Sheets
sht.PageSetup.CenterFooter = "Voor het laatst opgeslagen op " & Format(Now, "d mmmm yyyy hh:mm")
Next
End Sub

Zoals je ziet staat er achter Dim sht, niet AS en dan een type zoals Interger, Range, String enz. Waarom moet ik hier niets zetten of neemt de code aan dat als je niets zet hij automatisch variant neemt??

Kan iemand mij dit een beetje verduidelijken?

Groeten, Mark.

 

[Wigi]

Beste,

Volgende code heb ik in VBA om in mijn werkblad te laten zien op welk tijdstip dit werkblad werd opgeslagen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sht
For Each sht In Sheets
sht.PageSetup.CenterFooter = "Voor het laatst opgeslagen op " & Format(Now, "d mmmm yyyy hh:mm")
Next
End Sub

Zoals je ziet staat er achter Dim sht, niet AS en dan een type zoals Interger, Range, String enz. Waarom moet ik hier niets zetten of neemt de code aan dat als je niets zet hij automatisch variant neemt??

Kan iemand mij dit een beetje verduidelijken?

Groeten, Mark.

Er wordt inderdaad Variant aangenomen. Dit is niet zo goed. Doe

Dim sht As Worksheet

Wigi