Kann mir jemand helfen? Ich habe bereits ein Makro begonnen, mit welchem ich gewisse Bereiche auf den Inhalt prüfe und die Spalten je nach Resultat ausblende:
Sub SpaltenAusblenden()
Dim Bereich As Integer
For Bereich = 2 To 100
If Range("A" & Bereich) 0 Then
Columns("A:A").EntireColumn.Hidden = True
End If
Next Bereich
For Bereich = 2 To 100
If Range("B" & Bereich) 0 Then
Columns("B:B").EntireColumn.Hidden = True
End If
Next Bereich
For Bereich = 2 To 100
If Range("C" & Bereich) 0 Then
Columns("C:C").EntireColumn.Hidden = True
End If
Next Bereich
End Sub
Nun möchte ich jedoch die Prüfung auf alle Spalten ausweiten und nicht jede Spalte manuell eintragen. Gibt es eine Möglichkeit, dies soweit zu automatisieren (for-Schleife) wie für den Bereich?
Vielen Dank für eure Hilfe