Hallo Experten!
Ich habe folgendes Problem. Ich möchte, dass die aktive Zelle in Excel farbig dargestellt wird- so weit so gut! Das klappt ganz gut mit folgendem Code:
Dim lastcell As Excel.Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
ActiveSheet.Unprotect 'ggf noch PW
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 19
Set lastcell = Target
End Sub
Beim erneuten Öffnen des Dokuments bleibt jedoch die aktive Zelle dauerhaft farbig… wer kennt ein Makro, welches die Farbe aus der aktiven Zelle beim Neustart wieder löscht?
Folgendes Makro löscht mir leider auch den darin befindlichen Text…
Sub auto_open()
Selection.FillRight
End Sub
Vielen Dank im Voraus!
Gruss,
Philip
Beim erneuten Öffnen des Dokuments bleibt jedoch die aktive
Zelle dauerhaft farbig… wer kennt ein Makro, welches die
Farbe aus der aktiven Zelle beim Neustart wieder löscht?
Folgendes Makro löscht mir leider auch den darin befindlichen
Text…
Sub auto_open()
Selection.FillRight
End Sub
Hi Philip,
lösche die farbe in
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank schonmal. Aber wo baue ich deinen Code ein? Anstelle meines Makros? Und wie genau lösche ich die Farbe?
Gruss
Philip
Hi Philip,
lösche die farbe in
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
Gruß
Reinhard
Hallo Philip,
lösche die farbe in
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Du müsstest dazu nur diese Zeile
Target.Interior.ColorIndex = 19
ändern. Neuer Wert müsste 0 sein.
Gruß
Alex