Grösse Dropdown-Liste Datenüberprr

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A2:A99")) Is Nothing Then ComboBox1.Visible = False Else ComboBox1.Top = Target.Top - 1 ComboBox1.Left = Target.Left ComboBox1.Width = Target(1).Width + 15 ComboBox1.Height = Target(1).Height + 4 ComboBox1.LinkedCell = Target(1).Address ComboBox1.Visible = True End If End Sub

Der Code hat leider nicht funktioniert. Ich habe nun einen Weg gefunden, welcher auch für VBA Afänger taugt. In einem Forum fand ich den folgenden VBA Code. Mit diesem können Comboxes eingefügt werden, welche den Wert "LinkedCell" schon wunderschön ansteuern. Für alle Anfänger - wie ich einer bin - habe ich unten in Grossbuchstaben Anmerkungen hinzugefügt:


Sub AddComboBox()
Dim oObj As OLEObject
Dim oCBox As MSForms.ComboBox
Dim lloRow As Long, oCMB As OLEObject, liCount As Integer
Dim liStartRow As Integer, liEndRow As Integer
liStartRow = 2 'in welcher Zeile beginnt das Einfügen von Comboboxen
liEndRow = 100  'wieviele Zeilen sollen hinzugefügt werden
'es wird geprüft, ob "alte" Comboboxen vorhanden sind   DIESER GANZE ABSCHNITT KANN NATÜRLICH GELÖSCHT WERDEN
For Each oCMB In ActiveSheet.OLEObjects
If Left(oCMB.Name, 8) = "ComboBox" Then
liCount = liCount + 1
End If
Next
'wenn es alte Comboboxen gibt...
If liCount > 0 Then
'...werden diese gelöscht
For lloRow = liStartRow To liEndRow
ActiveSheet.OLEObjects("ComboBox" & lloRow).Delete
Range("AC" & lloRow).Value = ""
Next
End If
'beginnend bei liStartRow und endend bei liEndRow werden so viele Comboboxen hinzugefügt wie gewünscht
For lloRow = liStartRow To liEndRow
With Range("AB" & lloRow)
.RowHeight = 20
Set oObj = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayasIcon:=False, _
Left:=.Left, _
Top:=.Top, _
Width:=.Width, _
Height:=.Height)
oObj.ListFillRange = "Artikel"  DIESER RANGE WIRD ALS NAMEN IN EINEM ZWEITEN TABELLENBLATT DEFINIERT
Set oCBox = oObj.Object
oCBox.ColumnCount = 2
oCBox.LinkedCell = .Offset(0, 1).Address
oCBox.ListIndex = 0
oCBox.ListRows = 50  DIESES FELD HABE ICH HINZUGEFÜGT, DIES FUNKTIONIERT MIT ALLEN FELDERN DER EIGENSCHAFTEN DER BOX
oCBox.BoundColumn = 2
oCBox.ColumnWidths = "200 Pt;49,95 Pt"
oCBox.Name = "ComboBox" & lloRow
End With
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Grösse Dropdown-Liste Datenüberprr

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Grösse Dropdown-Liste Datenüberprr

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread