Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife

Schleife
23.11.2002 19:06:32
Bernd
Hallo,

ich habe mit dem makrorecorder folgenden code aufgenommen:

Sub button_plazieren()
Range("H1").Select
ActiveSheet.Shapes("Button 2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=31
Range("H32").Select
ActiveSheet.Buttons.Add(381, 8.25, 117.75, 21.75).Select
ActiveSheet.Paste
End Sub

nun möchte ich das der button, der von h1 nach h32 kopiert wurde, 20x 31zeilen tiefer kopiert wird. also der nächste button ist dann in h63, h94, h125 usw. kann mir da einer helfen? vielen dank im voraus

Gruss Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schleife
23.11.2002 19:19:24
M. Kuhn
Moin Bernd,

für den Selection.Copy - Befehl die Destination angeben:

Selection.Copy(Range(xx))

In einer Schleife dazu den Offset bilden (For i = 1 to 640 Step 31)

MfG Mario

Re: Schleife
23.11.2002 19:31:25
Bernd
Hallo Mario,
könntest du mir bitte mit den vollständigen code auf die sprünge helfen. danke

MfG Bernd

Re: Schleife
23.11.2002 19:53:49
M. Kuhn
Moin Bernd,

bittesehr:

Sub button_kopieren()

Dim i As Integer

ActiveSheet.Shapes("CommandButton1").Select ' muss existieren und so heißen
Selection.Copy ' in die ZA
For i = 31 To 640 Step 31 ' evtl. anpassen
ActiveSheet.Cells(i, 8).Select ' Spalte H
ActiveSheet.Paste ' einfügen
Next i

End Sub

Falls noch Änderungen erwünscht - posten. MfG Mario

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige