Spalten ausblenden anhand Zellwert ..
06.02.2018 09:31:03
udo
habe heute früh schon fleißig die Recherche durchsucht und nur teilweise
etwas zu meinem Problem gefunden. Benötige bitte etwas Hilfe eurerseits wenn mgl.
Es geht darum ganze Spalten auszublenden in die Zeile 18 dann ein x stehen haben.
Das x wird per Formel erzeugt die die Einträge in der jew. Spalte auswertet und
demnach diese dann eben mit x kennzeichnet oder nicht ...
Das Makro soll auf den Spaltenbereich E - FW ( 5 - 179 ) angewendet werden.
Ich habe mir etwas zusammengebaut was leider noch nicht so wie ich es gerne hätte läuft, sieht von Euch Jemand was ich falsch mache ?
Bin um jede Hilfe sehr dankbar. Freundliche Grüße
udo
Sub UePlg_Spalten()
Dim i As Long
For i = 5 To 179
Columns("E:FW").EntireColumn.Hidden = False
If Cells(18, i).Value = "x" Then
Columns("E:FW").EntireColumn.Hidden = True
Exit Sub
End If
Next i
End Sub
Anzeige