Spalten löschen

05/10/2008 - 08:55 von Rainer R. Friedrich | Report spam
Hallo,

suche eine Möglichkeit in allen Arbeitsblàttern die 1,2,4,5 Spalte zu
löschen und die 3 (dann die 1 nach dem Löschen) auf die optimale Breite
zu bringen.

Hat mir da jemand bitte einen Tipp?

Shalom & TIA
F. :-D
 

Lesen sie die antworten

#1 Rainer R. Friedrich
05/10/2008 - 09:14 | Warnen spam
Ingrid schrieb:

suche eine Möglichkeit in allen Arbeitsblàttern die 1,2,4,5 Spalte zu
löschen und die 3 (dann die 1 nach dem Löschen) auf die optimale Breite
zu bringen.

Hat mir da jemand bitte einen Tipp?



Hat sich mit:

==Sub bla()
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Columns(1).EntireColumn.Delete
WS.Columns(1).EntireColumn.Delete
WS.Columns(2).EntireColumn.Delete
WS.Columns(2).EntireColumn.Delete
ActiveSheet.Columns(1).EntireColumn.AutoFit
End Sub
==
gelöst :-D

Shalom
F. :-D

Ähnliche fragen