Thema Datum  Von Nutzer Rating
Antwort
06.02.2018 13:34:10 Andreas
Solved
Blau ComboBox (DropDown-Liste) in verknüpfte Zellen einbetten
 06.02.2018 17:29:10 Gast22623
NotSolved

Ansicht des Beitrags:
Von:
Gast22623		 Datum:
06.02.2018 17:29:10		 Views:
468		 Rating:
     
Antwort:
  Ja
Thema:
ComboBox (DropDown-Liste) in verknüpfte Zellen einbetten		 
Sub myMakro_DropDown_customer_Startseite()

Dim objXbox As OLEObject ' Das ist die Auswahlliste für das Auswahlfeld "customer"
Dim varArr As Variant
Dim x As Long
Dim Target As Range

   ' Benennungen im Auswahlfeld der DropDown-Liste
   varArr = Sheets("Tabelle2").Range("B2:B390").Value
   
   ' erstellen einer neuen ComboBox in Zelle H25 bis M25
   'ggf. alte weg
   With Sheets("Tabelle1")
      For Each objXbox In .OLEObjects
         If objXbox.Name = "Part_Combo14" Then objXbox.Delete
      Next objXbox
      ' Anpassen der ComboBox an Zelle H25 bis M25
      Set Target = .Range("H25")
      Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
      
        With objXbox
            .Name = "Part_Combo14"
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.MergeArea.Width
            .Height = Target.Height
            With .Object
               For x = LBound(varArr, 1) To UBound(varArr, 1)
                  If Len(varArr(x, 1)) Then _
                     .AddItem varArr(x, 1)
               Next x
               .ListIndex = 0      ' der erste Eintrag im Auswahlfeld wird nach dem Öffnen der Mappe angezeigt
            End With
            
          With .Object
            .BackColor = "&H" & Hex(Range("J17").Interior.Color)
            .TextAlign = 2
            .Font.Name = "Arial"
            .Font.Size = 15
          End With
          
        End With
        
    End With
    
End Sub

 

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
06.02.2018 13:34:10 Andreas
Solved
Blau ComboBox (DropDown-Liste) in verknüpfte Zellen einbetten
 06.02.2018 17:29:10 Gast22623
NotSolved