12.03.2017, 20:49
Hallo zusammen
Ich möchte gerne Spalten mit VBA ausblenden.
Ich habe einen funktionierenden Code um Zeilen auszublenden, komm aber nicht drauf, wie ich diesen umschreiben muss um Spalten auszublenden.
Ich möchte nun dasselbe mit den Spalten E bis LD machen, wobei die Nuller in der Spalte 1 geschrieben stehen.
Ich würde mich freuen über eure Hilfe
Gruss aus der Schweiz
Peter
Ich möchte gerne Spalten mit VBA ausblenden.
Ich habe einen funktionierenden Code um Zeilen auszublenden, komm aber nicht drauf, wie ich diesen umschreiben muss um Spalten auszublenden.
Code:
Sub Zeilen_ausblenden()
Dim i As Long
Dim rngA As Range
Rows("1:66").Hidden = False
For i = 1 To 66
If Cells(i, 1).Value = "0" Then
If rngA Is Nothing Then
Set rngA = Rows(i)
Else
Set rngA = Union(rngA, Rows(i))
End If
End If
Next i
If Not rngA Is Nothing Then
rngA.Rows.Hidden = True
Set rngA = Nothing
End If
End Sub
Ich möchte nun dasselbe mit den Spalten E bis LD machen, wobei die Nuller in der Spalte 1 geschrieben stehen.
Ich würde mich freuen über eure Hilfe
Gruss aus der Schweiz
Peter