Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Memory in Zellkommentar

Gruppe

Change

Problem

Bei Zellveränderungen mit Wert soll der Zellhintergrund gelb, ohne Wert grün belegt werden. Die jeweils vorhergehenden Werte sind in einem Zell-Kommentar zu speichern.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   Range("A2").Select
   Range("A1").Select
End Sub

ClassModule: Tabelle1

Public var As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value <> var Then
      If Not ActiveCell.Comment Is Nothing Then
         ActiveCell.Comment.Text ActiveCell.Comment.Text & vbLf & var
      Else
         ActiveCell.AddComment CStr(var)
      End If
      If Not IsEmpty(Target) Then
         Target.Interior.ColorIndex = 6
      Else
         Target.Interior.ColorIndex = 4
      End If
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Selection.Cells.Count > 1 Then Exit Sub
   var = Target.Value
End Sub

Sub ReSetComments()
   Dim cmt As Comment
   For Each cmt In ActiveSheet.Comments
      cmt.Delete
   Next cmt
End Sub