title image


Smiley Re: kleines makro für ...
Hi,



Sub til()

With Columns(1)

.AutoFilter

.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd, _

Criteria2:="<1000"

.SpecialCells(xlCellTypeVisible).Copy Sheets("Tabelle2").[a1]

End With

End Sub



mfg xla

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: