AW: Schriftgröße in Gültigkeitsbereich
02.01.2010 11:57:22
Beverly
Hi Heinz,
mir scheint, du hast den Code nicht einmal getestet - die ComboBox wird nur temporär erstellt, denn wenn sie verlassen wird, wird sie wieder gelöscht (hatte ich in meinem vorhergehenden Beitrag schon geschrieben!).
Wenn es mehrere Zellen betriff, dann den gesamten Code wie folgt ändern
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ooElement As OLEObject
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L6:L35")) Is Nothing Then
Set ooElement = OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Left:=0, Top:=0, Width:=0, Height:=0)
With ooElement
.Top = Target.Top
.Left = Target.Left
.Width = Range(Target, Target.Offset(1, 2)).Width
.Height = Range(Target, Target.Offset(1, 2)).Height
.ListFillRange = "$L$54:$L$58"
.LinkedCell = ""
.Activate
.Object.Font.Size = 12
.Object.DropDown
.Object.ListIndex = 0
End With
End If
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Change()
Range(ComboBox1.TopLeftCell.Address) = ComboBox1
ActiveSheet.OLEObjects(1).Delete
End Sub
Lösche vorher alle Daten Gültigkeit DropDowns in L6:L35.