Hallo effeff,
das wäre schön, wenn ich nur die ersten 20 Spalten bräuchte. Nein, die nicht benötigten Spalten liegen zwischen Spalten, mit denen ich weiterarbeiten muss.
Ich dachte schon mal, mit

Dim BezSpalten(80) as String
BezSpalten(0) = \"AZ LJA\"
BezSpalten(1) = \"AZ JA\"
BezSpalten(2) = \"AZ TR\"
BezSpalten(3) = \"Ia Betrag\"
BezSpalten(4) = \"Ib Betrag\"
usw. usw.

und dann

For i = 1 To intSpalten
    If Cells(1, i).Value = BezSpalten() Then
        Columns(i).Delete
    End If
Next

die Geschichte zu vereinfachen. Gleichwohl habe ich immer noch eine ellenlange Liste der Variablen, wenn das überhaupt mit BezSpalten() funktioniert.
Habe dann auch schon darüber nachgedacht, ob man nicht die Variable
BezSpalten wie folgt definiert:

BezSpalten = \"Az LJA\" Or \"AZ JA\" Or \"AZ TR\"

(usw. usw.)
Aber das funktioniert auch nicht.
Hast Du vielleicht noch eine andere Idee, wie ich den Code kürzen könnte?
Im voraus vielen lieben Dank
Toni