AW: Datum ausgeben
08.01.2021 11:07:22
Nepumuk
Hallo Andrea,
Rechtsklick auf den Tabellenreiter der Tabelle "KSTKO" - Code anzeigen. Folgende Prozedur einfügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Rows(2))
If Not objRange Is Nothing Then
With Worksheets("Ziel")
For Each objCell In objRange
If objCell.Value = 925 Then _
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = objCell.Offset(-1, 0).Value
Next
End With
Set objRange = Nothing
End If
End Sub
Du musst zuerst die Formeln in Spalte A der Tabelle "Ziel" löschen und dann alle 925'er Werte in Tabelle "KSTKO" mit F2-Enter nochmal bestätigen.
Gruß
Nepumuk