Lav knap i excel som indsætter text i markeret celle

Lav en knap , og sæt denne kode på knappen

    ActiveCell.FormulaR1C1 = "8:30 - 16:30"

Gentag for knap nummer 2 men med det andet tidsrum.

Hej Jan

Tak for hjælpen!

Lige en sidste ting, hvad hvis jeg gerne vil have 3 knapper som laver de her celler
Altså en knap som laver 2 celler og skriver 8:30 i den ene og 16:30 i den anden.
Og hvordan kan jeg give den farver ?

https://drive.google.com/open?id=15p6XORPRdhLuUPcq5HV5ccgijWZ5yS-8

Hvis en knap skal indsætte tekst i to celler, skal de så altid stå som vist i dit eksempel, altså lige ved siden af hinanden?

Hej Jan

Ja de 3 tider jeg har vist i det vedhæftet billedet, er hvad jeg gerne vil lave 3 knapper til

I givet fald kan du ændre koden på knappen til

ActiveCell.FormulaR1C1 = "8:30"
ActiveCell.Offset(0, 1).FormulaR1C1 = "17:00"

Skal du også have farve på de to celler, kan du bruge dette:

With ActiveCell
    .FormulaR1C1 = "8:30"
    .Offset(0, 1).FormulaR1C1 = "17:00"
    .Interior.Color = 49407
    .Offset(0, 1).Interior.Color = 49407
End With

Du kan selv kopiere koden til hver knap og rette til med tidspunkter og farve.

Hej Jan
TUSIND TAK for hjælpen, ikke nok med at jeg fik det til at virke så lærte jeg faktisk også rigtig meget! også at excel bruger farve kode decimal og ikke HSL eller RGB :D

For lettere læsning ville jeg rette: FormulaR1C1 til Value.
FormulaR1C1 bruges til formler


ActiveCell.Value = "8:30"
ActiveCell.Interior.Color = 49407
ActiveCell.Offset(0, 1).Value = "17:00"
ActiveCell.Offset(0, 1).Interior.Color = 49407

Eller:

With ActiveCell
    .Value = "8:30"
    .Interior.Color = 49407
    .Offset(0, 1).Value = "17:00"
    .Offset(0, 1).Interior.Color = 49407
End With

Celle farve kan også sættes med et nr:

ActiveCell.Interior.ColorIndex = 46