AW: "Änderungen nachverfolgen" aus Mustervorlage
25.01.2010 16:29:39
Jan
Hello Dieter,
das würde gehen. Ich find die Idee von Welga auch gut. (Danke schön für den Tipp.) Wie findest du den Ansatz? Könnte man das nicht auch abwandeln, sodass Änderungen in Zelle A1 gleich in den Kommentar geschrieben werden? Damit hätte man doch genau was ich wollte. So wie ich den Code verstehe müsste man die Target.address nur erweitern und dort alle zu überwachenden Zellen angeben. Dann noch den Rest am Ende des Codes weg, der für die andere Aufgabe war. (Mal sehen ob es so einfach ist.)
Viele Grüße,
Jan
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then 'hier nur bei Zelle A1
If Target.Comment Is Nothing Then 'wenn kein Kommentar vorhanden
Target.AddComment 'erstelle einen Kommentar
Target.Comment.Text Target.Comment.Text & Format(Target.Value, "hh:mm") & " geä _
ndert am " & Date 'schreibe Inhalt aus Zelle A1 in Kommentar
Target.Comment.Visible = False
Cells(1, 3) = Target.Value + Range("IV1").Value
Else 'wenn Kommentar vorhanden
Target.Comment.Text Target.Comment.Text & Chr(10) & Format(Target.Value, "hh:mm") & _
_
" geändert am " & Date 'alter Inhalt und neuer Inhalt Zelle A1
Target.Comment.Shape.Height = Target.Comment.Shape.Height + 10 ' Höhe des Feldes!! _
_
etwas rumprobieren
Target.Comment.Visible = False
Cells(1, 3) = Target.Value + Range("IV1").Value ' zählt in C3 zusammen
End If
Range("IV1") = ""
End If
End Sub
'----- auslagern des Wertes A1 nach IV1 ----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Range("IV1").Value = Target.Value
End If
End Sub