Letzte Zeile in neuer Instanz funktioniert nicht!
WOBIK
ich verzweifle an folgendem Problem:
Um eine Arbeitsmappe unsichtbar zu öffnen, erzeuge ich eine neue Instanz via "New Applikation".
Der "einfache" Zugriff darauf funktioniert wunderbar. (Zellen auswerten, kopieren usw.)
Zum ermitteln der letzten Zeile in der anderen Instanz verwende ich die Anweisung "Cells(Rows.Count, 9).End(xlUp).Row".
Allerdings läuft sie auf den "Laufzeitfehler '9' Index außerhalb des gültigen Bereichs".
Vielleicht weiß ja jemand Rat!?
Codeauszug:
Sub Start_Letzte_Zeile()
Dim app As New Application
Dim wb As Workbook
Dim Dateiname As String
Dim Datei As String
Dim i As Long
Dim x As Long
Dim y As Long
Dim z As Long
app.Visible = False 'Application unsichtbar setzen
Application.ScreenUpdating = False
Dateiname = "C:\Testverzeichnis\Arbeitsmappe.xls"
Set wb = app.Workbooks.Open(Dateiname)
i = 1 'Datei ohne Pfad
Do Until x = Len(Dateiname)
y = Left(Right(Dateiname, i), 1)
If y = "\" Then Exit Do
If i > 1000 Then Exit Do
Datei = Left(Right(Dateiname, i), i - 1)
i = i + 1
Loop
Datei = Datei & Right(Dateiname, 1)
'Letzte Zeile aus Datei, Tabelle 2, Spalte 9
z = wb.Sheets(2).Cells(Rows.Count, 9).End(xlUp).Row
MsgBox z
End Sub
Anzeige