Spalten ausblenden wenn Zellen leer sind
25.01.2018 11:41:10
Sofie
ich bin ein ziemlicher VBA Neuling, habe ein kleines Problem und hoffe hier auf Hilfe :)
Ich würde gerne Spalten asblenden wenn die ein bestimmter Zellenbereich leer ist.
Ich habe hier schon einen Teil der Lösung gefunden jedoch schaffe ich es nicht den Code für mich richtig anzupassen.
Was ich bisher habe:
Sub Ausblenden()
Dim i As Long
Columns("G:G").EntireColumn.Hidden = True
For i = 5 To 180
If Cells(i, 9) "" Then
Columns("G:G").EntireColumn.Hidden = False
Exit Sub
End If
Next i
End Sub
Dass ist auch richtig so, ich möchte aber, dass auch Spalte H ausgeblendet wird, wenn von H5 bis H180 kein Wert enthalten ist. Das ganze soll bis Spalte YF gehen, daher ware es extrem aufwendig einen Code für jede Spalte zu schreiben
Kann mir jemand weiter helfen?
Vielen Dank im Voraus.
Sofie