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

Ansicht des Beitrags:
Von:
Pascal Meller		 Datum:
23.08.2017 13:22:05		 Views:
600		 Rating:
     
Antwort:
  Ja
Thema:
Kommentar bei Änderung
Vielen Dank schon Mal. Ich habe diese Funktion mit einer anderen Funktion verknüpft. Ich bin mir nicht sicher ob ich das auch wirklich sauber gemacht habe. Aktuell macht es, was es soll. Aber vielleicht gibt es verbesserungspotential. 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 = 9 Or target.Column = 11 Or target.Column = 12 Or target.Column = 13 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 If Intersect(target, Range("P1:P10000")) Is Nothing Then If Intersect(target, Range("B1:B10000")) Is Nothing Then Exit Sub If target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen If target = "" Then target.Offset(0, -1).ClearContents Else: target.Offset(0, -1) = CDate(Format(Now, "dd.mm.yyyy")) End If End If If target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen If target = "" Then target.Offset(0, 5).ClearContents Else: target.Offset(0, 5) = CDate(Format(Now, "dd.mm.yyyy")) End If End Sub

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
23.08.2017 12:07:43 Werner
Solved
Rot Kommentar bei Änderung
 23.08.2017 13:22:05 Pascal Meller
NotSolved