Herbers Excel-Forum - das Archiv

next ohne for trotz end if außer for next Schleife

Bild

Betrifft: next ohne for trotz end if außer for next Schleife
von: eva

Geschrieben am: 24.04.2005 15:50:04
Hallo,
bei folgendem Code bekomme ich die betreffend genannte Fehlermeldung
Sub makro1()
Dim Kst As String
Dim i As Integer
Dim j As Integer
For i = 2 To 22
Kst = Workbooks("Namensliste").Worksheets("Tabelle1").Cells(i, 2)
Workbooks("Masterliste").SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
For j = 2 To 310
If Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 5) = Kst Then
Workbooks(Kst).Worksheets.Add 'after:=Worksheets(Worksheets.Count)
Workbooks(Kst).activeworksheet.name = Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 4)
Next j
Next i
End if
End Sub

Kann mir jemand bitte helfen?
Danke+Gruß
eva
Bild

Betrifft: AW: next ohne for trotz end if außer for next Schleife
von: Hajo_Zi

Geschrieben am: 24.04.2005 15:54:03
Hallo eva,
schreibe das End if an die richtige Stelle.
Sub makro1()
Dim Kst As String
Dim i As Integer
Dim j As Integer

For i = 2 To 22
Kst = Workbooks("Namensliste").Worksheets("Tabelle1").Cells(i, 2)
Workbooks("Masterliste").SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
For j = 2 To 310
If Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 5) = Kst Then
Workbooks(Kst).Worksheets.Add 'after:=Worksheets(Worksheets.Count)
Workbooks(Kst).activeworksheet.Name = Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 4)
End If
Next j
Next i
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Bild

Betrifft: AW: next ohne for trotz end if außer for next Schl
von: Matthias G

Geschrieben am: 24.04.2005 15:54:45
Hallo Eva,
For i = 2 To 22
Kst = Workbooks("Namensliste").Worksheets("Tabelle1").Cells(i, 2)
Workbooks("Masterliste").SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
For j = 2 To 310
If Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 5) = Kst Then
Workbooks(Kst).Worksheets.Add 'after:=Worksheets(Worksheets.Count)
Workbooks(Kst).activeworksheet.name = Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 4)
End If
Next j
Next i
Gruß Matthias
Bild

Betrifft: Danke sehr. (oT)
von: eva
Geschrieben am: 24.04.2005 15:56:41
dd
Bild

Betrifft: AW: next ohne for trotz end if außer for next Schleife
von: Herbert

Geschrieben am: 24.04.2005 15:55:12
Sub makro1()
Dim Kst As String
Dim i As Integer
Dim j As Integer
For i = 2 To 22
Kst = Workbooks("Namensliste").Worksheets("Tabelle1").Cells(i, 2)
Workbooks("Masterliste").SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Besitzer\Desktop\Eva Excel\" & Kst & ".xls"
For j = 2 To 310
If Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 5) = Kst Then
Workbooks(Kst).Worksheets.Add 'after:=Worksheets(Worksheets.Count)
Workbooks(Kst).activeworksheet.Name = Workbooks("Namensliste").Worksheets("Namensliste").Cells(j, 4)
Next j
Next i
End Sub

mfg Herbert
 Bild
Excel-Beispiele zum Thema "next ohne for trotz end if außer for next Schleife"
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen