Ich sehe leider nirgends in meinem Code eine Zeile, wo dieser auf das Klicken auf die ListBox reagiert.
Private Sub UserForm_Initialize()
Dim sngTop As Single, sngLeft As Single
Me.StartUpPosition = 0
sngLeft = Application.Left + Application.Width / 2 - Me.Width / 2
sngTop = Application.Top + Application.Height / 2 - Me.Height / 2
Me.Left = sngLeft
Me.Top = sngTop
Box_Auswahl_Standort.RowSource = "Anlagen!D1: D100"
ListBox1.ColumnCount = 10
ListBox1.RowSource = "Anlagen!A:D"
End Sub
Private Sub Box_Auswahl_Standort_Change()
Application.ScreenUpdating = False
Dim loLetzte As Long
Dim Filtername As String
Filtername = Box_Auswahl_Standort.Value
With Anlagen
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
With Anlagen.Range("A1:D" & loLetzte)
.AutoFilter Field:=4 _
, Criteria1:=Array(Filtername), Operator:=xlFilterValues
End With
ListBox1.RowSource = "Anlagen_Filter!A:D"
Application.ScreenUpdating = True
End Sub
Ich habe in meiner UserForm bis jetzt nur zwei Elemente. Ein Kombinationsfeld und ein Listenfeld. Wenn ich die UserForm starte lege ich die RowSource für mein Kombinationsfeld fest. Wenn ich nun in meinem Kombinationsfeld einen neuen Wert auswähle startet mein Code. Wo genau soll denn nun mein Code beim Klicken auf die ListBox reagieren ?
Die Zeilen "Application.ScreenUpdating" machen derzeitig, wie du bereits geschrieben hast keinen Sinn. Habe die Zeilen einfach nur schon einmal eingebaut, da ich diese meist vergesse. Bin ja auch noch nicht mit meinem Code fertig.
|