Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zelle markieren

zelle markieren
10.02.2005 17:24:06
Gabor
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zelle markieren
Ulf
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
AW: zelle markieren
10.02.2005 17:35:23
Gabor
danke - klappt super
AW: zelle markieren
10.02.2005 17:36:15
Josef
Hallo Gabor!
Rechtsklick aif das Blattregister &gt 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!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige