Laufzeitfehler
06.09.2005 16:23:40
Torsten
was ist an meinem code falsch?
er soll alle spalten bis zur gefundenen ausblenden.
Sub MonateAusblenden()
Dim neuSuchen As Range
Set neuSuchen = Rows(1).Find(What:="01.05.2005", _
After:=Range("a1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
Range("C1", neuSuchen.Offset(0, -1)).EntireColumn.Hidden = True
End Sub
Gruss Torsten
Anzeige