|
Hallo nochmals, ich habe folgenden Code in 2 Modulen, exakt identisch:
With ABCD
'Blatt wechseln
.Activate
'kopieren
.UsedRange.Delete
TB1.UsedRange.Copy
.Cells(1, 1).PasteSpecial xlPasteValues
........
In einem Modul wird die existierene Tabelle gelöscht, und die neue später eingefügt, im zweiten Modul wird mit .UsedRange.Copy die Zeilen außen markiert. Darauf folgt eine Warnmeldung Blattzeile wirklich löschen?
Wenn ich diese akzeptiere dann löscht er mir ~600 Zeilen und ich kann nicht weiter hoch scrollen.
Mein Excel sheet beginnt also mit Zeile ~600.
Woher kommt das und wie bekomm ich die Blattzeilen löschen weg?
Ich weiß dass ich die Meldung unterdrück kann mit
Application.DisplayAlerts = False
blablabla
Application.DisplayAlerts = True
Jedoch werden trotzdem die Zeilen vollständig gelöscht und nicht nur der Inhalt der Zeilen.
Gruß Guest 007
|