title image


Smiley Re: Zeilen auf mehrer Tabellenblätter verteilen
Hallo Bernd,



das Problem steckt in diesen beiden Zeilen:



WkSh_O.Range("A7:Z" & WkSh_O.Range("A65536").End(xlUp).Row).ClearContents

WkSh_E.Range("A7:Z" & WkSh_E.Range("A65536").End(xlUp).Row).ClearContents



Weil ich deine Originaldatei nicht kenne, bin ich davon ausgegangen, dass in den beiden Tabelenblättern für die 'offenen' und 'erledigten' die Spalte A die meisten Daten enthält.

Deshalb Range("A65536"). Wenn es nicht die Spalte A ist, tausche das A gegen den relevanten Spalten-Buchstaben (die Spalte mit den meisten Zeilen) aus, dann sollte es funktionieren.



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: