Selektion für Kombinationsfeld
Thorsten
wir haben hier ein problem und kommen nicht weiter. Vielleicht weiss jemand von euch rat.
In einem Kombinationsfeld im tabellenblatt 'übersicht' sollen alle Einträge der Spalte D des tabellenblatts 'hilfstabelle' erscheinen.
Die Knackpunkte sind:
1. Die ListFillRange ist variabel (D2:?).
2. In der Spalte D tauchen Eintragungen mehrfach auf. Im Kombinationsfeld soll jede Nennung aber nur einmal erscheinen).
3. Es sollen nur Eintragungen aus Spalte D ins K.feld aufgenommen werden, wo in der Spalte C ein vorgegebenes Kriterium erfüllt ist.
wir haben dazu nachfolgenden code im kombinationsfeld hinterlegt, der uns in abgewandelter form gestern hier im forum zur verfügung gestellt wurde und eigentlich auch toll funktioniert, solange sich alles in einem tabellenblatt abspielt.
Private Sub Kundenbox_GotFocus()
Dim s As Integer
Dim t As Integer
Dim tt As Integer
Dim az As Integer
Dim merk(100)
Dim arr(100)
Kundenbox.Clear
'dies ist das Feld G2, in die die Auswahl aus der Bundeslandbos geschrieben wird
Cells(2, 7) = h
With Worksheets("Hilfstabelle")
tt = -1
For s = 2 To Range("D65536").End(xlUp).Row
If Cells(s, 3) = h Then
az = az + 1
For t = 0 To az
If Cells(s, 4) = arr(t) Then
merk(s) = 1
End If
Next t
If merk(s) = 0 Then
tt = tt + 1
arr(tt) = Cells(s, 4)
End If
End If
Next s
End With
Kundenbox.List = arr
End Sub
Um es anschaulicher zu machen, laden wir euch eine Beispieldatei mit auf den Server.
https://www.herber.de/bbs/user/4569.xls
Bitte, bitte. Hoffentlich fällt jemandem von euch dazu etwas ein.
Gruss
thorsten