Thema Datum  Von Nutzer Rating
Antwort
11.08.2017 09:34:22 Ellen
NotSolved
Blau Combo Box verwenden
 11.08.2017 10:14:54 Gast70117
Solved
11.08.2017 10:44:34 Ellen
NotSolved
11.08.2017 11:46:57 Gast35076
NotSolved
Rot und
 11.08.2017 12:26:40 Gast1401
Solved
11.08.2017 13:02:19 Ellen
NotSolved
15.08.2017 16:15:46 Feng Bo
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
11.08.2017 10:14:54		 Views:
660		 Rating:
     
Antwort:
 Nein
Thema:
Combo Box verwenden

Hi Ellen,

aus der "Schatzkiste"

Option Explicit
Sub TestCombo()
'Zelle wo und Liste was
Call MkCombo1("B2", "Papa,Opa,Tante,Neffe")
'activeX Steuerelement Ereignisse in Tabellen-Class-Module
End Sub
'
'*********************************************************************************
Private Function MkCombo1(myAddi As String, myList As String)
'*********************************************************************************
'Zweck Combobox in aktiver Tabelle
'
Dim oOle As OLEObject
Dim c As Range
Dim vLeft, vTop, vWidth, vHeight
Dim arrModN() As String, i As Integer

Dim Sh As Worksheet: Set Sh = ThisWorkbook.ActiveSheet
Dim blnScUp As Boolean: blnScUp = Application.ScreenUpdating

   If blnScUp Then Application.ScreenUpdating = False
   
   arrModN = Split(myList, ",")
      
   With Sh
      With .Range(myAddi)
         vLeft = .Left
         vTop = .Top
         'diese Werte individuell
         vWidth = .Width * 2
         vHeight = .Height * 1.3
      End With
      Set oOle = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
      With oOle
         .Left = vLeft
         .Top = vTop
         .Width = vWidth
         .Height = vHeight
         With .Object
            'diese Werte individuell
            '.ColumnCount = 2
            '.BoundColumn = 2
            '.ColumnWidths = "0;60"
            'die Liste
            .List = arrModN
         End With
      End With
   End With
   
   Application.ScreenUpdating = blnScUp

End Function

LG

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
11.08.2017 09:34:22 Ellen
NotSolved
Blau Combo Box verwenden
 11.08.2017 10:14:54 Gast70117
Solved
11.08.2017 10:44:34 Ellen
NotSolved
11.08.2017 11:46:57 Gast35076
NotSolved
Rot und
 11.08.2017 12:26:40 Gast1401
Solved
11.08.2017 13:02:19 Ellen
NotSolved
15.08.2017 16:15:46 Feng Bo
NotSolved