Thema Datum  Von Nutzer Rating
Antwort
07.11.2006 12:25:36 fant
NotSolved
07.11.2006 16:00:16 Stef_113
NotSolved
Rot Aw:Aw:Objekte in einer Tabelle ansprechen mit for
07.11.2006 22:26:00 fant
NotSolved

Ansicht des Beitrags:
Von:
fant		 Datum:
07.11.2006 22:26:00		 Views:
965		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Objekte in einer Tabelle ansprechen mit for
das auslesen ist eine eigene funktion und ist für das Problem irrelevant.

dein link war schon sehr gut, nur leider gehts eben so nicht.

hab hier mal eine lösung:

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

MfG



Stef_113 schrieb am 07.11.2006 16:00:16:

Hallo fant,

ich bin anfänger und verstehe diesen code nicht ganz:
-----------------------------------------
auslesen(Tabelle1.HTMLSelect1.Selected, Tabelle1.HTMLSelect1.Values, Tabelle1.HTMLSelect1.DisplayValues) ' was bedeutet auslesen? zumindest kennt mein visualbasic-editor diesen Befehl nicht
-----------------------------------------
aber so wie ich das verstanden habe, willst du ungefähr das was in diesem Artikel steht:
http://www.vba-forum.de/vba_forum/viewbeitrag.aspx?ziel=1702_vba_forum/ VBA Mehrere Steuerelemente aufeinmal ansprechen

Stefan


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.11.2006 12:25:36 fant
NotSolved
07.11.2006 16:00:16 Stef_113
NotSolved
Rot Aw:Aw:Objekte in einer Tabelle ansprechen mit for
07.11.2006 22:26:00 fant
NotSolved