Hallo liebe VBA-Kundige,

ich möchte gerne mit folgendem Code in einer Tabelle nur die Spalten einblenden lassen, die bestimmte Zeichenfolgen im Text enthalten und dies mit zwei Bedingungen.

Sub Spalten_einblenden_zwei_Kriterien()
Dim i%, Ab%, Bis%, Begriff1$, Begriff2$, Zeile%
Ab = 1: Bis = 200
Begriff1 = "*Summe 2023*"
Begriff2 = "*Summe 2024*"
Zeile = 1
Application.ScreenUpdating = False
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False
For i = Ab To Bis
If Not .Cells(Zeile, i).Value Like Begriff1 Or .Cells(Zeile, i).Value Like Begriff2 Then
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
End Sub

Mit der ersten Bedingung klappt es, mit der zweiten allerdings leider nicht. Wo liegt der Fehler?

Habt Dank für eine Antwort!

pims