Office: Einfügebefehl mehrmals wiederholen

Hallo, ich gebe bei einer Makroaufzeichnung einen langen Bindestrich (Alt+0151) ein, kopiere und füge ihn 30 x ein (Selection.Copy – Selection.Paste)
Kann ich den Einfügebefehl aus Gründen der Übersichtlichkeit mit einem Wert versehen, wie oft er ausgeführt werden soll, also quasi Selection.Paste 30x oder gibt es einen anderen hilfreichen Tipp?

 

Hallo Günther,

wenn du die Striche direkt aufeinanderfolgend einfügen willst, dann so:

Code:

Sub xmal()
Dim i As Long
    For i = 1 To 30
        Selection.InsertAfter Chr(151)
    Next i
End Sub

Dazu musst du den ersten Strich gar nicht kopieren.
Je nachdem, was der Zweck des Vorhabens ist, geht das vielleicht auch anders.

 

Hallo Gerhard,
vielen Dank, gleich getestet, perfekt

 

oder ganz ohne Schleife:

Code:

dim strBuffer as String
strBuffer = String(30,chr(151))
Selection.InsertAfter strBuffer