For each - Next
25.09.2003 12:22:08
Torsten K.
als VBA-Anfänger brauche ich mal die Hilfe des Profis:
In einer Datei (Quelldate) befinden sich 17 Worksheets ("1" - "17"), die alle den gleichen Aufbau haben. Ist der Wert der Zelle "F3" ungleich 0, soll eine bereits vorhandene Datei (Zieldatei) geöffnet und unter dem Namen aus "G1" des WS gespeichert werden (DateiNeu). Das soll für alle 17 WS so durchlaufen werden.
Private Sub cmb_COPA_Click()
Dim ws
Dim Arr, i%
Dim wkbQuell As Workbook 'Quelldatei
Dim wkbZiel As Workbook 'Datei: Upload_blanco
Dim wkbNeu As Workbook 'neue Datei nach Speichern der wbkZiel unter neuem Namen
Dim fi As String
Set wkbQuell = ThisWorkbook
fi = ThisWorkbook.Range("G1")
If GetPassword = True Then
Application.ScreenUpdating = False
Arr = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", _
"10", "11", "11", "12", "13", "14", "15", "16", "17")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Next i
For Each ws In Arr
Worksheets(ws).Activate
If ws.Range("F3") <> 0 Then
Workbooks.Open Filename:= _
"Y:\Budget 2004\Turnover\COPA_Preparation\Upload_Test.xls", UpdateLinks:=3
ActiveWorkbook.SaveAs Filename:= _
"Y:\Budget 2004\Turnover\COPA_Upload\" & fi, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Next ws
Else
MsgBox "Password ist falsch"
End If
Application.ScreenUpdating = True
End Sub
Leider erhalte ich an der Stelle "Next ws" die Meldung "Next ohne For" - ich verstehe's nicht, da "For each ws.." doch definiert ist?
Kann mir jemand helfen. Vielen Dank im voraus.
Gruß
Torsten