Frage - Bei neuem Eintrag in Zelle, vorigen Inhalt verschieben

[Epsyl0n]

Hallo,

ich nutze Excel 2016 und vielleicht kann mir jmd helfen.

Ich würde gerne in Spalte J und Q ab Zeile 3 bis 999 ein Datum händisch eintragen.
Falls in diesen Zellen jeweils schon ein Datum ist, soll bei Eintragung des neuen Datum das vorige Datum eins nach links, sprich in Spalte I bzw. P verschoben werden.
Und das soll dann so weitergehen. Neues Datum in J bzw. Q und altes Datum rüber in I bzw. P und den Inhalt dort dann ggf. überschreiben. Möchte also immer max. 2 Datumangaben nebeneinander sehen.

Hoffe war verständlich, Danke

[Epsyl0n]

Keiner eine Idee? Oder nicht gut erklärt?
Wäre super wenn mir jemand helfen könnte.

Danke

[MisterBurns]

Diesen Code in das Modul des betreffenden Tabellenblatts

Code:

Option Explicit

Dim Zellwert As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Cells.Count = 1 Then
    Zellwert = Target
Else
    Set Zellwert = Nothing
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Zellwert = "" Then Exit Sub
If Not Application.Intersect(Target, Range("J3:J999, Q3:Q999")) Is Nothing Then
    If Target <> "" Then
        Application.EnableEvents = False
        Target.Offset(0, -1) = Zellwert
        Application.EnableEvents = True
    End If
End If
End Sub

Hat einzig den Nachteil, dass die Eingabe nicht mit Strg+Enter abgeschlossen werden darf, da sonst kein Selection_Change zutrifft.

[Hasso]

Hallo Epsyl0n,

in das Tabellenblatt folgenden Code einfügen:

Code:

Option Explicit
Dim datAltesDatum As Date

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 Or Target.Column = 17 Then
  Target.Offset(0, -1) = datAltesDatum
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

datAltesDatum = Target

End Sub

[MisterBurns]

@Hasso: Dann hast du aber bei jeder Mehrfachauswahl einen Fehler

[Hasso]

Hallo Berni,

da hast du Recht! Dem ist aber leicht abzuhelfen:

Code:

Option Explicit
Dim datAltesDatum As Date

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Column = 10 Or Target.Column = 17) And Target.Cells.Count = 1 Then
  Target.Offset(0, -1) = datAltesDatum
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

datAltesDatum = Target

End Sub

[HKindler]

Hi Hasso,

dann schreib jetzt mal in irgendeine Zelle etwas anderes als eine Zahl / ein Datum, also schreib mal in A1 "Test" jetzt wähle A1 erneut aus. ÜBERRASCHUNG!

Das hat Berni wesentlich besser gelöst!

[Hasso]

Zitat: von Epsyl0n

Ich würde gerne in Spalte J und Q ab Zeile 3 bis 999 ein Datum händisch eintragen.

Das war die Fragestellung.

[HKindler]

Ja, das war die Fragestellung, aber implizit gehe ich davon aus, dass der Fragesteller eine beliebige andere Zelle mit beliebigem Inhalt auswählen können will, ohne dass Excel ihn mit einem Debug-Fenster begrüßt.

[Epsyl0n]

Zitat: von MisterBurns

Diesen Code in das Modul des betreffenden Tabellenblatts

Code:

Option Explicit

Dim Zellwert As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Cells.Count = 1 Then
    Zellwert = Target
Else
    Set Zellwert = Nothing
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Zellwert = "" Then Exit Sub
If Not Application.Intersect(Target, Range("J3:J999, Q3:Q999")) Is Nothing Then
    If Target <> "" Then
        Application.EnableEvents = False
        Target.Offset(0, -1) = Zellwert
        Application.EnableEvents = True
    End If
End If
End Sub

Hat einzig den Nachteil, dass die Eingabe nicht mit Strg+Enter abgeschlossen werden darf, da sonst kein Selection_Change zutrifft.

Vielen Dank,
das hat super geklappt