Protokollierung von Zellbereichen

Hallo liebe Excelgemeinde,
folgendes Makro erstellt in einer Zelle einen Kommentar, sobald Sie verändert wird. Es wird der User, Datum und Uhrzeit, der Originaleintrag und der geänderte Wert im Kommentar ausgeworfen.
Leider bezieht sich das auf das ganze Tabellenblatt. Es soll aber nur der Bereich B2:AF30 überwacht werden.
In diesem Bereich werden über ein Makro externe Daten abgerufen. Ich habe es schon mit "If Intersect(Target, Range("B2:AF30")) Is Nothing Then Exit Sub" versucht, aber bei einer erneuten Datenabfrage bekomme ich dann den "Laufzeitfehler 13 - Typen unverträglich" und Zeile ".AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & "Vorgenommen durch: " & Application.UserName & Chr(10) & "Originaleintrag: " & .Value" wird gelb markiert.
Zudem gibt es noch folgende Probleme:
1. Wird mehr als eine Zelle markiert und dieser Bereich gelöscht, wird kein Kommentar erstellt. 2. Wenn die aktive Zelle leer ist und ein Wert wird eingegeben, übernimmt er im späteren Kommentar diesen Wert als Originaleintrag, obwohl die Zelle vorher leer war. Das Gleiche macht er mit Zellen, die schon einen Wert enthalten und ich diesen ändere.
Im Anhang als Beispiel eine Testdatei.
https://www.herber.de/bbs/user/52235.xls
Was müßte also im folgenden Code geändert werden, um diese Fehler zu vermeiden?
Vielen Dank schon mal im Voraus für Eure Unterstützung!!! Grüße, Stephan


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strComment As String
If Target.Count > 1 Then Exit Sub
With Target
If .Comment Is Nothing Then
.AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & "Vorgenommen  _
durch: " & Application.UserName & Chr(10) & "Originaleintrag: " & .Value
.Comment.Visible = False
Else
strComment = .Comment.Text & Chr(10)
.Comment.Text strComment & Chr(10) & "Änderung vorgenommen am: " & Date & " - " & Time & Chr(10) _
& "Änderung vorgenommen durch: " & Application.UserName & Chr(10) & "Geänderter Inhalt: " & .Value
.Comment.Visible = False
End If
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim strComment As String If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:AF30 ")) Is Nothing Then Exit Sub With Target If .Comment Is Nothing Then .AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & " _ Vorgenommen durch: " & Application.UserName & Chr(10) & "Originaleintrag: " & .Value .Comment.Visible = False Else strComment = .Comment.Text & Chr(10) .Comment.Text strComment & Chr(10) & "Änderung vorgenommen am: " & Date & " - " & Time & _ Chr(10) & "Änderung vorgenommen durch: " & Application.UserName & Chr(10) & "Geänderter Inhalt: " & .Value .Comment.Visible = False End If End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim strComment As String If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:AF30")) Is Nothing Then Exit Sub With Target If .Comment Is Nothing Then .AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & " _ Vorgenommen durch: " & Application.UserName & Chr(10) & "Originaleintrag: " & .Value .Comment.Visible = False Else strComment = .Comment.Text & Chr(10) .Comment.Text strComment & Chr(10) & "Änderung vorgenommen am: " & Date & " - " & _ Time & Chr(10) & "Änderung vorgenommen durch: " & Application.UserName & Chr(10) & "Geänderter Inhalt: " & .Value .Comment.Visible = False End If .Comment.Shape.TextFrame.AutoSize = True End With End Sub

Option Explicit Dim varUrsprung As Variant Private Sub Worksheet_Change(ByVal Target As Range) Dim strComment As String If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B2:AF30")) Is Nothing Then Exit Sub With Target If .Comment Is Nothing Then .AddComment "Der Kommentar wurde erzeugt am: " & Date & " - " & Time & Chr(10) & " _ Vorgenommen durch: " & Application.UserName & Chr(10) & "Originaleintrag: " & varUrsprung .Comment.Visible = False Else strComment = .Comment.Text & Chr(10) .Comment.Text strComment & Chr(10) & "Änderung vorgenommen am: " & Date & " - " & _ Time & Chr(10) & "Änderung vorgenommen durch: " & Application.UserName & Chr(10) & "Geänderter Inhalt: " & varUrsprung .Comment.Visible = False End If .Comment.Shape.TextFrame.AutoSize = True End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) varUrsprung = Target End Sub

Private Sub Workbook_Open() kommentarbearbeitung_aussschalten End Sub Private Sub Workbook_Activate() kommentarbearbeitung_aussschalten End Sub Private Sub Workbook_Deactivate() kontextmenue_zuruecksetzen End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) kontextmenue_zuruecksetzen End Sub

On Error Resume Next Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar").Enabled = False Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar bearbeiten").Enabled = _ False

Private Sub Workbook_Open() If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten End Sub Private Sub Workbook_Activate() If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten End Sub

Hi Beverly,
vielen Dank für Deine Antworten! Es funktioniert! Ich habe den unten aufgeführten Code in einem separaten Modul eingefügt und den fett markierten Teil noch mit aufgenommen.
Ich bin davon ausgegangen, dass es sich bei "Application.CommandBars("Cell").Controls(10).Enabled = False" um den Kontextmenü-Punkt "Kommentar ein-/ausblenden" handelt.
Mir ist nämlich folgendes aufgefallen: Wenn man einen Kommentar einblendet und in das Kommentar-Feld klickt, kann man diesen nämlich noch bearbeiten. Wenn ich aber nun was ändere, und das Kontextmenü aufrufe, ist der Befehl "Kommentar ein-/ausblenden aber noch aktiviert und wird auch ausgeführt. Woran könnte das liegen? Grüße, Stephan
Sub kommentarbearbeitung_aussschalten()
Application.CommandBars("Cell").Controls(8).Enabled = False
Application.CommandBars("Cell").Controls(9).Enabled = False
Application.CommandBars("Cell").Controls(10).Enabled = False
On Error Resume Next
Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar").Enabled = False
Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar bearbeiten").Enabled = False
End Sub

Sub kontextmenue_zuruecksetzen()
Application.CommandBars("Cell").Reset
Application.CommandBars(1).Controls("Einfügen").Reset
End Sub


Private Sub Workbook_Open()
If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten
End Sub


Private Sub Workbook_Activate()
If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten
End Sub

Sub kommentarbearbeitung_aussschalten() Application.CommandBars("Cell").Controls(8).Enabled = False Application.CommandBars("Cell").Controls(9).Enabled = False Application.CommandBars("Cell").Controls(10).Enabled = False On Error Resume Next Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar").Enabled = False Application.CommandBars(1).Controls("Einfügen").Controls("Kommentar bearbeiten").Enabled _ = False End Sub

Option Explicit Private Sub Workbook_Open() If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten End Sub Private Sub Workbook_Activate() If ActiveSheet.Name = "PD's" Then kommentarbearbeitung_aussschalten End Sub Private Sub Workbook_Deactivate() kontextmenue_zuruecksetzen End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) kontextmenue_zuruecksetzen End Sub

Beliebteste Forumthreads (12 Monate)

Protokollierung von Zellbereichen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Protokollierung von Zellbereichen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread