Worksheet_Change - Kommentare
03.02.2015 12:08:33
Sparrow
Ich habe wohl eine relativ einfache Frage - wenn sich ein bestimmter Zellenwert ändert wird dieser in eine andere Tabelle geschrieben - nun soll allerdings auch das Kommentar übernommen werden, das bekomm ich nicht hin - jemand ne Idee?
Private Sub Worksheet_Change(ByVal Target As Range)
Const ZielTabelle As String = "Muster"
Dim lRow As Long
Dim cmt As Comment
Dim Datum As String
Dim Zeit As String
Datum = Format(Date, "d/m/yy")
Zeit = Format(Time, "h:mm:ss;@")
If Target.Row > 1 And Target.Column >= 4 And Target.Column
Vielen DankVg
Sascha