Moin zusammen,
mag mir jemand bitte kurz schreiben wie ich den ausgelesenen Zellinhalt aus dem oberen Makro (wird aktuell in einer MSGBOX ausgegeben) über das untere Makro in den Kommentar schreiben kann.
Vielen Dank im Voraus,
Marco
Dim vntAfter As Variant, vntBefore As Variant
Dim strAddress As String
strAddress = Selection.Address
vntAfter = Target.Value2
With Application
.EnableEvents = False
.ScreenUpdating = False
.Undo
End With
Range(strAddress).Select
vntBefore = Target.Value2
Target.Value2 = vntAfter
If IsArray(vntBefore) Then
MsgBox vntBefore(1, 1)
Else
MsgBox vntBefore
End If
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
If Target.Count größer 1 Then
Exit Sub
End If
With Target
' Falls noch kein Kommentar in der Zelle vorhanden ist,
' einen Erzeugen und den Ersteintrag rapportieren
If .Comment Is Nothing Then
.AddComment "Der Kommentar wurde erzeugt am: " & _
Date & " - " & Time & Chr(10) & _
"Vorgenommen durch: " & _
Application.UserName & Chr(10) & _
"Originaleintrag: " & _
.Value
Else
' Den alten Text zwischenspeichern
strComment = .Comment.Text & Chr(10)
' Den neuen Text aufbereiten und zurückschreiben
.Comment.Text strComment & Chr(10) & _
"Änderung vorgenommen am: " & _
Date & " - " & Time & Chr(10) & _
"Änderung vorgenommen durch: " & _
Application.UserName & Chr(10) & _
"Geänderter Inhalt: " & _
.Value
End If