@kabbak...
Det første bud med at jeg skal bruge CommandButton fra visual basic og ikke dem fra formularer, kan jeg ikke finde ud af. Du må evt. godt lære mig hvordan jeg indsætter sådan en CommandButton direkte i et sheet.
Jeg klarede et dog med lidt tilretning af din metode, for det kan åbenbart også bruges på knapperne fra formularer, da de også besidder egenskaberne Left og Top:
' først en lille procedure hvor jeg rettede knappens navn til et mere sigende navn. Jeg kunne ikke finde andre måder at ændre knappens navn på, end at afvikle denne VBA. Findes der andre måder?
Sub ReNameButton()
Sheets("MitSkema").Select
ActiveSheet.Shapes.Range(Array("Button 13")).Name = "Kvitteringsknap"
End Sub
Når det så er gjort (én gang for alle), kan jeg bruge nedenstående i min Kvitterings-procedure:
Sheets("MitSkema").Select
Xpos = ActiveSheet.Shapes.Range(Array("Kvitteringsknap")).Left * 20 ' måske kan der være behov for justering, prøv at rette de 20
Ypos = ActiveSheet.Shapes.Range(Array("Kvitteringsknap")).Top * 25 ' måske kan der være behov for justering, prøv at rette de 25
UserInit = UCase(InputBox("Dine Initialer", "Indtast selv...", , Xpos, Ypos))
Smart løsning med at trække det fra Left og Top, og så gange med hhv 20 og 25. Det virker bare, og det var ikke nødvendigt at justere yderligere på værdierne.
Smid lige et svar, så er der lidt points til dig.
