Mit unten stehendem Code wurden in einer UserForm in eine ListBox Werte eingelesen:
Stand in dere Spalte H ein Wert und war in der gleichen Zeile in der Spalte AG kein Wert vorhanden, wurde der Wert von H in die Listbox eingelesen.
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
OptionButton1 = False
Dim Bereich2 As Range
Dim rng1 As Range
ListBox4.Clear
With Sheets("Tabelle1")
Set Bereich2 = .Range("H2:H" & .Range("H65536").End(xlUp).Row)
End With
For Each rng1 In Bereich2
If rng1.Offset(0, 25) = "" Then
' ListBox4.AddItem ComboBox2
ListBox4.List(ListBox4.ListCount - 1) = rng1
End If
Next 'rng
ListBox4.ListIndex = 0
Weiter:
'MsgBox "Keine neuen Pos.Nr.vorhanden"
Exit Sub
End If
End Sub
Ich möchte das ganze jetzt in eine Symbolleiste in ein Control (msoControlDropdown) reinbringen.
Wie würde bitte hier eine VBA lösung lauten?
Danke
Josef