Thema Datum  Von Nutzer Rating
Antwort
15.09.2016 07:45:51 Henrieke
Solved
Blau Combobox Word - Keine doppelten Einträge
 15.09.2016 08:47:53 Crazy Tom
NotSolved
15.09.2016 08:55:37 Henrieke
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
15.09.2016 08:47:53		 Views:
608		 Rating:
     
Antwort:
  Ja
Thema:
Combobox Word - Keine doppelten Einträge

Hallo

das geht im Normalfall mit  Scripting Dictionary
 

ungetestet

Private Sub Document_Open()
    Dim xlApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim objDic As Object
    Dim lngIndx As Long
    Set xlApp = New Excel.Application
    Set wb = xlApp.Workbooks.Open(Filename:="D:\Eigene Dateien\Documente\Datei.xlsx")
    Set ws = wb.Worksheets(1)
    Me.ComboBox1.Clear
    Set objDic = CreateObject("SCRIPTING.DICTIONARY")
    With ws
        For lngIndx = 1 To 30
            objDic(.Cells(lngIndx, 1).Value) = 0
        Next
    End With
    ComboBox1.List = objDic.keys
    Me.ComboBox1.ListIndex = 0
    wb.Close
    ' Excel schließen
    xlApp.Quit
    Set xlApp = Nothing
End Sub

MfG Tom

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
15.09.2016 07:45:51 Henrieke
Solved
Blau Combobox Word - Keine doppelten Einträge
 15.09.2016 08:47:53 Crazy Tom
NotSolved
15.09.2016 08:55:37 Henrieke
NotSolved