Undofunktion außer Kraft
03.11.2004 14:00:32
Kersten
Ich habe einen VB-Code eingebunden, der die aktive Zeile farblich untermalt.
Jetzt stelle ich fest, das wenn ich einen Eintrag vornehme und die aktive Zelle verlasse kann ich diesen Vorgang nicht mehr rückkgängig machen, er ist also nicht gespeichert.
Der Code wird durch das Worksheet_SelectionChange-Ereignis ausgelöst.
Ich habe unter diesem Ereignis noch andere Codes laufen, bei denen dibt es keine Probleme.
Anbei mal der Code der dafür verantworlich ist. Kann mir jemand sagen, wodurch diese Phänomen ausgelöst wird. Ich kann in dem Code nichts erkennen was die Undospeicher außer Kraft setzt bzw. zücksetzt auf leer.
Danke Gruß Kersten
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
' deklarieren Zellenbereiche, die farblich verändert werden sollen
Set rng1 = Range(Cells(69, 1), _
Cells(Cells(Rows.Count, 13).End(xlUp).Row, 9))
Set rng2 = Range(Cells(69, 10), _
Cells(Cells(Rows.Count, 13).End(xlUp).Row, 12))
Set rng3 = Range(Cells(69, 13), _
Cells(Cells(Rows.Count, 13).End(xlUp).Row, 13))
z1 = Selection.Row
'Hier werden die Bereiche farblich verändert
Set eingbereich1 = Range(rng1.Address)
eingbereich1.Interior.ColorIndex = xlNone
Set eingbereich2 = Range(rng2.Address)
eingbereich2.Interior.ColorIndex = 40
Set eingbereich3 = Range(rng3.Address)
eingbereich3.Interior.ColorIndex = 44
If Application.Intersect(Selection, eingbereich1) Is Nothing Then Exit Sub
Range(Cells(z1, 1), Cells(z1, 13)).Interior.ColorIndex = 20
End Sub
Anzeige