left padding (with given character)

Hi Folks

For each cell in a selection I would want the following executed:
set the cell format to 'text'
select the needed length of the cell by InputBox [=Var1]
select the character to use for padding by inputbox [=Var2]
left pad the cells according to the above input.

Any help very much appreciated.

Grtz
A

Have a look if the code below gives you what you need

Please Login or Register  to view this content.

Just to point out in case you dont know...
You also have several options without VBA please read this link to see how you can fill out a cell with a function or with (custom) cell formatting
https://www.extendoffice.com/documen...r-in-cell.html

Hi Roel

Thanks for your answer and code.
My question was not so clear, sorry.

Var1 = is the desired length of the string in the cells, not the number of repeats

eg.
Var1 = 9
Var2 = a

Then eg.
12526 ==> aaa12526
526 ==> aaaaaaa526
12526000 ==> a12526000
125265626 ==> 125265626

Thx for your effort/feedback.
i kind of like macroes, since they do the job quite quickly...

Grtz
A

Try

Please Login or Register  to view this content.

Hi Nigelog
Thx for your feedback.
That does the trick when one cell is selected; when a range selected marco halts at
Content = Selection.Text

Ok, lets try with this code then..

Please Login or Register  to view this content.

Hi Roel

That does the trick!
Thx very much, you made my day.

Thx for the other suggestions; quite learned from it as well

Grtz
A