Markierungsaufhebung
08.02.2004 11:25:39
Giuseppe
Guten Tag
Ich komme nicht weiter!!!!
Mit dieser Code wird die aktive Zelle grau markiert.
Wenn ich die Arbeitmappe schließe und wieder öffne ist letze markierte Zelle in alle Tabelle grau.
Wie kann man von der beenden, die markierung entfernen?
Hier ist der Code:
'#####################################################
'##### Zeile farbig markieren #####
'####################################################
Dim alteAdresse(100, 2)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'hier soll die Markierung enfernt werden?????????????????
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call CellPrüfung(Sh, Target)
End Sub
Sub CellPrüfung(ByVal Sh As Object, ByVal Target As Range)
Dim gefunden As Boolean
Dim i As Byte, n As Byte
ActiveSheet.Unprotect
For i = 0 To UBound(alteAdresse)
If Sh.Index = alteAdresse(i, 0) Then
Sh.Range(alteAdresse(i, 1)).Interior.ColorIndex = alteAdresse(i, 2)
gefunden = True
n = i
Exit For
End If
Next
If gefunden = False Then
For n = LBound(alteAdresse) To UBound(alteAdresse)
If IsEmpty(alteAdresse(n, 0)) Then Exit For
Next
End If
alteAdresse(n, 0) = Sh.Index
alteAdresse(n, 1) = Target.Address
alteAdresse(n, 2) = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 15
End Sub
Danke im Voraus
Giuseppe