title image


Smiley Re: Leerzeilen und Leerspalten raus
Hi nochmal,



nachdem ich vorher schon falsch angehängt habe, hier der Versuch einer Gesamtlösung:





Public Sub loesch_leer()

end_z = Range("a65536").End(xlUp).Row

For i = end_z To 1 Step -1

If IsEmpty(Range("a" & i).Value) = True Then

Rows(i).Delete

Else: End If

Next i



end_s = Range("IV1").End(xlToLeft).Column

For i = end_s To 1 Step -1

If IsEmpty(Cells(1, i).Value) = True Then

Columns(i).Delete

Else: End If

Next i





End Sub



Ist aber nicht gestestet!
Viele Grüße aus Frankfurt

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: