Ziehen mit der Maus verbieten
26.10.2004 13:47:01
Scotty
hab immer noch ein Prob. mit unten stehenden Makro. Dieses Makro protokolliert Änderungen in verschiedenen Arbeitsblättern. Es funktioniert ganz gut. Nur wenn man Zellen durch ziehen ändert, hängt es sich an der Stelle If InhaltNeu.... auf. Kann man per Makro einfach das Ziehen deaktivieren? So müßte der user Änderungen einzeln vornehmen und es gäbe kein Prob mehr. Hätte lieber elegantere Lösung mit unten stehenden Makro, aber mir fällt nix ein.
Danke an alle die helfen
Scotty
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