AW: leere Zeilen automatisch ausblenden
26.09.2003 14:37:56
Andi_H
Hallo Matthias,
dieses Makro blendet alle leere Zeilen aus. Überprüft wird Spalte A, sollte diese ZElle leer sein wird die Zeile ausgeblendet.
Den Code in ein Modul kopieren und das Makro starten
Sub ausblenden()
' spalten anpassen: bei cells(reihe,Spalte) hinter dem Komma Spaltenindex ändern
for i = 1 to cells(65000,1).end(xlup).row
if isempty(cells(i,1)) then
rows(i).hidden = true
end if
next
End Sub
Gruß
ANdi