Code verbessern
26.10.2017 19:32:46
WalterK
In einer importierten Tabelle mit ca. 10000 Zeilen und 60 Spalten sind auch sehr viele Zellen mit . oder - oder -- oder --- befüllt.
Mit dem folgenden Code leere ich diese Zellen:
On Error Resume Next
For i = 1 To LCol1
wkssas.Range(wkssas.Cells(1, 1), wkssas.Cells(LzA, LCol1)).AutoFilter Field:=i, _
Criteria1:=Array(".", "-", "--", "---"), Operator:=xlFilterValues
wkssas.Range(wkssas.Cells(2, i), wkssas.Cells(LzA, i)).SpecialCells(xlVisible). _
ClearContents
wkssas.AutoFilter.ShowAllData
Next i
Bei der Größe der Tabelle dauert es allerdings einige Zeit.Geht das auch schneller, hat jemand eine Idee.
Danke und Servus, Walter