Office: (Office 2010) Logfile für Arbeitsmappe

darkiop · 6. Januar 2014

Hallo zusammen,

ich benutze folgendes Skript um ein Logfile für eine Excel Arbeitsmappe zu erzeugen. Gefunden habe ich es in Herbers-Excel-Forum.

Nun benötige ich noch folgende Anpassungen, habe allerdings mit VB wenig bis keine Erfahrung. Ist hier jemand der mir hierbei weiterhelfen kann?

Noch benötigt:
Code:

' - Alternativer Speicherort: verstecktes Tabellenblatt
' - Nicht nur den Inhalt eines Feldes, sondern auch die Formatierung (speziell Änderung der Hintergrundfarbe) loggen
' - Logfile Eintrag wenn Datei gespeichert wird (#saved#)
' - Ablegen unter "DieseArbeitsmappe" und Protokollierung der Änderungen auf den einzelnen Tabellenblätter, z.B:
'
' |Zeitstempel |Tabellenblatt |User |Zelle |alter-Wert|neuer-Wert|
' |-------------------|--------------------|--------|------|----------|----------|
' |2014-01-08 10:50:14|Tabelle1 |test |B11 | |1 |
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code zur Erzeugung des Logfiles:
Code:

' Übernommen von Log-File für vorgenommene Änderungen | Herbers Excel-Forum
'
' von mir vorgenommene Änderungen:
' ===========================
' - Option zum deaktivieren des Logfiles (logStatus)
' - strDELIM auch als erstes Zeichen in jeder Zeile

Option Explicit
Dim mstrOld(1 To 1000, 1 To 16384) As String

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 1000 Then Exit Sub

Dim strDatei As String, strText As String
Dim strZeit As String, strUser As String, strZelle As String, strOld As String, strNeu As String
Dim intFile As Integer, rng As Range

Const strDELIM As String = "|" 'Logfile Delimiter - ggf. anpassen
Const lenUser As Integer = 8 'Anzahl Zeichen für Username
Const lenAdresse As Integer = 6 'Anzahl Zeichen für Zelladress
Const lenWert As Integer = 10 'min. Anzahl Zeichen für Wert alt und neu
Const FormatZeit As String = "YYYY-MM-DD hh:mm:ss" 'Format für Zeitstempel
Const logStatus As Integer = 1 '1 = aktiviert / 0 = deaktiviert

intFile = FreeFile

If logStatus = 1 Then

With ThisWorkbook
'Logbuch in allgemeinem, öffentlichen Verzeichnis, eine Datei je User
'strDatei = "C:\Users\Public\Test\Data" & "\LogBuch_" & Environ("Username") & "_" _
& Left(.Name, InStrRev(.Name, ".") - 1) & ".txt"
'Logbuch im Verzeichnis der Datei, eine Datei je User
'strDatei = .Path & "\LogBuch_" & Environ("Username") & "_" _
& Left(.Name, InStrRev(.Name, ".") - 1) & ".txt"
'Logbuch im Verzeichnis des Users
'strDatei = Environ("USERPROFILE") & "\LogBuch_" & Environ("Username") & "_" _
& Left(.Name, InStrRev(.Name, ".") - 1) & ".txt"
'Logbuch im Verzeichnis der Datei, eine Datei für alle User
strDatei = .Path & "\LogBuch_" & "_" & Left(.Name, InStrRev(.Name, ".") - 1) & ".txt"
End With

