Thema Datum  Von Nutzer Rating
Antwort
23.08.2017 10:35:48 Pascal
NotSolved
Blau Kommentar bei Änderung
 23.08.2017 12:07:43 Werner
Solved
23.08.2017 13:22:05 Pascal Meller
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
23.08.2017 12:07:43		 Views:
611		 Rating:
     
Antwort:
 Nein
Thema:
Kommentar bei Änderung

Hallo Pascal,

hier als Beispiel:

Private Sub Worksheet_Change(ByVal target As Range)
'** Dimensionierung der Variablen
Dim strAlt As String
Dim strNeu2 As String
'**Code wirkt sich in Spalte A (1), B (2) und C (3) aus
If target.Column = 1 Or target.Column = 2 Or target.Column = 3 Then
    '** 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
End If
'** Errorhandling zurücksetzen
On Error GoTo 0
End Sub

 

Übrigens: Nicht mit On Error resume next, sondern mit On Error Goto 0 wird die Fehlerbehandlung wieder zurückgesetzt.

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.08.2017 10:35:48 Pascal
NotSolved
Blau Kommentar bei Änderung
 23.08.2017 12:07:43 Werner
Solved
23.08.2017 13:22:05 Pascal Meller
NotSolved