Wie wird das Datum in der Zelle automatisch ausgefüllt, wenn die benachbarte Zelle in Excel aktualisiert wird?
Wenn Sie eine Zelle in einer bestimmten Spalte aktualisieren, möchten Sie manchmal das neueste Datum für die Aktualisierung markieren. In diesem Artikel wird eine VBA-Methode zur Lösung dieses Problems empfohlen. Wenn die Zelle aktualisiert wird, wird die benachbarte Zelle sofort automatisch mit dem aktuellen Datum gefüllt.
Füllen Sie das aktuelle Datum in der Zelle automatisch aus, wenn die benachbarte Zelle mit VBA-Code aktualisiert wird
Angenommen, die Daten, die Sie aktualisieren müssen, befinden sich in Spalte B, und wenn die Zelle in Spalte B aktualisiert wird, wird das aktuelle Datum in die benachbarte Zelle von Spalte A eingetragen. Siehe Screenshot:
Sie können den folgenden VBA-Code ausführen, um dieses Problem zu lösen.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, die Sie zum automatischen Auffüllen des Datums basierend auf der angrenzenden aktualisierten Zelle benötigen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
2. Kopieren Sie im Fenster Microsoft Visual Basic für Applikationen den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Füllen Sie das aktuelle Datum in einer Zelle automatisch aus, wenn die benachbarte Zelle aktualisiert wird
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Notizen:
3. Drücken Sie Andere + Q Tasten gleichzeitig, um die zu schließen Microsoft Visual Basic für Applikationen Fenster.
Von nun an wird beim Aktualisieren der Zellen in Spalte B die benachbarte Zelle in Spalte A sofort mit dem aktuellen Datum gefüllt. Siehe Screenshot:
In Verbindung stehende Artikel:
- Wie fülle ich andere Zellen automatisch aus, wenn ich Werte in der Excel-Dropdown-Liste auswähle?
- Wie wird die automatische Vervollständigung beim Eingeben einer Excel-Dropdown-Liste durchgeführt?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!