Hallo,
hier die sortiete Liste.
Hallo,
die letzte Zeile ist nach dem Sortiervorgang nicht mehr die selbe!
Und letzteZelle = Cells(1001, 1).End(xlUp).Row - 1 ergibt auch nicht die richtige
MfG
Alooha
...ich habe inzwischen eine Lösung dafür gefunden.
Nächstes Problem: wie kann ich verschiedene Blätter, mit Namen Blatt10, Blatt13, und das versteckte Blatt15 vom Durchlauf und der Kopie ausschließen?
Die Blätter sollen von 1 bis zum letzten durchlaufen werden, außer den besagten 3.
Code:
For n = 1 To wbQuelle.Sheets.Count
wbQuelle.Sheets(n).Activate
Hallöchen,
If n <> 15 and n <> ... Then
Sorry, das verstehe ich nicht! Wo kommt die 15 her?
Hallöchen,
ich zitiere Dich mal
Zitat:und das versteckte Blatt15
Gute Antwort! ;)
In Wirklichkeit heißen die Blätter (natürlich) anders.
Ich habe eine radikalere Lösung gewählt: ich öffne das betreffende WB, lösche diese 3 Blätter, kopiere alle anderen und schließe ohne abzuspeichern.