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

For - Next - Schleife

Forumthread: For - Next - Schleife

For - Next - Schleife
13.06.2002 11:28:30
Matthias S.
Hallo allerseits,

wie kann ich den folgenden Programmcode mit einer For - Next - Schleife abbilden?

TextBox1.Top = ComboBox1.Top + ActiveSheet.[rgt1].Height
TextBox2.Top = ComboBox1.Top + ActiveSheet.[rgt2].Height
TextBox3.Top = ComboBox1.Top + ActiveSheet.[rgt3].Height
TextBox4.Top = ComboBox1.Top + ActiveSheet.[rgt4].Height
TextBox5.Top = ComboBox1.Top + ActiveSheet.[rgt5].Height
TextBox6.Top = ComboBox1.Top + ActiveSheet.[rgt6].Height
.
.
.
TextBox100.Top = ComboBox1.Top + ActiveSheet.[rgt100].Height´

Vielen Dank für Eure Hilfe!

Gruß,

Matthias

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: For - Next - Schleife
13.06.2002 13:01:46
Rainer
Lieber Matthias!

Ich nehme an, dass die Textboxen und die Combobox in einem Userform stehen. Was steht aber in [rgt1] usw. ?

Lieben Gruß
Rainer

Re: For - Next - Schleife
13.06.2002 14:04:11
Matthias S.
Lieber Rainer,

die Textboxen befinden sich direkt auf einem wksht. [rgt1] usw. stellen benannte Ranges auf diesem sheet dar. Habe für mein Problem zwischenzeitlich eine Lsg. gefunden. Läuft zwar, ist allerdings bestimmt nicht die eleganteste:

Sub set_top()

Dim i As Integer
Dim a As String
Dim b As String

For i = 1 To 100

a = Replace("TextBox" & str(i), " ", "")
b = Replace("rgt" & str(i), " ", "")

Tabelle1.Shapes(a).Top = Tabelle1.ComboBox1.Top + Sheets(1).Range(b).Height

Next i

End Sub

Hast Du noch eine andere Idee?

Gruß,

Matthias

Anzeige
Re: For - Next - Schleife
13.06.2002 15:27:58
Rainer
Lieber Matthias!

Man könnte auf die Variablen a und b verzichten:

Lieben Gruß
Rainer

Re: For - Next - Schleife
13.06.2002 16:21:06
Matthias S.
Hallo Rainer,

vielen Dank und vielleicht bis demnächst!

Gruß,

Matthias

;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige