in der Zeile 3 stehen die Werte "Anna, Hans, Albert".
Wenn Excel diese Werte in der Zeile 3 findet, soll die entsprechende Spalte ausgeblendet werden.
Danke für Hilfe
Markus
Option Explicit
Sub Ausblenden()
' "Anna, Hans, Albert"
Dim LoI As Long
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(3, Columns.Count)), _
Cells(3, Columns.Count).End(xlToLeft).Column, Columns.Count)
For LoI = 1 To Loletzte
Select Case Cells(3, LoI)
Case "Anna", "Hans", "Albert"
Columns(LoI).EntireColumn.Hidden = True
Case Else
Columns(LoI).EntireColumn.Hidden = False
End Select
Next LoI
End Sub
Gruß Hajo