diese vielen Zugriffe auf Zellebene dauern halt etwas.
hier wäre es angeraten mittels union die betreffenden Zeilen zu ermitteln und sie mit einem Mal ein oder auszublenden.
ich schätze du hast das screenupdating und die calculation nicht entsprechend umgeschaltet. somit wird mit jeder ausgeblendeten Zeile dies ausgelöst und abgearbeitet.
wo genau wird dein Code ausgeführt und wie wir er ausgelöst?
Rows("24").Hidden = IsEmpty(Range("A24").Value) man kann die Logik auch umkehren
Isempty() gibt ein wahr oder falsch zurück und das kannst du direkt auf das hidden zuweisen.
eine andere Möglichkeit deine Variante darzustellen wäre so
Rows(24).Hidden = IsEmpty(Range("A24").Value)
Rows(24).offset(1)=not Rows(24).Hidden 'nächste Zeile entgegengesetzt sichtbar machen
Du solltest keinen Text ( "24" ) als Parameter verwenden wenn du eine Zahl (24) meinst.
|