Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1264to1268
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
Inhaltsverzeichnis

VBA Aktive Felder einfärben

VBA Aktive Felder einfärben
Stefan
Hallo zusammen
kann ich das Macro auch auf besimmte Zellen einschränken ?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6  'Hintergrund Gelb
End Sub
P.S. ich hätte gerne die erste Zeile davon ausgenommen.
MfG
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Application.Intersect()
08.06.2012 13:08:31
ransi
HAllo
Schau dir mal=intersect() an.
Damit könnte das gehn..
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Intersect(Rows("2:65536"), Target).Interior.ColorIndex = 6
End Sub


ransi
Anzeige
AW: Application.Intersect()
08.06.2012 14:19:07
Stefan
Top Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige