Zellbereich jeder 3. Spalte löschen
30.05.2018 12:13:57
Jakob
Ich möchte in einer Datei einen bestimmten Zellenbereich jeder 3. Spalte löschen, also zB ab Spalte G, jeweils den Bereich G6:G18. Der Rest soll sich nach links verschieben.
Mit folgenden Code habe ich es probiert, klappt aber nicht.
Kann mir jemand den Code korrigieren?
Dim lngSpalte As Long
For lngSpalte = 7 To 261 Step 3
Range(Cells(6, lngSpalte), Cells(18, lngSpalte)).Delete
Next 'lngSpalte
Besten Dank,
LG, Jakob