title image


Smiley >>VBA Code funzt nur zu 50% Zellenänderung protokollieren
Hallo, bin auf der Suche nach einem Tool, welches mir den alten und den neuen Wert protokolliert. Der neue Wert wird mir ausgegeben der alte wird mir aber nicht übergeben

Kann mir jemand helfen??



Gruß

woerny




inhaltalt = Target.Value

ZellAddress = Target.Address(False, False, xlA1)

End Sub







Private Sub worksheet_change(ByVal Target As Range)

Dim ZeileText, SpalteText, InhaltNeu, Benutzer As String, DatZeit

ZeilProt = Worksheets("Protokoll").Range("A1").CurrentRegion.Rows.Count + 1

InhaltNeu = Target.Value

If InhaltNeu = "" Then

InhaltNeu = "[leer]"

End If

If inhaltalt = "" Then

inhaltalt = "[leer]"

End If

ZeileText = Cells(Target.Row, 1)

SpalteText = Cells(1, Target.Column)

Benutzer = Application.UserName

DatZeit = Date + Time

With Worksheets("Protokoll")

.Cells(ZeilProt, 1).Value = ActiveSheet.Name

.Cells(ZeilProt, 2).Value = ZellAddress

.Cells(ZeilProt, 3).Value = inhaltalt

.Cells(ZeilProt, 4).Value = InhaltNeu

.Cells(ZeilProt, 5).Value = Benutzer

.Cells(ZeilProt, 6).Value = DatZeit

End With

ZeilProt = ZeilProt + 1

End Sub





Copyright by Scotty - http://www.herber.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: