Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige