Markierung zeilenweise abarbeiten
29.10.2007 23:14:47
Fabian
Mein Hauptproblem wurde schon in diesem Thread gelöst,
https://www.herber.de/forum/archiv/916to920/t916564.htm
und einen Lösungsansatz für das Titelgebende Problem hab ich schon unter
https://www.herber.de/forum/archiv/132to136/t132623.htm
gefunden.
Allerdings endet der folgende Code im Excel-Nirvana oder besser ausgedrückt bei 97% CPU-Auslastung falls ich mehrere Zeilen markiere und die ändere...
...
Public LastWert As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Value LastWert Then
With Worksheets("Gesamt")
.Cells(c.Row, 10).Value = Now
.Cells(c.Row, 11).Value = "geändert"
LastWert = CStr(c.Value)
End With
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastWert = ActiveCell.Value
End Sub
...
Er "sollte" die (mehrzeilige) Markierung zuerst nach geänderten Werten überprüfen und bei jeder geänderten Zeile Timestamp und "geändert" in zwei verschiedenen Spalten einfügen.
Falls jemand weiter weiss oder ich (meine Vermutung...) an irgendeinem hirnrissigen Denkfehler meinerseits scheitere bitte mitteilen ;)
MfG Fabian
Anzeige