Zelle markieren
02.04.2009 19:16:12
Matze
ich habe einen Code, der mir die entsprechende Zelle farbig markiert, wenn ich in die Zelle klicke.
Der Code ist folgender:
Option Explicit
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub
Das funktioniert alles auch super, jedoch wenn ich die Datei speichere und wieder oeffne, ist die zuletzt markierte Zelle dauerhaft farbig. Das passiert dann bei jedem Oeffnen.
Wie kann ich das im Code verbessern, sodass beim Wiederoeffnen der Datei nichts von vornherein markiert ist?
Danke & Gruss
Matze