Caption aus 2 For Next Schleifen

Forumthread: Caption aus 2 For Next Schleifen

21.01.2003 22:33:46

H:- Udo

Hallo,

es sollen die "OptionButton(11 bis 20).Caption" mit aus dem Ergebnis zweier Variablen beschrieben werden.
Bei meinem bisherigen Code(Versuch) füllen sich die Caption´s immer nur mit einer Variablen.
Mein Code:

For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
UserForm3.Controls("OptionButton" & CStr(s)).Caption = Cells(LoD, 3).Value
Next s
End If
Next LoD

Ich bin für jeden Tipp dankbar.
Gruß
H.- Udo

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

kompl. Code zum besseren Verständnis

21.01.2003 22:36:37

H.- Udo
versteh nicht, warum

21.01.2003 23:11:52

L.Vira
Re: versteh nicht, warum

21.01.2003 23:38:03

H.- Udo
Re: versteh nicht, warum

21.01.2003 23:49:44

L.Vira
Re: versteh nicht, warum

21.01.2003 23:55:26

H.- Udo

kompl. Code zum besseren Verständnis

21.01.2003 22:36:37

H.- Udo

Zum besseren Verständnis hab ich Euch hier meinen kompletten Code kopiert.

Private Sub OptionButton1_Click()
Dim Suchwort As String
Dim Suchwort2 As String
Dim i, i2, i3, LoD As Long
Suchwort = OptionButton1.Caption

For i = 1 To 1000
If Cells(i, 2).Value = Suchwort Then Exit For
Next i

For i2 = i To 1000
If Cells(i, 11).Value = OptionButton1.Caption Then
i2 = i2 + 1
Suchwort2 = Cells(i2, 11).Value
Exit For
End If
Next i2

For i3 = i To 1000
If Cells(i3, 2).Value = Suchwort2 Then Exit For
Next i3
With Worksheets("Werte")

For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
UserForm3.Controls("OptionButton" & CStr(s)).Caption = Cells(LoD, 3).Value
Next s
End If
Next LoD
End With

ComboBox1.Visible = True

For t = 1 To 10
UserForm3.Controls("OptionButton" & CStr(t)).Visible = False
Next t
For u = 11 To 20
UserForm3.Controls("OptionButton" & CStr(u)).Visible = True
Next u
End Sub

Gruß
H.- Udo

versteh nicht, warum

21.01.2003 23:11:52

L.Vira

er gar nicht meckert, der Punkt vor cells gehört da nicht hin:
For LoD = i To i3
If .Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
Me.Controls("OptionButton" & s).Caption = Cells(LoD, 3)
Next s
End If
Next LoD
Noch ein wenig gestrafft.

Re: versteh nicht, warum

21.01.2003 23:38:03

H.- Udo

Hallo,

leider bleibt dein Code stehen (ohne jede weitere reaktion oder Fehlermeldung).

Nach ablauf meines Code´s müssten 2 verschiedene OptionButton.Caption gefüllt werden.
Doch wie ich es auch mache, werden alle 10 (11 bis 20) Caption´s mit ein und dem selben Wert gefüllt.

Gruß
H.- Udo

Re: versteh nicht, warum

21.01.2003 23:49:44

L.Vira

Hast du den Punkt vor Cells entfernt, der ist dort falsch!
For LoD = i To i3
If Cells(LoD, 3).Interior.ColorIndex = 41 Then
For s = 11 To 20
Me.Controls("OptionButton" & s).Caption = Cells(LoD, 3)
Next s
End If
Next LoD

Re: versteh nicht, warum

21.01.2003 23:55:26

H.- Udo

Hallo,

ja natürlch. (grins)
Nun funktioniert Dein Code genauso wie meiner.

OptionButton11.Caption = Mauer
OptionButton12.Caption = Mauer
OptionButton13.Caption = Mauer
....
OptionButton20.Caption = Mauer

Es sollte aber so aussehen:
OptionButton11.Caption = Mauer
OptionButton12.Caption = Estrich
OptionButton11.Caption = ""
....
OptionButton20.Caption = ""

Gruß
H.- Udo

Beliebteste Forumthreads (12 Monate)

Forumthread: Caption aus 2 For Next Schleifen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread