suche eine Lösung für DropDown / CombiBox für 2 Spalten.
Erste spalte mit Werten (Preise) 2 Spalte nur Info Text.
Spalte A Spalte B
1,10 Apfel
2,10 Birnen
3,23 Zitronen
Nur die Spalte A soll stehen bleiben zum weiterberechnen. Die Spalte B ist nur zur Information da.
Wäre klasse wenn die Tabelle auch Dynamische sein kann,.
Habe was ähnliches gefunden in diesem Forum VBA Beispiel 45312 => Da gibt es drei Optionen, aber bei er Liste komme ich nicht weiter . Mehr wie 3 Zeilen nimmt dieser Code nicht. Option A ; Option B und Option C ==> Leider verstehe ich den VBA Code nicht , wie er auf diese zugreift und ich diese Zeilen verlängern kann (dynamisch)
Hier anbei der VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Check As Boolean
If Target.Cells.Count > 1 Then
Check = False
Else
Check = Not Intersect(Target, Range("A1:A100")) Is Nothing
End If
With ComboBox1
Select Case Check
Case False
.Visible = False
Case True
.Visible = True
.Top = Target.Top - 1
.Left = Target.Left
.Height = WorksheetFunction.Max(Target.Height + 4, 18)
.LinkedCell = Target.Address
.Activate
End Select
End With
End Sub