Schleife: geöffnete Mappe(n) neu berechen&Drucken
24.01.2007 10:06:03
Robert
War schon lange nicht mehr im Forum. Kann euere Hilfe aber wieder mal gut gebrauchen. Ich habe ein Schleife gemacht die für meine Zwecke gut funktioniert aber noch mehr machen sollte. In Zukunft hätte ich gerne dass jede Mappe beim öffnen neu berechnet und seite 1 ausgedrückt wird. Dann sollte die Schleife wieder weiter laufen und der nächste Mappe öffen, usw. Ich habe viel versucht komme aber nicht weiter. Schleife hänge ich an damit ihr sieht was ich bis jetzt habe. Nur die Mappen im zweiten Loop müssen berechnet und gedruckt werden. Freue mich auf Hilfe!
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
Set Wks = ActiveSheet
On Error GoTo ERRORHANDLER
sPath = Range("NetworkPath").Value
iRow = 20
lngRow = 17
With Wks
Do Until IsEmpty(.Cells(lngRow, 1))
Workbooks.Open .Cells(lngRow, 1).Value
lngRow = lngRow + 1
Loop
End With
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
End If
Loop
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Anzeige