Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Objekte in einer Tabelle ansprechen mit for each

Objekte in einer Tabelle ansprechen mit for each
07.11.2006 12:06:19
Thomas
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

		

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Objekte in einer Tabelle ansprechen mit for each
07.11.2006 22:24:18
fant
hab eine lösung gefunden:

Sub test()
Dim wksA As Worksheet
Dim wksB As Worksheet
Dim shpA As Shape
Dim lngZeile As Long
Set wksA = ThisWorkbook.Worksheets("Tabelle3") 'Quelle Sheet Set wksB = ThisWorkbook.Worksheets("Tabelle2") 'Ziel Sheet
For Each shpA In wksA.Shapes
If shpA.Type = 12 Then   'msoOLEControlObject = 12
If shpA.OLEFormat.progID Like "*HTML?Select*" Then
lngZeile = wksB.Cells(65536, 1).End(xlUp).Row + 1
wksB.Cells(lngZeile, 1).Value = shpA.OLEFormat.progID
wksB.Cells(lngZeile, 2).Value = shpA.OLEFormat.Object.Name
wksB.Cells(lngZeile, 3).Value = shpA.OLEFormat.Object.Object.Values
End If
End If
Next
End Sub

Anzeige
zu
10.11.2006 23:37:18
zu
zu

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige