Thema Datum  Von Nutzer Rating
Antwort
10.07.2017 14:12:29 Stefan
NotSolved
10.07.2017 14:44:35 Ben
NotSolved
10.07.2017 14:52:12 Ben
NotSolved
10.07.2017 15:32:56 Gast44623
Solved
Rot Combobox auf Tabellenblatt mit Werten füllen
 10.07.2017 18:00:46 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
10.07.2017 18:00:46		 Views:
630		 Rating:
     
Antwort:
  Ja
Thema:
Combobox auf Tabellenblatt mit Werten füllen

Hallo,

mit diesem Code kann man auch gezielt eine ComboBox aus einer Tabelle auslesen, sofern es sich um ein OLE-Control handelt:

Sub Initial()
    Dim wsh As Worksheet
    Dim cbx As ComboBox
    Set wsh = Tabelle1
    Set cbx = getComboBox(wsh, "cb_kotr")
    Stop
    
End Sub

Function getComboBox(wsh As Worksheet, sName As String) As ComboBox
    Dim sh As Shape
    Dim obj As Object
    With wsh
        For Each sh In wsh.Shapes
            If sh.Type = msoOLEControlObject Then
                If sh.Name = sName Then
                    Set obj = sh.OLEFormat.Object.Object
                    If TypeName(obj) = "ComboBox" Then
                        Set getComboBox = obj
                    End If
                End If
            End If
        Next
    End With
End Function

Das Ergebnis ist identisch mit dem Befehl

Set cbx = Tabelle1.cb_kotr

Performanter ist natürlich der Einzeiler.

LG, Ben

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
10.07.2017 14:12:29 Stefan
NotSolved
10.07.2017 14:44:35 Ben
NotSolved
10.07.2017 14:52:12 Ben
NotSolved
10.07.2017 15:32:56 Gast44623
Solved
Rot Combobox auf Tabellenblatt mit Werten füllen
 10.07.2017 18:00:46 Ben
NotSolved