Makro über mehrere Ordner

Hallo Zusammen,
Ordneraufbau ist folgendermaßen:
Ordner1 > HW-Management > Auftragseingang
Im Ordner1 liegt die Datei in der das Makro ausgeführt wird und soll überprüfen wo die erste freie Zeile in der Datei "HW_Auftragseingang.xls" liegt. "HW_Auftragseingang.xls" liegt aber nicht im selber Verzeichnis wie die Datei in der das Makro ausgeführt wird.

erstefrei = Workbooks("HW-Management\Auftragseingang\HW_Auftragseingang.xls").Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Was mache ich falsch? Oder funktioniert es nur innerhalb eines Ordners, was mir keinen sinn ergeben würde?!
Folgender Fehler erscheint wenn das Makro durchlaufen wird:
Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs
Danke vorab!
Mit freundlichen Grüßen
Dominik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Workbooks.Open ThisWorkbook.Path & "\HW-Management\Auftragseingang\HW_Auftragseingang.xls" erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveWorkbook.Close False

Hallo,
ist die Datei geschlossen,
müsstest Du die Datei öffnen und dann auslesen, am besten dabei den kompletten Pfad verwenden.
Müsste so funktionieren

Dim oApp As Excel.Application, sPath$
Dim ErsteFrei As Long
sPath$ = ThisWorkbook.Path
If Right$(sPath$, 1)  "\" Then sPath$ = sPath$ & "\"
sPath$ = sPath$ & "\HW-Management\Auftragseingang\HW_Auftragseingang.xls"
If Dir(sPath$)  "" Then
Set oApp = New Excel.Application
With oApp.Workbooks.Open(sPath$, ReadOnly:=True)
With .Sheets("Daten")
ErsteFrei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
.Close False
End With
oApp.Quit
Else
MsgBox "Datei nicht gefunden"
End If

Wenn die Datei in der selben Instanz offen ist müsste es so gehen.

Dim ErsteFrei As Long
With Workbooks("HW_Auftragseingang.xls").Sheets("Daten")
ErsteFrei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With

Gruß Tino

Sub Beispiel() Dim oApp As Excel.Application, sPath$ Dim ErsteFrei As Long Dim oWB As Workbook sPath$ = ThisWorkbook.Path If Right$(sPath$, 1) <> "\" Then sPath$ = sPath$ & "\" sPath$ = sPath$ & "\HW-Management\Auftragseingang\HW_Auftragseingang.xls" Set oWB = Find_WB(Right$(sPath, Len(sPath) - InStrRev(sPath, "\"))) If Not oWB Is Nothing Then With oWB.Sheets("Daten") ErsteFrei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 End With ElseIf Dir(sPath$) <> "" Then Set oApp = New Excel.Application With oApp.Workbooks.Open(sPath$, ReadOnly:=True) With .Sheets("Daten") ErsteFrei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 End With .Close False End With oApp.Quit Else MsgBox "Datei nicht gefunden" End If If ErsteFrei > 0 Then MsgBox "Erste freie Zeile = " & ErsteFrei End If End Sub Function Find_WB(strDateiName$) As Workbook Dim oWB As Workbook For Each oWB In Workbooks If oWB.Name = strDateiName Then Set Find_WB = oWB Exit For End If Next oWB End Function

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro über mehrere Ordner

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread