Index ausserhalb des gültigen Bereichs
02.06.2004 10:58:05
Holger
Ich als absoluter Anfänger habe eine Frage.
Habe mir ein Makro geschrieben, wo das aktuelle und die nächsten drei Worksheets als HTML rausgegeben werden. Soweit so klar.
Wenn man auf dem ersten Worksheet steht, wird dieses und die naächsten zwei Worksheets als HTML rausgegeben.
Wenn man jetzt aber am Ende der Worksheets steht, und des keine zwei weiteren Worksheets noch gibt, dann kommt diese Fehlermeldung mit Index ausserhalb des gültigen Bereichs.
Wie kriegt man es hin, das Excel dann nur die vorhandenen Worksheets als HTML dann rausgibt.
Danke
Holger
Hier das Makro:
Sub HTML_speichern()
Dim strXLS As String
Dim Path1 As String, Path2 As String
Dim Dat1 As String, Dat2 As String
Dim i, ix As Integer
Path2 = "c:\test\home\"
Path3 = "e:\super\"
Dat2 = "Today"
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.Name
ix = ActiveSheet.Index
For i = ix To ix + 2
Sheets(i).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path2 & Dat2 & i - ix, _
FileFormat:=xlHtml
ActiveWorkbook.SaveAs Filename:=Path3 & Dat2 & i - ix, _
FileFormat:=xlHtml
ActiveWorkbook.Close
Next i
End Sub