Schleife - Mappe öffnen und ganzer Pfad in Zelle
28.01.2007 16:22:27
Robert
Habe wieder mal ein VBA Problem, wobei ihr vielleicht helfen könnt.
Via ein Hauptbuch öffne ich mittels VBA sehr viele Mappen mit unterschiedlichen Namen. Klappt auch ganz gut. Doch für bestimmte Berechnungen ist es notwendig dass beim öffnen der Mappe, der Pfad- und Mappe Name in einer Zelle im Hauptbuch gespeichert wird. Mit Indirect Formeln werden dann schnell Berechnungen gemacht und die Mappe wieder geschlossen. Die Schleife sollte weiter laufen bis alle Mappen berechnet worden sind. Mappen müssen nicht gespeichert werden da in der Schleife einen Printout gemacht wird. Im Internet habe ich leider keine Lösung gefunden. Vielleicht sieht ihr eine Lösung? Code habe ich angehängt.
Freundliche Grüsse,
Robert
Sub Openfiles()
Dim WB As Workbook
Dim lngRow As Long
Dim Wks As Worksheet
Dim iRow As Integer
Dim sPath As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.AskToUpdateLinks = False
Application.Calculation = xlCalculationAutomatic
Set Wks = ActiveSheet
On Error GoTo ERRORHANDLER
sPath = Range("Netzwerkpfad").Value
iRow = 4
Do Until IsEmpty(Wks.Cells(iRow, 1))
iRow = iRow + 1
If LCase(Wks.Cells(iRow, 2).Value) = "x" Then
Workbooks.Open sPath & "\" & Wks.Cells(iRow, 1).Value, False
' Hier müsste der Pfad und Mappe Name automatisch ohne Nachfragen im Hauptbuch _
Range("FullNetworkpath") eingesetzt werden. (Berechnungen können dann stattfinden) _
Printout sollte dann automatisch gemacht und Mappe geschlossen werden. Schleife _
lauft weiter bis alle Mappen berechnet sind!
End If
Loop
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub