automatischer Datum´s eintrag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [G10:G300]) Is Nothing Then Exit Sub If Target.Value = "Text" Then Target.Offset(0, 5).Value = Date Else Target.Offset(0, 5).ClearContents End If End Sub

Hi,
klar kann man das erweitern:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G10:G300]) Is Nothing Then
If Target.Value = "Text" Then
Target.Offset(0, 5).Value = Date
Else
Target.Offset(0, 5).ClearContents
End If
ElseIf Not Intersect(Target, [K10:K300]) Is Nothing Then
If Target.Value = "Muster" Then
Target.Offset(0, -1).Value = Date
Else
Target.Offset(0, -1).ClearContents
End If
End If
End Sub

Ein einmal eingetragenes Datum bleibt unverändert, außer man geht am nächsten Tag in die Zelle mit "Text" bzw "Muster" und drückt Enter; das wird als neue Eingabe verstanden, und das Datum wird aktualisiert.
Wenn "Text" bzw "Muster" gelöscht oder durch was anderes ersetzt wird, dann wird das Datum gelöscht.
Achtung: Das Datum wird per Makro eingetragen und gelöscht, und entzieht sich damit dem Rückgängig-Knopf in Excel. Einmal gelöscht -&gt nicht wieder herstellbar.
Schönen Gruß,
Andi

Private Sub Worksheet_Change(ByVal Target As Range) Dim bereich As Range Set bereich = Range("G10:G300") If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub If Not Intersect(Target, bereich) Is Nothing Then If Target.Value = "text" Then Target.Offset(0, 5) = Date Else Target.Offset(0, 5) = "" End If End If End Sub

Hallo Pesi,
das könnte z. B. so gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lZeile As Integer
   For lZeile = 10 To 300
      If Range("G" & lZeile).Value = "Test" Then
         If IsEmpty(Range("L" & lZeile).Value) Then
            Range("L" & lZeile).Value = Date
         End If
      End If
   Next lZeile
Du bist in Excel, drücke Alt+F11, damit wechselst du in den VBA-Editor.
Jetzt gehst du auf das Tabellenblatt, in dem das ganze wirken soll, klickst mit der echten Mousetase darauf, dann auf Code anzeigen und kopierst den Code in das rechte Fenster.
Schließe den VBA-Editor (Schließen-Kreuz rechts oben), gehe auf das Tabellenblatt mit deiner Liste, drücke Alt+F8, wähle das Makro in der Liste aus und klicke auf "Ausführen".
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatischer Datum´s eintrag

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread