Alle Werte in gefilterter Tabelle löschen
27.04.2018 18:07:06
Kailash
Habe eine intelligente Tabelle, die mit dem Autofilter gefiltert ist.
Nun möchte ich ALLE Werte in der ersten Spalte löschen, nicht nur die sichtbaren Werte.
Wie macht man das?
Selber weiss ich nur mit ner Schleife. For each...
Bei 2000-3000 Zeilen dauert das aber mehrere Sekunden.
So hab ich es probiert:
Sub RensaMarkering()
Dim cell As Range
Dim MarkeraRange As Range
Application.ScreenUpdating = False
Set MarkeraRange = wsVentildatabas.ListObjects("tab_ventildatabas").ListColumns(1). _
DataBodyRange
'MarkeraRange.Value = ""
For Each cell In MarkeraRange
cell = ""
Next cell
End Sub
Geht das nicht irgendwie schneller?
Viele Grüsse
Kailash
Anzeige