title image


Smiley Re: Nexte Frage: Leere Zeilen löschen?
Hallo,versuchs mal damit: Sub DeleteRowIfEmpty() Dim EmptyRow For Each EmptyRow In ActiveSheet.UsedRange 'Check each row, delete if empty. If Application.CountA(EmptyRow.EntireRow) = 0 Then EmptyRow.EntireRow.Delete 'Recursive Structure to call this sub again. DeleteRowIfEmpty End If Next EmptyRowEnd SubViele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: