For-Next-Schleife
23.08.2005 15:13:56
Torsten
aus einer UpDate-Datei hheraus möchte ich Daten, die in vielen anderen Dateien eingepflegt werden müssten, kopieren und einfügen. Diese Dateien habe ich in einem WS("FILES") der UpDate-Datei aufgelistet und lasse Excel diese Abarbeiten:
Private Sub cmb_PROJECT_Click()
If MsgBox("Sollen die Investitionsdateien jetzt aktualisiert werden?", vbYesNo) = vbYes Then
Dim i As Integer
Dim irow As Integer
Dim wbs1 As Workbook
Dim wbs2 As Workbook
Dim wbName As String
Dim ws
Set wbs1 = ThisWorkbook '= geöffnete UpDate-Datei
Application.ScreenUpdating = False
Application.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
Application.DisplayAlerts = False
Application.EnableEvents = False
wbs1.Range("K2:L56").Copy
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
Set wbs2 = ActiveWorkbook
With wbs2.Sheets("SETT")
.Visible = True
.Range("F14").PasteSpecial Paste:=xlValues, Operation:=xlNone
.Visible = xlVeryHidden
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close , True
Next i
End Sub
Leider meldet Excel "Next ohne For" und markiert die Zeile "Next i".
Ich weiß nicht, wo der Fehler hier liegt. Könnt Ihr mir helfen?
Danke und
Gruß
Torsten