Code schneller machen
05.10.2017 18:18:20
Frank
Ich habe mir zum Löschen bestimmter Zellbereiche folgenden Code gebastelt. Ich finde aber es dauert sehr lange, warum nur. Mit meinen bescheidenen Kenntnissen stoße ich da an meine Grenzen. Für jede Hilfe dankbar!
Gruß Frank H.
Application.ScreenUpdating = False
For lng = 10 To 40
For c = 3 To 48 Step 4
Sheets("Dplan").Cells(lng, c) = ""
Sheets("Dplan").Cells(lng, c + 1) = ""
Next c
Next lng
Application.ScreenUpdating = True