AW: Hintergrundfarbe beim editieren, ausblenden
23.05.2007 16:40:00
michael
hi josef :-)
vielleicht so :-)
gruss nighty
einzufuegen alt + f11/AllgemeinesModul
Public findex As Integer, posx As Integer
Public posy As Long
einzufuegen alt + f11/Projektexplorer/DeineTabelle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If findex 2 Then
If posx > 0 Then Cells(posy, posx).Interior.ColorIndex = findex
findex = Cells(Target.Row, Target.Column).Interior.ColorIndex
posx = Target.Column
posy = Target.Row
Cells(Target.Row, Target.Column).Interior.ColorIndex = 2
End If
Application.EnableEvents = True
End Sub
einzufuegen alt + f11/Projektexplorer/DeineArbeitsMappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If posx > 0 Then Cells(posy, posx).Interior.ColorIndex = findex
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If posx > 0 Then Cells(posy, posx).Interior.ColorIndex = findex
End Sub