VBA: erste Zeile in der die Zelle in A leer ist

[Klaus-Dieter]

Hallo,

hier die sortiete Liste.

[Alooha]

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

[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

[schauan]

Hallöchen,

If n <> 15 and n <> ... Then

[Alooha]

Sorry, das verstehe ich nicht! Wo kommt die 15 her?

[schauan]

Hallöchen,

ich zitiere Dich mal

und das versteckte Blatt15

[Alooha]

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.