auf select kann man verzichten
Columns("A:A").Delete Shift:=xlToLeft
Range("A1").Select
ansonsten verstehe ich die Frage nicht über dem Spaltentitel ist doch keine Spalte zum löschen mehr.
Gruß REgina
ist dies möglich?
andi
Rows(1).delete
wäre dann für Zeile löschen.
Geht auch prima wenn man in der VBA Umgebung STRG + Leertaste eingibt, dan bietet VBA Befehle an.
Gruß Regina
mit einem UserForm kann man das lösen. Du legst ein UserForm mit einer Schaltfläche und einer ComboBox an. Die ComboBox zeigt die vorhandenen Spaltenüberschriften an. (Diese müssen sich in Zeile 1 befinden)! Du wählst die richtige aus und drückst auf die Schaltfläche.
Den ersten Quelltext verbindest Du mit der Schaltfläche:
Solltest Du das nicht hinbekommen, kann ich Dir die Beispieltabelle auch per eMail schicken.
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite