title image


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



vergiss meinen letzten Beitrag und mach bitte folgendes:



füge die Variable ein:



Dim lLetzte As Long



und ersetzte die beiden ClearContents Statements mit folgender Sequenz:



lLetzte = WkSh_O.Range("A65536").End(xlUp).Row

If lLetzte < 7 Then lLetzte = 7

WkSh_O.Range("A7:Z" & lLetzte).ClearContents

lLetzte = WkSh_E.Range("A65536").End(xlUp).Row

If lLetzte < 7 Then lLetzte = 7

WkSh_E.Range("A7:Z" & lLetzte).ClearContents



dann sollte vor Zeile 7 nichts mehr gelöscht werden.



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: