Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Änderungsdatum hinter die Zeilen einfügen (VBA)

Änderungsdatum hinter die Zeilen einfügen (VBA)
09.02.2005 13:40:34
Patrick
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum hinter die Zeilen einfügen (VBA)
Jan
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
AW: Änderungsdatum hinter die Zeilen einfügen (VBA
09.02.2005 14:00:34
Matthias
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
Anzeige
AW: Änderungsdatum hinter die Zeilen einfügen (VBA
Patrick
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.

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige