Laufzeitfehler 448
12.02.2005 17:05:55
Thomas
Hab´ein dickes Problem!
Vor einigen Wochen habe ich mir ein mächtig gutes Buch über VBA zugelegt,
allerdings wird darin die Version 2002 behandelt.
Klappt trotzdem sehr gut und komme auch vorwärts, bis zu dieser Stelle:
Sub MonateAusblenden()
Dim neuSuchen As Range
Set neuSuchen = Rows(1).Find(What:="01.05.2002", _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
Range("C1", neuSuchen.Offset(0, -1)).EntireColumn.Hidden = True
End Sub
"Laufzeitfehler 448, Benanntes Argument nicht gefunden" ist das Ergebnis.
Hat das was mit den unterschiedlichen Excel Versionen zu tun oder wo liegt
der Hund begraben?
Vielen Dank schon mal für Hilfe
Gruß Thomas