Datum in Nachbarzelle
28.04.2019 20:06:52
Johannes
Ich habe eine Tabelle, in der in die ersten beiden Spalten etwas eingetragen wird, in der dritten Spalte steht immer das Eintragedatum. Dies habe ich bisher immer händisch gemacht und soll nun automatisiert werden.
Ich habe das Makro auch soweit zum laufen bekommen, dass es auch genau das macht, was es soll, allerdings nur für die erste Spalte. Egal was ich in der zweiten Spalte gemacht habe, es wird nie ein Datum in die Dritte Spalte eingetragen. Kurios ist dabei auch, wenn ich das Makro so schreibe, dass es nur für Spalte 2 gilt (also den Teil der für Spalte 1 gilt einfach komplett löschen), funktioniert es. Wenn ich beides hintereinander verwende, passiert nichts bei Spalte 2.
Kurzfassung: Eintragung in Spalte 1 oder 2 -> Datum in Spalte 3, gleiche Zeile wie Eintragung
Für Lösungsvorschläge bin ich offen!
Viele Grüße,
Johannes
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intTextSpalte As Integer
intTextSpalte = 1 'hier eintragen, in welcher Spalte du den Text eintragen willst
If Intersect(Target, Cells(1, intTextSpalte).EntireColumn) Is Nothing Then Exit Sub
If Cells(Target.Row, intTextSpalte + 2).Value "" Then
Else
Cells(Target.Row, intTextSpalte + 2).Value = Date
End If
Dim intTextSpalte2 As Integer
intTextSpalte2 = 2 'hier eintragen, in welcher Spalte du den Text eintragen willst
If Intersect(Target, Cells(1, intTextSpalte2).EntireColumn) Is Nothing Then Exit Sub
If Cells(Target.Row, intTextSpalte2 + 1).Value "" Then
Else
Cells(Target.Row, intTextSpalte2 + 1).Value = Date
End If
End Sub