Bestimmte Spalten Löschen
22.08.2007 12:05:32
HuiBu
ich habe eine Tabelle mit folgenden Spaltenüberschriften in der ersten Zeile:
Rückmeldung, Zähler, ObjektId, ArbPlatz, sto, E, Auftrag, Vrg, Rückmelder, Material, Werk, Klasse, Grp, AufArt, AufTyp, Kostenst. BuchDatum, Gutmenge, Ausschussmenge, ME, Personenzeit, Einh., Maschinenzeit, Einh., Rüstzeit, Einh.
Ich möchte jetzt gerne bestimmte Spalten behalten:
(ArbPlatz, sto, Auftrag, Rückmelder, Material, Klasse, BuchDatum, Personenzeit, Rüszeit).
Die anderen Spalten sollen gelöscht werden.
Nun habe ich folgende Notlösung dazu:
Sub SpaltenLöschen()
Range("A:C,F:F,H:H,K:K,M:P,R:T,V:X,Z:Z").Select
'Range("Z1").Activate
Selection.Delete Shift:=xlToLeft
End Sub
Gibt es eine Möglichkeit zu sagen:
Behalte die Spalten (ArbPlatz, sto, Auftrag, Rückmelder, Material, Klasse, BuchDatum, Personenzeit, Rüszeit)
und lösche den Rest?