Änderungsdatum hinter die Zeilen einfügen (VBA)

Bild

Betrifft: Änderungsdatum hinter die Zeilen einfügen (VBA) von: Patrick
Geschrieben am: 09.02.2005 13:40:34

Hi, hoffe Ihr könnt mir helfen.

Ich habe eine Adressdatei (A:Name, B:Vorname, C:Änderungsdatum )
jetzt soll das Änderungsdatum automatisch aktualisiert werden wenn sich etwas in A oder B ändert.

Es soll also der Bereich A:1 bis B:30 überwacht werden und bei einer Ändeurng von z.B. B20 soll in C20 das aktuelle Datum eingegeben werden.

Mein Ansatz:


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2").Value <> "" Then
Range("C2").Value = Date
End If
End Sub


Ich habe Probleme mit der Range oder vielleicht bin ich auch total falsch !

gruss patrick
Bild


Betrifft: AW: Änderungsdatum hinter die Zeilen einfügen (VBA) von: Jan
Geschrieben am: 09.02.2005 13:52:59

Hi Patrick,


Probier mal folgenden Code:



Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value <> 0 Then
If ActiveCell.Column = 1 Then
ActiveCell.Offset(0, 2).Value = Date
Else
ActiveCell.Offset(0, 1).Value = Date
End If
End If
End Sub


Jan


Bild


Betrifft: AW: Änderungsdatum hinter die Zeilen einfügen (VBA von: Matthias G
Geschrieben am: 09.02.2005 14:00:34

Hallo Patrick,

mein Vorschlag:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, ber As Range
Set ber = Intersect(Target, Range("A1:B30"))
If Not ber Is Nothing Then
    For Each z In ber
        If z <> "" Then Cells(z.Row, 3) = Date
    Next z
End If
Wobei hier ignoriert wird, wenn die Zellen gelöscht werden.

Gruß Matthias


Bild


Betrifft: AW: Änderungsdatum hinter die Zeilen einfügen (VBA von: Patrick
Geschrieben am: 09.02.2005 14:12:03

Dank an Euch beiden!

Matthias Version läuft spitze und wie gewünscht. 1000-Dank

Für alle anderen ... End Sub fehlt natürlich noch.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Änderungsdatum hinter die Zeilen einfügen (VBA)"