Makro: Datum automatisch aktualisieren
10.03.2006 12:51:17
Patrick
Mein Makro sieht so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
'Dieses Macro überwacht dieses worksheet und wird bei jeder Veränderung aktiv.
'Es wird die jeweilge Zeile in der Range überwacht und bei einer Veränderung wird in
'der Zeile der Veränderung (z) in Spalte 3 (A=1, C=3) das aktuelle Datum eingefügt.
Dim z As Range, ber As Range
Set ber = Intersect(Target, Range("A2:C250"))
If Not ber Is Nothing Then
For Each z In ber
If z <> "" Then Cells(z.Row, 3) = Date
Next z
End If
End Sub
Das funzt auch super, aber nun sind in dem einen Feld Hyperlinks.
Das Makro soll nun auch das Datum aktualisieren, wenn der Links nur ANGEKLICKT wurde. Im moment aktiviert sich das Makro ja erst bei einer Veränderung des Feldes.
1000 Dank
Patrick
Anzeige