Spaltenausblendung per Schleife: Geschwindigkeit
Walter
kann mir irgendein freundlicher Mitstreiter Hinweise geben, warum eine solche Harmlosigkeit (dä _
chte ich) geschlagene 10 Sekunden zur Abarbeitung dauert? Und eventuell, was ich falsch mache/ _
besser machen könnte?
Sub Saubermachen()
Dim intSp As Integer
Application.ScreenUpdating = False
With Worksheets("Minibar")
.Unprotect
For intSp = 3 To 72
If .Cells(3, intSp).Value = 0 Then
' .Columns(intSp).Hidden = False
' Else
.Columns(intSp).Hidden = True
End If
Next
.Protect
End With
Application.ScreenUpdating = True
End Sub
Das wäre ganz wunderbar!
Grüße,
Walter
Anzeige