Hilfe zu Prozedur von Herber
17.12.2003 20:22:57
Peter
ich habe bei Herbert was gefunden um die Urlaubstage in den einzelnen Monatsblätter einzutragen.
Die Sache funktioniert gut.Wenn ich jedoch versuche meinen Blattnamen
das akt. Jahr zuzuordnen und entsprechen in der Prozedur von Herber,
erhalte ich immer Fehlermeldungen.
Wer Kann helfen?
Danke
Peter
~begin~
Sub UrlaubsEintrag()
Dim rngFind As Range
Dim intRow As Integer, intMonth As Integer, intCounter As Integer
Worksheets("Urlaub").Activate
intRow = 2 '3
Do Until IsEmpty(Cells(intRow, 1)) 'WS Urlaub
For intMonth = Month(Cells(intRow, 2)) To Month(Cells(intRow, 3))
' >> Fehlermeldung>> Set rngFind = Worksheets(Format(DateSerial(Year(Date), intMonth, 1), "mmm.yy")).
Set rngFind = Worksheets(Format(DateSerial(1, intMonth, 1), "mmmm")). _
Columns(2).Find _
(Cells(intRow, 1), LookIn:=xlValues, lookat:=xlWhole)
........
~end~