Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Aktive Felder einfärben

Forumthread: 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
Anzeige

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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige