Laufzeitfehler, wenn weitere Datei offen
07.02.2022 14:55:00
Jane
ich habe ein Problem in meinem Code. Der Fehler tritt auch nur auf, wenn eine weitere Excel-Datei bereits geöffnet ist.
Das ist der Code:
Option Explicit
Public MACountOverview As Long
Public MACount(1 To 12) As Long
Public startRowJahr As Long
Public startRowMonat As Long
Public contentCount As Long 'erste leere Zeile der Jahresübersicht
Public nmonth As Integer 'Zähler für MACount & newRow
Public monthtab As Integer 'Zähler für Monatstabellen
Sub Count()
startRowJahr = 6
startRowMonat = 7
'Anzahl der Gesamtübersicht
MACountOverview = WorksheetFunction.CountA(Worksheets(1).Range("A7:A1000"))
contentCount = MACountOverview + startRowJahr
'Anzahl pro Monatstabelle
monthtab = 2
For nmonth = 1 To 12
MACount(nmonth) = WorksheetFunction.CountA(Worksheets(monthtab).Range("A8:A1000"))
newRow(nmonth) = MACount(nmonth) + startRowMonat
monthtab = monthtab + 1
Next
End Sub
Wie man eventuell schon erkennen kann, geht es um eine Jahresübersicht und Monatsübersichten. Die Jahresübersicht ist das Tabellenblatt 1, weshalb die Monate über die Tabellenblätter 2-13 gehen. Die Zeile MACount(nmonth) = WorksheetFunction.CountA(Worksheets(monthtab).Range("A8:A1000")) erzeugt im Tabellenblatt 5 immer einen Laufzeitfehler 9: Index außerhalb des gültigen Bereichs.
Dazu noch als Hinweis: Beim Testen habe ich einfach eine Blanko-Excel-Datei geöffnet, also kein Code und kein Tabellenblatt 5 vorhanden. Muss ich im Code irgendwie auf die eine Datei beschränken?
Ich danke euch schon im Voraus für eure Hilfe und Unterstützung.