For - Next - Schleife

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: For - Next - Schleife
von: Matthias S.
Geschrieben am: 13.06.2002 - 11:28:30

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


nach oben   nach unten

Re: For - Next - Schleife
von: Rainer
Geschrieben am: 13.06.2002 - 13:01:46

Lieber Matthias!

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

Lieben Gruß
Rainer


nach oben   nach unten

Re: For - Next - Schleife
von: Matthias S.
Geschrieben am: 13.06.2002 - 14:04:11

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

nach oben   nach unten

Re: For - Next - Schleife
von: Rainer
Geschrieben am: 13.06.2002 - 15:27:58

Lieber Matthias!

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


Private Sub CommandButton1_Click()
Dim As Integer
    For i = 1 To 100
        With Sheets(1)
            .Shapes("TextBox" & i).Top = .ComboBox1.Top + .Range("rng" & i).Height
        End With
    Next i
End Sub

Lieben Gruß
Rainer

nach oben   nach unten

Re: For - Next - Schleife
von: Matthias S.
Geschrieben am: 13.06.2002 - 16:21:06

Hallo Rainer,

vielen Dank und vielleicht bis demnächst!

Gruß,

Matthias


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "For - Next - Schleife"