Guten Morgen!
Ich habe ein Problem bei folgender Umsetzung:
Ich habe in der Zelle J19 eine Combobox mit diversen Auswahlmöglichkeiten Nummer 1 bis 8. Die DropDown-Liste funktioniert prima, aber ich hätte gerne zu jeder Auswahl einen kleinen Hilfstext neben der Zelle mit der DropDown-Liste.
Die Hilfstexte sollen in den verbundenen Zellen K19:L19 bei jeder Auswahl erscheinen.
1. Eintrag: " " hier soll kein Hilfstext erscheinen
2. Eintrag: "1" hier soll das Wort "Saft" erscheinen
3. Eintrag: "2" hier "Kuchen"
4. Eintrag: "3" hier "Mürbteig"
5. Eintrag: "4" hier "Mehl"
6. Eintrag: "5" hier "Eier"
7. Eintrag: "6" hier "Butter"
8. Eintrag: "7" hier "Zucker"
9. Eintrag: "8" hier "Honig"
Wie kann ich das in den folgenden Makro-Code einarbeiten?
Sub Makro_DropDown4_Startseite()
Dim objXbox As OLEObject
Dim varArr As Variant
Dim x As Long
' Zelle J19 selektieren
Sheets("- Tabelle1 -").Activate
Sheets("- Tabelle1 -").Range("J19").Select
' erstellen einer neuen ComboBox in Zelle J19
' Benennungen im Auswahlfeld der DropDown-Liste
varArr = Array(" ", "1", "2", "3", "4", "5", "6", "7", "8")
With Sheets("- Tabelle1 -")
' Anpassen der ComboBox an Zelle J19
Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
With objXbox
.Name = "Part_Combo4"
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
With .Object
For x = LBound(varArr) To UBound(varArr)
.AddItem varArr(x)
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
|