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

Beiträge aus den Excel-Beispielen zum Thema "next ohne for trotz end if außer for next Schleife"