VBA Makro: Spalten ausblenden wenn Bereich = "0 x"
22.09.2014 15:18:58
hual
Ich bin mit VBA wenig bis gar nicht vertraut und hätte gerne ein Makro welches mir die Spalten F:O ab Zeile 8 durchsucht und wenn dort nur "0" UND "0 x" vorkommen, sollte diese Spalte ausgeblendet werden.
ich hab dazu schon was in die Richtung gefunden, etwas editiert aber nicht zum Erfolg gekommen.
Ich denke es liegt daran, dass in einer Spalte "0" UND "0 x" vorkommen. Ich aber nicht beide Bedingungen drin habe.
Public Sub SpaltenAusblenden()
Dim iSpalte As Integer
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(1)
.Columns("F:O").EntireColumn.Hidden = False
For iSpalte = 1 To 123
If Application.CountA(.Range(.Cells(8, iSpalte), .Cells(500, iSpalte))) = "0" & " " & " _
_
x" Then
.Columns(iSpalte).Hidden = True
End If
Next iSpalte
End With
Application.ScreenUpdating = True
End Sub
Vielleicht kann mich jemand weiterschupsen.
Danke,
Alois
Anzeige