dynamische celopmaak

[HWV]

Beste,

Ik gebruik deze code om de laatst gevulde cel te vinden en dan neem hij een textbox value wat hij dan neerzet.
Dit gaat goed.

Sheets("Offerte").Range("A1000").End(xlUp).Offset(1, 4) = "Totaal : " & ListboxTotal.Value

Enkel wil ik deze cel hij anders uitlijnt, en had ik het volgende maar daar geef hij een foutmelding.

Sheets("Offerte").Range("A1000").End(xlUp).Offset(1, 4).ActiveCell.HorizontalAlignment = xlRight

Wat zet ik hier verkeerd ;-(

Groet Henk

 

[VenA]

.ActiveCell weglaten.

 

[snb]

Ik zou beide regels maar omwisselen.

 

[HWV]

Geweldig

Top dit was hem!
Bedankt weer voor de snelle reactie. :thumb:

Groet Henk