Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Hilftext in Zelle neben der DropDown-Liste |
01.02.2018 10:58:39 |
Melissa |
|
|
|
01.02.2018 12:07:18 |
Gast64586 |
|
|
|
01.02.2018 14:07:40 |
Melissa |
|
|
Von:
Melissa |
Datum:
01.02.2018 10:58:39 |
Views:
895 |
Rating:
|
Antwort:
|
Thema:
Hilftext in Zelle neben der DropDown-Liste |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Hilftext in Zelle neben der DropDown-Liste |
01.02.2018 10:58:39 |
Melissa |
|
|
|
01.02.2018 12:07:18 |
Gast64586 |
|
|
|
01.02.2018 14:07:40 |
Melissa |
|
|