Filtern ohne Select
27.09.2018 11:24:05
Peter
ich habe eine umfangreiche UF.
Mit Auswahl Combobox und damit füllen von Label19 wird die Combobox4 gefüllt.
Hierzu benutze ich den nachstehenden Code:
Option Explicit
'Page1 Anfang Auswahl Vorgang2
Sub Vorgang2_Combobox4()
Dim letzte As Long
Dim Wert As String
Dim lngZeile As Long
'Wert = "Zweck"
Wert = UF_Buchung.Label19
Sheets("Hilfstabelle2").Select
With ThisWorkbook.Sheets("Hilfstabelle2")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Range("A1:B" & letzte).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B" & letzte).AutoFilter Field:=2, Criteria1:=Wert
With UF_Buchung.ComboBox4
.Clear
.ColumnCount = 2 'zweite Spalte in Listbox einrichten
.ColumnWidths = "3cm;0" 'Spaltenbreite der zweiten Spalte auf 0
.ColumnHeads = False
' .AddItem "" 'leere erste Zeile in Liste
.AddItem "" 'leere erste Zeile in Liste nicht wählbar
For lngZeile = 2 To Sheets("Hilfstabelle2").Cells(Rows.Count, 1).End(xlUp).Row 'beginnt in _
der 2. Zeile
If Not Rows(lngZeile).Hidden Then
.AddItem Cells(lngZeile, 1)
.List(.ListCount - 1, 1) = lngZeile 'Zeilennummer in die zweite Spalte schreiben
End If
Next
.ListIndex = 0
End With
End With
'End If
End Sub
'Page1 Ende Auswahl Vorgang2
Dieser Code funktioniert einwandfrei.
Da ich jedoch in diesem Forum mitbekommen habe, dass man Select und Activate bestmöglich vermeiden soll, wäre ich euch dankbar, wenn ihr mir den Code so ändert, dass keine Select erforderlich wird.
Besten Dank für eure Hilfe.
Gruss
Peter