Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Spaltenköpfe(A) durchlaufen u. best. Namen löschen

Forumthread: Spaltenköpfe(A) durchlaufen u. best. Namen löschen

Spaltenköpfe(A) durchlaufen u. best. Namen löschen
Mandy
Hallo,
ich habe in einer bestimmten Tabelle, die ich immer wieder neu bearbeiten muss immer das gleiche Problem:
Ich muss jedesmal, bevor ich die bearbeitete Datei weiterleite, diese Prüfen, ob sich in der Zeile 1 (Spaltenüberschriften) die Spalten "Kommentar" , "Bearbeiter" und "Ursache" befinden.
Wenn ich eine dieser Spalten sehe, muss ich diese Spalte löschen, die Spalten können aber jedes mal anders angeortnet sein.
Kann man mit einem Makro die Zeile A durchlaufen und wenn einer dieser Namen (s.o.) gefunden wird, diese Spalte löschen ?
Danke für Eure Hilfe
Mandy
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spaltenköpfe(A) durchlaufen u. best. Namen löschen
21.07.2011 13:39:21
Gerold
Hallo Mandy
Wie wärs damit ?

Sub löschen()
Dim Zelle As Range, i
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
Select Case Cells(1, i)
Case Is = "Kommentar", "Bearbeiter", "Ursache"
Cells(1, i).EntireColumn.Delete
End Select
Next
End Sub
Mfg Gerold
Rückmeldung wäre nett.
Anzeige
Das ist sehr gut, Danke owT
Mandy

Forumthreads zu verwandten Themen

Anzeige