Macro
01.04.2003 09:15:48
peter
habe bei folgendem Macro ein Problem.
Wiw kann ich die Zeilen zwischen 4 und 2000 mit der gleichen formel bearbeiten, ohne jedes mal diese Zeile: If Target.Row = 4 Then Cells(4, 1) = Now eingeben zu müssen.
---------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column) = 2 Then
If Target.Row = 4 Then Cells(4, 1) = Now
If Target.Row = 2000 Then Cells(2000, 1) = Now
End If
If (Target.Column) = 7 Then
If Target.Row = 4 Then Cells(4, 6) = Now
If Target.Row = 2000 Then Cells(2000, 6) = Now
End If
End Sub
Anzeige