rij arceren

[JOOST]

Hallo,

ik heb gezocht op het forum om een rij links van de actieve cel te
arceren.
Ik vond daarbij de link naar http://www.mrexcel.com/hof001.php
Ik heb het gekopieerd en geplakt in de code van het werkblad.
Helaas werkt het niet. Ik werk met Excel 2000.
Heeft iemand een suggestie of een andere oplossing.
Alvast bedankt
Joost

[]-[oRus]

JOOST vertrouwde ons het volgende toe:

Deze macro doet dat heel eenvoudig
'Geeft een kruislijn op de actieve cel
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.colorindex = xlNone
Target.EntireColumn.Interior.colorindex = 15
Target.EntireRow.Interior.colorindex = 15
End Sub

Naar wens kan je alleen de rij of de kolom arceren.
Zet de code in het codeblad van het werkblad.

--

Vriendelijke groeten,

]-[oRus
www.westbrabantsevwg.nl

[jan]

Joost,

Ook een mogelijkheid via Voorwaardelijke opmaak.

Selecteer het gebied (desnoods hele werkmap) waarvoor je één en ander wilt laten
werken.
Ga naar menu Opmaak>Voorwaardelijke opmaak en kies voor Formule is
en zet dan deze formule in het daarvoor bestemde vakje:

=OF(RIJ()=CEL("Rij");KOLOM()=CEL("Kolom"))

en kies een opmaak die je aan de geselecteerde rij en kolom wilt geven.

Onder VBA (Alt+F11) zet je deze regels in de module horend bij het betreffende
werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = True
End Sub

Jan

[JOOST]

bedankt voor de reacties,

de variant van Rus is makkelijker te implementeren, het nadeel is dat
je alle opmaak kwijt raakt.
de oplossing van Jan werkt goed; kost wat meer tijd om te realiseren
(in verschillende bestanden);

Nog een vervolgvraag:
kun je de oplossing van Rus ook op een bepaald deel van het excelblad
toepassen of zonder dat de bestaande opmaak wijzigt; of de opmaak weer
wordt teruggezet als je de rij/kolom verlaat

Joost

[jan]

Joost,

De zaken voor een deel van het werkblad werkbaar te maken zal vast lukken.
Je tweede vraag over het niet kwijtraken van opmaak:
daar heb ik al veel pobeersels van gezien (en ook gemaakt) maar wat mij betreft
nooit tot tevredenheid.

De implementatie van wat ik hier aandroeg, zou vrij eenvoudig kunnen als je deze
code opneemt in de module van je workbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
FormatSheet

Application.ScreenUpdating = True
End Sub

Sub FormatSheet()
With ActiveSheet.Cells
If .FormatConditions.Count = 0 Then
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=OF(RIJ()=CEL(""Rij"");KOLOM()=CEL(""Kolom""))"

.FormatConditions(1).Interior.ColorIndex = 36
End If
End With
End Sub

Dat betekent dat in elk werkblad van je workbook dit wordt doorgevoerd.
Als er nog geen voorwaardelijke opmaak is, wordt deze aangemaakt voor het hele
werkblad.

Twee nadelen aan deze methode:
Andere voorwaardelijke opmaken zijn wat minder eenvoudig te realiseren en je mist er
natuurlijk 1.
Daarnaast zie je het scherm toch wat flikkeren doordat elke keer ScreenUpdating
wordt uitgevoerd.

Er is een andere methode, die ook gebruikmaakt van voorwaardelijke opmaak en steeds
dezelfde Naam geeft aan de selectie en deze weer verwijderd als de selectie wijzigt.
Op basis van die naam is de voorwaardelijke opmaak ingesteld.
Hierbij flikkert het scherm niet, maar er wordt wel elke keer, ook al heb je geen
wijzigingen aangebracht, gevraagd of je het bestand wilt opslaan.
Mijn antwoord was op deze methode (waar ik die zag weet ik niet meer) gebaseerd.

Jan