Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Zelleinträge automatisch kommentieren

Im folgenden Beitrag zeigen wir Ihnen, wie alle Zelleinträge und Änderungen mit Hilfe der in Excel integrierten Kommentarfunktion protokolliert und historisiert werden können.

Das Bild oben zeigt die Einträge in der Zelle C7. Dort wurde zuerst der Eintrag Wert 1, ein paar Sekunden später der Eintrag Wert 2 und wieder jeweils ein paar Sekunden danach die Einträge Wert 3 und Wert 4 vorgenommen. Alle vier Einträge sind mit Angabe des Datums und der Uhrzeit in den Kommentar übernommen worden.

Abhängig von der Länge des erfassten Textes oder der erfassten Zahl, kann es notwendig sein, dass die Größe des Kommentarfensters manuell so angepasst wird, dass alle Eingaben korrekt zu sehen sind.

Damit die erfassten Werte automatisch als Kommentar eingetragen werden, müssen Sie folgenden VBA-Code im Codeblatt des jeweiligen Tabellenblatts hinterlegen.


Private Sub Worksheet_Change(ByVal target As Range) 
'** Dimensionierung der Variablen 
Dim strAlt As String 
Dim strNeu2 As String 
 '** Errorhandling 
On Error Resume Next 
 '** Alten Kommentar auslesen 
strAlt = target.Comment.Text 
 '** Neuen Kommentar hinzufügen 
If strAlt = "" Then target.AddComment 
 '** Alten Kommentar um neuen Eintrag erweitern 
strNeu2 = vbLf & Application.UserName & "   " & Date & "/" & Time & "  " & target.Value & strAlt 
target.Comment.Text strNeu2 
 '** Errorhandling zurücksetzen 
On Error Resume Next 
 End Sub

Sobald der Code eingetragen ist, werden alle Änderungen einer Zelle im Kommentarfeld dokumentiert.

Da es sich um einen "normalen" Excel-Kommentar handelt, stehen sämtliche bekannte Kommentarfunktionen zur Verfügung. So kann der Kommentar-Inhalt geändert werden, die Größe des Kommentarfelds kann beliebig angepasst werden und selbstverständlich kann der Kommentar auch gelöscht werden.

Die Beispieldatei können Sie über den nachfolgenden Link herunterladen.

   

Relevante Artikel

  • Beim verändern einer Zelle eine Aktion ausführen

    Excel erkennt automatisch, wenn der Anwender eine Zelle verändert. So können alle oder bestimmte Zellen beliebig per VBA überwacht werden.   Das folgende Makro wird beispielsweise ausgeführt, wenn in...

  • Zähler beim Start einer Arbeitsmappe um den Wert 1 erhöhen

    Solle bei jedem Start einer Arbeitsmappe ein Zähler, beispielsweise eine Rechnungsnummer in Zelle B2, um den Wert 1 erhöht werden, dann sehen Sie sich den folgenden Code näher an. Private Sub...

  • Aktive Zelle mit Farbe hinterlegen

    104007 Folgendes Programm färbt die aktive Zelle farblich ein. Wird die Zelle wieder verlassen wird der Ursprungszustand in der verlassenen Zelle wieder hergestellt und die nun aktive Zelle...

  • Makro über die Funktion WENN() starten

    Haben Sie schon mal darüber nachgedacht, über die Funktion =WENN(Prüfung;dann;sonst)ein eigenes Makro auszuführen, wenn die Wenn-Bedingung eintritt? Nachfolgend zeigen wir Ihnen, wie sich dies...

  • Sperren der Entfernen-Taste wenn Formel in Zelle

        In diesem Beispiel zeigen wir Ihnen, wie sich die Entfernen-Taste sperren lässt, wenn sich eine Formeln in der Zelle befindet. Dazu sind ein paar Zeilen VBA-Code notwendig. Erfassen Sie folgenden...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013