Ich arbeite mit einer Inputbox, mit den Buttoms OK und Abrechen. Beim Benutzen des "Abrechen", kommt Laufzeitfehler 9 index ausser dem gültigen Bereich.
Wie kann ich den Fehler vermeiden.
Danke
Peter
Sub Abrufe_laufende_Woche_10()
Application.ScreenUpdating = False
Monat = InputBox("Bitte Monat eingeben(Bsp:MMJJ)", , Monatsname)
Sheets(Monat).Select
kawo = InputBox("Bitte die laufende Kalenderwoche eingeben(99=Gesamter Monat)", , KWL)
kawo1 = "<=" + kawo
Selection.AutoFilter Field:=1, Criteria1:=kawo1, Operator:=xlAnd
Selection.AutoFilter Field:=9, Criteria1:="10"
Range("A4").Select
ActiveWindow.ScrollRow = 4
Application.ScreenUpdating = True
End Sub
Sub Abrufe_laufende_Woche_10()
Application.ScreenUpdating = False
Monat = InputBox("Bitte Monat eingeben(Bsp:MMJJ)", , Monatsname)
If Monat = "" then Exit sub
Sheets(Monat).Select
kawo = InputBox("Bitte die laufende Kalenderwoche eingeben(99=Gesamter Monat)", , KWL)
If kawo = "" Then Exit Sub
kawo1 = "<=" + kawo
Selection.AutoFilter Field:=1, Criteria1:=kawo1, Operator:=xlAnd Selection.AutoFilter Field:=9, Criteria1:="10"
Range("A4").Select
ActiveWindow.ScrollRow = 4
Application.ScreenUpdating = True
End Sub