Hallo Hermann,
ändere die Code-Zeile
If wks.Index > i Then
in
If wks.Index <> i Then
, denn Du hast nur die Blätter, die größer der Indexzahl aus Variablen "i" angespürochen, aber keine, die darunter sind. Angenommen die Variable "i" hat den Wer 3, dann sprichst Du nur alle Blätter mit dem Index >3 an, also 4, 5 usw. Blätter mit dem Index 1 und 2 bleiben außen vor. Daher die Abfrage auf größer und kleiner.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]