Actieve Kolom

[dionikink]

Hallo,

Ik ben een macro aan het maken die in bepaalde kolommen anders reageert dan in de rest.

De bedoeling is dat als de actieve kolom A is, hij de huidige datum invoert. Als de huidige kolom echter C of D is, voert hij de huidige tijd in.

Ik heb daarvoor deze code, maar hij werkt niet.

Sub DataInvullen()

If ActiveCell.Column = A Then
ActiveCell.Value = Date
ElseIf ActiveCell.Column = C Then
ActiveCell.Value = Time()
ElseIf ActiveCell.Column = D Then
ActiveCell.Value = Time()
Else
ActiveCell.Value = 0
End If


End Sub

Wie kan een foutje vinden?


EDIT: Ik ook altijd met mijn onhandigheid. Even nadenken was genoeg...

Sub DataInvullen()

Column = ActiveCell.Column

If Column = 1 Then
ActiveCell.Value = Date
ElseIf Column = 3 Then
ActiveCell.Value = Time()
ElseIf Column = 4 Then
ActiveCell.Value = Time()
Else
ActiveCell.Value = 0
End If


End Sub

 

[HSV]

Sub DataInvullen()
 With ActiveCell
   If .Column = 1 Then
     .Value = Date
  ElseIf .Column = 3 Or .Column = 4 Then
   .Value = Time()
 Else
   .Value = 0
  End If
 End With
End Sub