title image


Smiley Re: wage mich mal ran...
hi Klapperstorch,



danke für den tip.



ich habe nun folgendes.





Application.ScreenUpdating = False



row_index = Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row

column_index = Sheets("sheet1").Cells(4, 256).End(xlToLeft).Column





For i = 0 To UBound(UserForm2.list1.List)

test(i) = CStr(UserForm2.list1.List(i))

Next i



Range(Cells(2, 1), Cells(row_index, 1)).EntireRow.Hidden = True



For k = 2 To row_index

For a = 0 To UBound(UserForm2.list1.List)

'For b = 1 To column_index

If Cells(k, 3) = test(a) Then 'selection is found

Rows(k).EntireRow.Hidden = False

End If

Next a

Next k



Application.ScreenUpdating = True





funktioniert schon ziemlich schnell.



jetzt habe ich aber ein anderes problem.



es werden zwar die gegebenen kriterien gefiltert, aber der filter bleibt nicht bestehen. soll heißen wenn ich dann mit dem excel autofilter weiter selectieren möchte wird die auswahl der funktion aufgehoben.



weiß du rat wie der geschriebene filter bestehen bleibt?







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: