Spalten nach Kriterium über merhere Tabellen lösch
18.12.2006 00:04:04
doey
hoffe Ihr könnt mir helfen...
Versuche über mehrere Tabellenblätter, alle Spalten die z. B. in der 4. zeile den Wert 0 haben, zu löschen!
Ich habe hier ein Skript was das schon bewältigt!
Das was mich nervt ist, dass wenn z. B. 50 Tabellenblätter abgearbeitet werden sollen, dass ziemlich lange dauert.
Also mir geht es darum, das Skript so anzupassen, dass es im Nu abgearbeitet ist!
Vielleicht hat ja jemand eine Idee?!?
hier das gebastelte Skript:
Sub SpaltenNachKriteriumLöschen()
Dim c As Long, cz As Long
cz = Range("IV4").End(xlToRight).Column
For a = 2 To Sheets.Count
For c = cz To 1 Step -1
If Sheets(a).Cells(4, c).Value = "0" Then
Sheets(a).Columns(c).Delete
End If
Next c
Next a
End Sub
Gruß doey