Open strDatei For Append As #intFile
If LOF(intFile) = 0 Then
'Texte in Titelzeile
With Application.WorksheetFunction
strZeit = "Zeitstempel"
strZeit = strZeit & VBA.Space(.Max(0, Len(FormatZeit) - Len(strZeit)))
strUser = "User"
strUser = strUser & VBA.Space(.Max(0, lenUser - Len(strUser)))
strZelle = "Zelle"
strZelle = strZelle & VBA.Space(.Max(0, lenAdresse - Len(strZelle)))
strOld = "alter-Wert"
strOld = strOld & VBA.Space(.Max(0, lenWert - Len(strOld)))
strNeu = "neuer-Wert"
strNeu = strNeu & VBA.Space(.Max(0, lenWert - Len(strNeu)))
strText = strDELIM & strZeit & strDELIM & strUser & strDELIM & strZelle & strDELIM & _
strOld & strDELIM & strNeu & strDELIM
End With
Print #intFile, strText
'Text für Trennzeile ("-" und Trennzeichen)
strText = strDELIM & String(Len(strZeit), "-") & strDELIM & String(Len(strUser), "-") & strDELIM _
& String(Len(strZelle), "-") & strDELIM _
& String(Len(strOld), "-") & strDELIM & String(Len(strNeu), "-") & strDELIM
Print #intFile, strText
End If
For Each rng In Target.Cells
If rng.Value mstrOld(rng.Row, rng.Column) Then
With Application.WorksheetFunction
strZeit = Format(Now, FormatZeit)

strUser = Environ("username")
strUser = strUser & VBA.Space(.Max(0, lenUser - Len(strUser)))

strZelle = VBA.Replace(rng.Address, "$", "")
strZelle = strZelle & VBA.Space(.Max(0, lenAdresse - Len(strZelle)))

strOld = mstrOld(rng.Row, rng.Column)
strOld = strOld & VBA.Space(.Max(0, lenWert - Len(strOld)))

strNeu = IIf(rng.Value = "", "#gelöscht#", rng.Value)
strNeu = strNeu & VBA.Space(.Max(0, lenWert - Len(strNeu)))

strText = strDELIM & strZeit & strDELIM & strUser & strDELIM & strZelle & strDELIM & _
strOld & strDELIM & strNeu & strDELIM
End With
Print #intFile, strText
End If
Next
Close #intFile

Else
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1000 Then Exit Sub

Dim rng As Range

For Each rng In Target.Cells
mstrOld(rng.Row, rng.Column) = rng.Value
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

GMG-CC · 8. Januar 2014

Sorry,

aber einmal grundsätzlich angemerkt: Auch wenn der Code öffentlich (in einem Forum) vorliegt, ist das Urheberrecht doch beim Ersteller bzw. auch bei dem, der wesentliche Ergänzungen vorgenommen hat. Das ist nicht nur eine Frage des Stils sondern hat auch rechtliche Hintergründe.

Darum solltest du dich als erstes einmal an denjenigen wenden, der den Code bei Herber veröffentlicht hat. Der kennt sich ja auch am besten damit aus. Wenn der Betroffene dann in angemessener Zeit keine Reaktion zeigt, dann mag es OK sein, sich an andere Foren (z.B. hier) zu wenden.

darkiop · 8. Januar 2014

Hallo Günter,

Danke für deine Antwort. Habe den Code für mich persönlich als Grund genommen hier endlich mal die Registrierung zu machen, das wollte ich schon eine Weile *Smilie Urheberrechtlich wollte ich natürlich nicht negativ auffallen, habe aus diesem Grund auch den Link zu herber.de in den Code gesetzt.

Ich werde aber jetzt erstmal bei herber.de nach den Infos fragen, das passt schon!

Grüße, Thorsten

GMG-CC · 8. Januar 2014

Hallo Thorsten,

ich kann nur eines sagen: SAUBER! *winner
So bist du auch in Sachen "Schmeißfliegen des Standes" (Abmahn-Anwälte) auf der sicheren Seite! Die machen sich nämlich im www ganz schön breit

Office: (Office 2010) Logfile für Arbeitsmappe

Logfile für Arbeitsmappe

Logfile für Arbeitsmappe

Logfile für Arbeitsmappe

Logfile für Arbeitsmappe - Similar Threads - Logfile Arbeitsmappe

Excel found a problem with one or more formula references in this worksheet

Zugriff auf Zellen in geschlossenen Arbeitsmappen

Arbeitsmappe lässt sich nicht speichern

Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe

Zellbezug aus anderer Arbeitsmappe verschwindet nach "Bearbeiten aktivieren"

Verhindern, dass sich Zellenverknüpfungen in andere Arbeitsmappen automatisch anpassen

Werte aus anderen Arbeitsmappen (dynamisch)