Thema Datum  Von Nutzer Rating
Antwort
01.07.2016 11:38:49 PHILIPP
NotSolved
01.07.2016 17:32:34 Gast5248
NotSolved
02.07.2016 13:27:54 Gast47814
NotSolved
02.07.2016 17:54:34 PHILIPP
NotSolved
02.07.2016 21:37:59 Gast41986
NotSolved
04.07.2016 08:45:40 PHILIPP
NotSolved
04.07.2016 11:21:07 Gast50525
NotSolved
Blau Protokoll über Excel-Änderungen
 04.07.2016 11:28:28 Gast23242
NotSolved
04.07.2016 16:48:57 Gast77998
Solved

Ansicht des Beitrags:
Von:
Gast23242		 Datum:
04.07.2016 11:28:28		 Views:
1048		 Rating:
     
Antwort:
  Ja
Thema:
Protokoll über Excel-Änderungen

So und hier die verkürzte Variante. Hat auch eine andere Ereignisprozedur bekommen. VG

 

Option Explicit
Public altewerte
  
Private Sub Worksheet_Change(ByVal Target As Range)

Dim zeile As Long
Dim zeile2 As Long


If Not Intersect(Target, ActiveSheet.Columns(12)) Is Nothing Then
        zeile = Target.Row
        zeile2 = Worksheets("Protokoll").Cells(Rows.Count, 1).End(xlUp).Row
        'Daten aus Spalte 1 bis 6
        ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), ActiveSheet.Cells(zeile, 6)).Copy Worksheets("Protokoll").Range("A" & zeile2 + 1)
        'Liefertermin
        ActiveSheet.Range("L" & zeile).Copy Worksheets("Protokoll").Range("G" & zeile2 + 1)
        
        'alter Liefertermin
        Worksheets("Protokoll").Cells(zeile2 + 1, 9) = altewerte
        'Änderungszeit
        Worksheets("Protokoll").Cells(zeile2 + 1, 10) = Now
        'Name des Ändernden
        Worksheets("Protokoll").Cells(zeile2 + 1, 11) = Environ("Username")
        Worksheets("Protokoll").Columns(10).AutoFit
        Worksheets("Protokoll").Columns(11).AutoFit
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Columns(12)) Is Nothing Then
    altewerte = Target.Value
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
01.07.2016 11:38:49 PHILIPP
NotSolved
01.07.2016 17:32:34 Gast5248
NotSolved
02.07.2016 13:27:54 Gast47814
NotSolved
02.07.2016 17:54:34 PHILIPP
NotSolved
02.07.2016 21:37:59 Gast41986
NotSolved
04.07.2016 08:45:40 PHILIPP
NotSolved
04.07.2016 11:21:07 Gast50525
NotSolved
Blau Protokoll über Excel-Änderungen
 04.07.2016 11:28:28 Gast23242
NotSolved
04.07.2016 16:48:57 Gast77998
Solved