ComboBox - Steuerelemente!

Bei Eingabe in Spalte A wird automatisch eine ComboBox aus Steuerelemente (ActiveX) in Spalte K erstellt. Code gehört in den Codebereich des Tabellenblattes.

ComboBox - Steuerelemente...

Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objBox As OLEObject
Dim blnTMP As Boolean
Dim shpBox As Shape
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
For Each shpBox In ActiveSheet.Shapes
If shpBox.TopLeftCell.Cells.Row = Target.Row Then
blnTMP = True
End If
Next shpBox
If Not blnTMP = True Then
Set objBox = ActiveSheet.OLEObjects.Add(ClassType:= _
"Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=Target.Offset(0, 10).Left, _
Top:=Target.Offset(0, 10).Top, _
Width:=72, Height:=18)
End If
blnTMP = False
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...