Probleme beim protollieren
01.09.2004 10:40:51
Scotty
habe ein Prob beim protokollieren von Änderungen auf einen Tabellenblatt.
Habe Arbeitsmappe mit Blatt x und Arbeitsblatt Protokoll. In x werden Änderungen gemacht, die mit folgendem Makro protokolliert werden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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
Das Makro funktioniert bestens, bis auf ein Prob. Wenn ich Änderungen in x vornehme, indem ich Zellen durch "ziehen" kopiere, macht das Makro Probleme. Es bleibt immer an der Stelle "If InhaltNeu = "" Then..." gelb markiert stehen.
Hat jemand eine Idee, wie man das beheben kann? Es sollen auch solche Änderungen protokolliert werden.
Vielen Dank vorab für eure Mühen
Scotty