Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
hier die sortiete Liste.
Angehängte Dateien
Blauen Block sortieren (1).xlsm (Größe: 12,76 KB / Downloads: 5)
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 28.09.2017
Version(en): Office 365
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
Registriert seit: 28.09.2017
Version(en): Office 365
...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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
If n <> 15 and n <> ... Then
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 28.09.2017
Version(en): Office 365
Sorry, das verstehe ich nicht! Wo kommt die 15 her?
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
ich zitiere Dich mal
Zitat: und das versteckte Blatt15
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 28.09.2017
Version(en): Office 365
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.