Farver i Excel

Sub Makro1()
Set tbl = ActiveCell.CurrentRegion
  ActiveCell.Interior.ColorIndex = tbl.Offset(0, -1).Interior.ColorIndex
End Sub

Virker ikke helt.

Hvis cellen indeholder tekst eller tal, så fjerner den farven i stedet for at give cellen den farve der er til venstre.

Når man markerer flere celler i en række, er det kun den øverste celle der skifter farve. Kan koden ændres så det er hele markeringen der skifter farve.

Det er hvis cellen til venstre indeholder tekst eller tal at det går galt. Ikke når den markerede celle indeholder tekst.

Prøv denne i stedet.
Husk at det er en makro og ikke en funktion, så den kan ikke trækkes over flere områder.

Sub Makro1()
  ActiveCell.Interior.ColorIndex = ActiveCell.Offset(0, -1).Interior.ColorIndex
End Sub

Nu virker det både med og uden indhold i cellen til venstre.

Det er stadig kun den øverst markerede celle der skifter farve.

Hvis ikke det kan fungere med flere celler markeret i samme kolonne, så kan jeg ikke bruge makroen.

her er en der virker over flere celler.

Sub Makro1()
For Each c In Selection
  c.Interior.ColorIndex = c.Offset(0, -1).Interior.ColorIndex
  Next c
End Sub

16:32:52
Hvis ikke det kan fungere med flere celler markeret i samme kolonne, så kan jeg ikke bruge makroen.

det var ikke det du spurgte efter.

kopieret fra dit spørgsmål:

Når jeg markerer en celle, og trykker på knappen ( command button )

Nå men lad gå, ovenstående skulle virke

kabbak ;-)

Beklager min dårlige formulering.
Nu virker det som det skal.
Endnu engang mange tak for hjælpen.