Thema Datum  Von Nutzer Rating
Antwort
Rot VBA
 27.06.2019 16:14:42 Stefan
NotSolved
Blau VBA
 27.06.2019 16:16:27 Stefan
NotSolved
Rot VBA
 27.06.2019 17:19:49 Gast48014
NotSolved
28.06.2019 08:44:19 Stefan
NotSolved
28.06.2019 11:29:18 Gast48014
Solved

Ansicht des Beitrags:
Von:
Gast48014		 Datum:
27.06.2019 17:19:49		 Views:
473		 Rating:
     
Antwort:
  Ja
Thema:
VBA

Hm.......
ersetze ich TextBox3 zum Bleistift durch ComboBox3
benötige ich im Userform Ini
für die (leere) Combo die Zuweisung der möglichen Unikate aus
der Spalte für z.B. Quartier

Sub Combo3Dupls()
Dim varMyArr  As Variant
Dim rngSource As Range, x As Long
'
  With Sheets("Supply")
'
   Set rngSource = .ListObjects(1).DataBodyRange.Columns(3)
   varMyArr = GetDistinct(rngSource)
   For x = LBound(varMyArr) To UBound(varMyArr)
      Debug.Print varMyArr(x)
      'ander Stelle kannst du die Combo add(en)
   Next x
  End With
End Sub



Function GetDistinct(ByVal oTarget As Range) As Variant
'posted by Craig Hatmaker
Dim varArray As Variant
Dim objMyDic As Object
Dim V        As Variant
'
  Set objMyDic = CreateObject("Scripting.Dictionary")
  varArray = oTarget
  For Each V In varArray
    objMyDic(V) = V
  Next
  GetDistinct = objMyDic.Items()
End Function

 

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
Rot VBA
 27.06.2019 16:14:42 Stefan
NotSolved
Blau VBA
 27.06.2019 16:16:27 Stefan
NotSolved
Rot VBA
 27.06.2019 17:19:49 Gast48014
NotSolved
28.06.2019 08:44:19 Stefan
NotSolved
28.06.2019 11:29:18 Gast48014
Solved