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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen