Hallo,
habe folgendes Problem.
Möchte sämtliche Objekte in einer Tabelle ansprechen. Dies sollte ja normalerweise mit einer For Each Schleife gehen.
Jedoch ist in folgendem Code noch ein Fehler:
---------------------------------------------- CODE Anfang-------------------------------------------
Public Sub umwandeln()
Dim objekt_select As HTMLSelect
Dim objekt_text As HTMLText
Dim x As Integer
x = 2
'For Each objekt_select In HTMLSelect
Tabelle1.Cells(x, 3) = auslesen(Tabelle1.HTMLSelect1.Selected, Tabelle1.HTMLSelect1.Values, Tabelle1.HTMLSelect1.DisplayValues)
Tabelle1.Cells(x, 5) = auslesen2(Tabelle1.HTMLSelect2.Selected, Tabelle1.HTMLSelect2.DisplayValues)
x = x + 1
Tabelle1.HTMLSelect1.Visible = False
Tabelle1.HTMLSelect2.Visible = False
'Next
x = 2
'For Each objekt_text In HTMLText
Tabelle1.Cells(x, 4) = Tabelle1.HTMLText1.Value
Tabelle1.Cells(x, 6) = Tabelle1.HTMLText2.Value
x = x + 1
Tabelle1.HTMLText1.Visible = False
Tabelle1.HTMLText2.Visible = False
'Next
End Sub
---------------------------------------------- CODE Ende-------------------------------------------
Vielleicht kann mir jemand von euch helfen?
MfG
Thomas |