Hä? Schleife läuft über Zähler raus

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Hä? Schleife läuft über Zähler raus
von: Maria
Geschrieben am: 07.05.2002 - 15:52:40

Sorry, bin hier fast am Durchdrehn. Ich hab hier ne Schleife, und er läuft über meinen Zähler raus und beschwert sich dann natürlich.

Der Code dazu:

______________________________________________________________
For i = 1 To ActiveWorkbook.Sheets.Count

If Sheets.Item(i).Name Like "tmp_*" = True Then
MsgBox "Temp Sheet gefunden: " & Sheets.Item(i).Name

(...)
End If



Next i
______________________________________________________________

ATM hat er 4 Sheets, i ist bei 5 - ergibt natürlich eine Fehlermeldung.

Hab ich nen Denkfehler drin oder spinnt meine Kiste völlig?

Eine mittlerweile völlig entnervte

Maria


nach oben   nach unten

Re: Hä? Schleife läuft über Zähler raus
von: Andreas
Geschrieben am: 07.05.2002 - 15:59:55

Hallo Maria,

versuch das mal:

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name Like "tmp_*" Then
        MsgBox "Temp Sheet gefunden: " & ws.Name
        '...
    End If
Next ws

Viel Spaß,
Andreas
nach oben   nach unten

So geht's natürlich...
von: Maria
Geschrieben am: 07.05.2002 - 16:44:03

Klar! So geht's. Danke!

Vor lauter "moment, das darf doch nicht sein, warum das denn" kam ich nicht auf das Naheliegende...

Jetzt läuft es ohne Fehlermeldungen.


nach oben   nach unten

Re: So geht's natürlich...
von: Michael Scheffler
Geschrieben am: 07.05.2002 - 21:35:59

Hallo Maria,

alle Counts sind + 1! Wenn Du Count benutzt, dann

For iSheet = 1 To Worksheets.Count-1

Gruß

Micha


nach oben   nach unten

Re: So geht's natürlich...
von: Michael Scheffler
Geschrieben am: 07.05.2002 - 21:37:28

Hallo,

Quatsch:



--------------------------------------------------------------------------------
Re: So geht's natürlich...
--------------------------------------------------------------------------------

Antworten Zum Forum Archivbeitrag Tagesfilter Offene Fragen Recherche
Hallo Maria,

Das kommt vom Kopieren:-)

For iSheet = 0 To Worksheets.Count-1

Gruß

Micha



 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hä? Schleife läuft über Zähler raus"