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
Anzeige