Microsoft Excel

Herbers Excel/VBA-Archiv

active celle farbig | Herbers Excel-Forum


Betrifft: active celle farbig von: Ralf
Geschrieben am: 03.01.2010 15:09:44

Hallo nochmal

habe hier einen code gefunden der fast OK ist aber leider nur fast

ich möchte gerne die active celle farbig hinterlegen aber nur so lange wie sie active ist !
bei dem code den ich gefunden habe bleibt die celle dann so auch wenn ich sie verlasse

kann man den code umschreiben oder ist mein wunsch gar nicht machbar ?

oder kann man den code so schreiben das wenn celle verlassen wird dann wieder farbe farblos oder so ähnlich

mit besten grüßen

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

  

Betrifft: AW: active celle farbig von: Hajo_Zi
Geschrieben am: 03.01.2010 15:12:34

Hallo Ralf,

soll die Farbe vor der Auswahl wieder zurück gestellt werden?
Schaue hier http://hajo-excel.de/vba_markieren.htm

GrußformelHomepage


  

Betrifft: AW: active celle farbig von: Ralf
Geschrieben am: 03.01.2010 15:34:56

Hallo
und schon mal Danke für deine mühe ich habe mir den code
zelle makieren 1 ausgewählt und den in diese arbeitsmappe eingefügt
jetzt kommt leider die Fehlermelung fehhler beim kompillieren was auch immer das heißt
If BoAktion Then Exit Sub
BoAktion ist makiert

mach ich da etwas falsch oder habe ich den falschen code

gruß aus Damme


  

Betrifft: AW: active celle farbig von: Josef Ehrensberger
Geschrieben am: 03.01.2010 15:41:27

Hallo Ralf,

versuch mal sowas. http://www.add-in-world.com/katalog/xl-cellspot/


Gruß Sepp



  

Betrifft: AW: active celle farbig von: Gerd L
Geschrieben am: 03.01.2010 15:42:59

Hallo Ralf!

'von Uwe Küstner

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static vZelle(2) As Variant
  If Not IsEmpty(vZelle(2)) Then
    With vZelle(0).Interior
      .Color = vZelle(1)
      .Pattern = vZelle(2)
    End With
  End If
  Set vZelle(0) = ActiveCell
  With vZelle(0).Interior
    vZelle(1) = .Color
    vZelle(2) = .Pattern
    .Color = 65280
  End With
End Sub
Gruß Gerd


  

Betrifft: Ja so klappt es Danke an alle von: Ralf
Geschrieben am: 03.01.2010 15:47:20

Ja so klappt es Danke an alle für die Mühen

Mit besten Grüßen


Beiträge aus den Excel-Beispielen zum Thema "active celle farbig"