AW: Guten Tag!
22.02.2005 10:05:46
Harald
Hallo Andreas,
der erste Code löscht von Zeile 100 bis Zeile 2 jede zweite Zeile
der zweite Code von Spalte 10 bis 2 jede zweite Spalte.
Blattschutz wird zuvor aufgehoben, dann wieder gesetzt.
Viel Spaß damit. Im Übrigen sei dir die Excel CD von Herber wärmstens ans Herz gelegt.
Die Grundstruktur der beiden Codes stammt nämlich von dieser sehr gelungenen CD (hoffe Hans hat nichts dagegen). Die CD hat zusätzlich den Vorteil, dass sie keine Anrede, Gruß und Dankeschön verlangt ;-> (das musste jetzt sein)
Gruß
Harald
Sub SecondRows()
Dim rng As Range
Dim lRow As Long
Dim bln As Boolean
ActiveSheet.Unprotect "Passwort"
For lRow = 100 To 2 Step -1
bln = Not bln
If bln Then
If Not rng Is Nothing Then
Set rng = Application.Union(rng, Rows(lRow))
Else
Set rng = Rows(lRow)
End If
End If
Next lRow
rng.EntireRow.Delete
ActiveSheet.Protect "Passwort"
End Sub
Sub SecondCol()
Dim rng As Range
Dim lCol As Long
Dim bln As Boolean
ActiveSheet.Unprotect "Passwort"
For lCol = 10 To 2 Step -1
bln = Not bln
If bln Then
If Not rng Is Nothing Then
Set rng = Application.Union(rng, Columns(lCol))
Else
Set rng = Columns(lCol)
End If
End If
Next lCol
rng.EntireColumn.Delete
ActiveSheet.Protect "Passwort"
End Sub