Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

wie verpack ichs in eine Schleife

Forumthread: wie verpack ichs in eine Schleife

wie verpack ichs in eine Schleife
Eugen
guten morgen forum
wie verpackt man untenstehenden code in eine schleife?
CommandButton1.Caption = Worksheets("AppLngIo").Range("O10").Value
CommandButton2.Caption = Worksheets("AppLngIo").Range("O11").Value
CommandButton3.Caption = Worksheets("AppLngIo").Range("O12").Value
CommandButton4.Caption = Worksheets("AppLngIo").Range("O13").Value
CommandButton5.Caption = Worksheets("AppLngIo").Range("O14").Value
CommandButton6.Caption = Worksheets("AppLngIo").Range("O15").Value
CommandButton7.Caption = Worksheets("AppLngIo").Range("O16").Value
CommandButton8.Caption = Worksheets("AppLngIo").Range("O17").Value
CommandButton9.Caption = Worksheets("AppLngIo").Range("O18").Value
herzlichen dank
eugenS
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: wie verpack ichs in eine Schleife
Nepumuk
Morgen Eugen,
so z.B.:
Option Explicit Private Sub UserForm_Activate() Dim bytIndex As Byte For bytIndex = 1 To 9 Me.Controls("CommandButton" & CStr(bytIndex)).Caption = Worksheets("AppLngIo").Cells(9 + bytIndex, 15).Value Next End Sub
Gruß
Nepumuk
Anzeige
Danke
eugenS
Hallo Nepomuk
heller wahnsinn, danke.
wünsche dir einen schönen tag
eugenS

Forumthreads zu verwandten Themen

Anzeige
Anzeige