makro probleme
19.02.2008 18:18:00
kalle
brauche mal wieder eure Hilfe. folgendes Makro funktioniert soweit ganz gut, nur möchte ich nicht nur den neuen Wert der Zelle protokollieren sondern auch gerne den alten Wert. Kann mir jemand helfen. Ich kriege das irgendwie nicht hin. Vielen Dank im Voraus
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Dim strBenutzer, strDatum, strUhrzeit As String
strBenutzer = Environ("UserName")
strDatum = Format(Now, "dd.mm.yyyy")
strUhrzeit = Format(Now, "HH:MM")
Application.EnableEvents = False
With Worksheets("P2")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(lngZeile, 1).Value = strDatum
.Cells(lngZeile, 2).Value = strUhrzeit
.Cells(lngZeile, 3).Value = strBenutzer
.Cells(lngZeile, 4).Value = Sh.Name
.Cells(lngZeile, 5).Value = Target.Address
.Cells(lngZeile, 6).Value = Target.Value
On Error Resume Next
.Cells(lngZeile, 5).Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False 'Dollarzeichen löschen
End With
Application.EnableEvents = True
End Sub
gruss kalle