Spalten löschen außer bestimmte Überschriften

Computer: Software & Programmierung Office Software
#1

Hallo Excelperten. :smile:

Ich kriege immer Excel-Listen aus einem Anderen Programm exportiert, welche ich mittels eines Makros weiterverarbeite.
Diese enthalten aber viel mehr Informationen wie ich brauche.

Jetzt habe ich mein Makro entsprechend angepasst, dass die nicht gebrauchten Spalten gelöscht werden.

Jetzt ist mir aufgefallen, dass diese Spalten leider nicht immer gleich angeordnet sind. :frowning:

Kann ich dem Makro sagen, dass die Spalte gelöscht wird, es sei denn in Zeile „A“ ist die Überschrift entweder „Auftragsnummer“, „Kunde“, „Unternehmens-ID“ oder „Geschäftsjahr bis“?

Vielen Dank schonmal für Eure Hilfe…

Grüße

René

#2

Denkanstoß
Hallo René,

als Idee: Die Spalten in einer Schleife durchlaufen, mit Laufvariable sp. In der Schleife:

If Cells(1, sp) "Auftragsnummer" And Cells(1, sp) "Kunde" And Cells(1, sp) "Unternehmens-ID" And Cells(1, sp) "Geschäftsjahr bis" Then Columns(sp).Delete

Durchlaufe die Spalten von rechts nach links, sonst musst du nach jedem Delete den Wert von sp extra neu anpassen.

Gruß, Andreas

#3

Hallo Andreas,

und auch hier meinen Dank an Dich! :smile:

Und meinen Denkfehler hast Du direkt erkannt! :smiley: Ich hab versucht von links aus die Spalten zu löschen^^

Funktioniert jetzt ohne Probleme in einer Do until schleife.

Grüße

René