Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Protokollierung des Users |
14.11.2011 11:57:57 |
Klaus |
|
|
|
14.11.2011 12:24:54 |
Till |
|
|
|
14.11.2011 13:05:46 |
Gast71254 |
|
|
|
14.11.2011 13:16:44 |
Till |
|
|
|
14.11.2011 13:22:39 |
Klaus |
|
|
|
14.11.2011 13:59:00 |
Gast61207 |
|
|
|
15.11.2011 02:35:37 |
Till |
|
|
|
15.11.2011 11:51:29 |
Klaus |
|
|
|
15.11.2011 15:07:22 |
Till |
|
|
|
16.11.2011 09:00:49 |
Klaus |
|
|
|
16.11.2011 19:51:44 |
Till |
|
|
Von:
Klaus |
Datum:
14.11.2011 11:57:57 |
Views:
1844 |
Rating:
|
Antwort:
|
Thema:
Protokollierung des Users |
Hallo zusammen,
ich habe ein Excelsheet, das von mehreren Personen genutzt wird. Darin stehen Termine und Datums drin. Wenn jetzt ein User ein Datum verändert, möchte ich das gerne protokolliert haben. Dazu habe ich folgenden Code benutzt:
[code]Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim iRow As Integer
If Intersect(Target, Range("A1:E12")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokollierung")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Target.Address(False, False)
.Cells(iRow, 2).Value = vOld
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub[code]
Soweit alles in Ordnung, das läuft wunderbar. Allerdings zeigt es mir im Protokoll nur an, welche Zelle verändert wurde und was vorhin dringestanden hat. Wie muss ich den Code erweitern, dass mir noch folgende andere Dinge angezeigt werden?
1. der neue Zellwert soll auch übertragen werden
2. der zugehörige Termin ebenfalls (steht in Spalte daneben)
3. der User, der die Veränderung gemacht hat
4. das Datum der Veränderung
Kann mir jemand helfen?
Grüße von Klaus
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Protokollierung des Users |
14.11.2011 11:57:57 |
Klaus |
|
|
|
14.11.2011 12:24:54 |
Till |
|
|
|
14.11.2011 13:05:46 |
Gast71254 |
|
|
|
14.11.2011 13:16:44 |
Till |
|
|
|
14.11.2011 13:22:39 |
Klaus |
|
|
|
14.11.2011 13:59:00 |
Gast61207 |
|
|
|
15.11.2011 02:35:37 |
Till |
|
|
|
15.11.2011 11:51:29 |
Klaus |
|
|
|
15.11.2011 15:07:22 |
Till |
|
|
|
16.11.2011 09:00:49 |
Klaus |
|
|
|
16.11.2011 19:51:44 |
Till |
|
|