Problem mit For Next Schleife: Sprint immer 2 weit
19.01.2006 14:35:36
Thomas
Ich habe ein Problem mit einer For Next Schleife.
Ich habe eine Mappe mit über 40 Tabellen wobei nicht alle für jeden Anwender benötigt werden.
Am Anfang wird daher der Anwender gefragt wieviel Tabellenblätter er benötigt.
Der Rest soll mithilfe der For Next Schleife gelöscht werden (Das Erste Blatt ist das Auswahlblatt und soll deshalb nicht gelöscht werden)
Hier meine Prozedur:
Sub Löschen()
Dim Loe As Byte
Dim Eing As Byte
For Loe = Eing + 1 To 46
Scheets(Loe).delete
Next
End Sub
Ich weiß nicht warum aber wenn die Schleife durchlaufen wird, wird nur jedes zweite Blatt gelöscht!!!
Woran liegt das? Selbst wenn ich Step 1 hinten dran schreibe passiert das.
Ich bin am verweifeln.
Grüße
Thomas