Code richtig interpreitert?
01.03.2021 11:37:12
Seb
dies ist ein Nachtrag zu meiner vorherigen Frage: https://www.herber.de/forum/archiv/1812to1816/t1815823.htm
mit nun etwas konkreterer Beispielsmappe:
https://www.herber.de/bbs/user/144337.xlsm
Kurz: ich möchte das Datum für jeden Projektschritt aus dem ersten Blatt im zweiten Blatt festhalten. Ich habe den Code, den ich netterweise schon als Antwort bekommen habe, versucht, für mich verständlich aufzuschlüsseln, da ein Teil davon noch nicht ganz funktioniert. Ist meine Interpretation des Codes richtig? Was muss noch geändert werden, damit das zweite Blatt mit den Daten ausgefüllt wird?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim raZeile As Range, raSpalte As Range
If Target.Column = 14 Then 'Target befindet sich in diesem Blatt ("Übersicht") in Spalte N
If Target.Count = 1 Then
If Target = "" Then
Target.Offset(0, -2).ClearContents
Else
Target.Offset(0, -2) = Date
'bis hierhin funktioniert alles. Aktuelles Datum wird in Spalte L eingefügt, sobald _
_
Eintrag in Spalte N verändert wird.
With Worksheets("Controlling")
Set raZeile = .Columns("A").Find(what:=Target.Offset(0, 9), LookIn:=xlValues, _
_
lookat:=xlWhole)
'Der Eintrag in Blatt "Übersicht", Spalte W, wird in Blatt "Controlling", _
Spalte A, gesucht und bei Übereinstimmung als raZeile festgelegt
If Not raZeile Is Nothing Then
Set raSpalte = .Rows(1).Find(what:=Target.Offset(0, 1), LookIn:=xlValues, _
_
lookat:=xlWhole)
'Der Eintrag in Blatt "Übersicht", Spalte O, wird in Blatt "Controlling", _
_
Reihe 1, gesucht und bei Übereinstimmung als raSpalte festgelegt
If Not raSpalte Is Nothing Then
.Cells(raZeile.Row, raSpalte.Column) = Date
'In die Zelle(raZeile.Row, raSpalte.Column) in Blatt "Controlling" wird _
_
das aktuelle Datum eingefügt
End If
End If
End With
End If
End If
End If
Set raZeile = Nothing: Set raSpalte = Nothing
End Sub
Vielen Dank schon mal!