Hallo liebe VBA-Kundige,

Über den Code

Sub Spalten_aublenden_die_bestimmen_Text_nicht_enthaltenOriginal()
Dim i%, Ab%, Bis%, Was$, Zeile%
Ab = 3: Bis = 1500 'Spalte 3 bis Spalte 1500
*Was = "*Prognose*" 'Suchbegriff eingeben
Was = InputBox("Geben Sie den Suchbegriff ein!", "Textsuche")
Zeile = 3 'Zeile, in der gesucht werden soll
Application.ScreenUpdating = False
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
For i = Ab To Bis
If Not .Cells(Zeile, i).Value Like Was Then 'not bei "If Not" weglassen, um Spalten mit Kriterium auszublenden
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
End Sub

blende ich mir alle Spalten aus, die den gesuchten Begriff nicht enthalten.

Nun würde ich gerne den Suchbegriff über eine InputBox eingeben können, bekomme es aber leider nicht hin, weil nach Eingabe in der InputBox offenbar nicht innerhalb der Zellen nach dem eingegebenen Wort gesucht wird, sondern der gesamte Zelleninhalt mit dem Suchbegriff übereinstimmen muss.

Wir muss ich das lösen?

Schon mal lieben Danke für eine Antwort!

Pims