title image


Smiley Re: Leere Zeilen löschen
Hi!



Sub Leerzellen_Loeschen()

Dim Rn As Range

Set Rn = ActiveSheet.Range("A1:A10")

Rn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Set Rn = Nothing

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: