zelle markieren

Bild

Betrifft: zelle markieren von: Gabor
Geschrieben am: 10.02.2005 17:24:06

Hallo,
ich benötige ein makro, dass folgendes bewirkt:
wenn ich eine Zelle mit der Mouse markiere (anklicke) soll die Zelle,
5 Spalten links und eine zeile höher rot eingefärbt werden.

Bild


Betrifft: AW: zelle markieren von: Ulf
Geschrieben am: 10.02.2005 17:28:07

Code ins Tabellenmodul:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Row > 1 And Target.Column > 5 Then
  Target.Offset(-1, -5).Interior.ColorIndex = 3
End If
End Sub


Ulf


Bild


Betrifft: AW: zelle markieren von: Gabor
Geschrieben am: 10.02.2005 17:35:23

danke - klappt super


Bild


Betrifft: AW: zelle markieren von: Josef Ehrensberger
Geschrieben am: 10.02.2005 17:36:15

Hallo Gabor!

Rechtsklick aif das Blattregister > Code anzeigen und diesen Code einfügen.


Option Explicit
Dim oldRng As Range
Dim oldCol As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
oldRng.Interior.ColorIndex = oldCol
   If Target.Column > 5 And Target.Row > 1 Then
      Set oldRng = Target.Offset(-1, -5)
      oldCol = oldRng.Interior.ColorIndex
      oldRng.Interior.ColorIndex = 3
   End If
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "zelle markieren"