VBA zu langsam
23.08.2016 11:01:53
Holger
bin sehr neu und leider habe ich so gut wie keine Ahnung von VBA!
Habe allerdings ein Problem, dass ich diser Code dazu führt, dass mein Excel zu lange laden tut. Könnte mir evtl. jeamand helfen, dass Problem zu lösen.
Die Tabelle geht bis B90!
Sub Worksheet_Activate()
If Trim(Range("b8")) = "" Then Rows(8).EntireRow.Hidden = True
IF Trim(Range("b8")) "" Then Rows(8).EntireRow.Hidden = False
If Trim(Range("b9")) = "" Then Rows(9).EntireRow.Hidden = True
If Trim(Range("b9")) "" Then Rows(9).EntireRow.Hidden = False
If Trim(Range("b10")) = "" Then Rows(10).EntireRow.Hidden = True
If Trim(Range("b10")) "" Then Rows(10).EntireRow.Hidden = False
If Trim(Range("b11")) = "" Then Rows(11).EntireRow.Hidden = True
If Trim(Range("b11")) "" Then Rows(11).EntireRow.Hidden = False
If Trim(Range("b12")) = "" Then Rows(12).EntireRow.Hidden = True
If Trim(Range("b12")) "" Then Rows(12).EntireRow.Hidden = False
If Trim(Range("b13")) = "" Then Rows(13).EntireRow.Hidden = True
If Trim(Range("b13")) "" Then Rows(13).EntireRow.Hidden = False
If Trim(Range("b14")) = "" Then Rows(14).EntireRow.Hidden = True
If Trim(Range("b14")) "" Then Rows(14).EntireRow.Hidden = False
If Trim(Range("b15")) = "" Then Rows(15).EntireRow.Hidden = True
If Trim(Range("b15")) "" Then Rows(15).EntireRow.Hidden = False
If Trim(Range("b16")) = "" Then Rows(16).EntireRow.Hidden = True
If Trim(Range("b16")) "" Then Rows(16).EntireRow.Hidden = False
If Trim(Range("b17")) = "" Then Rows(17).EntireRow.Hidden = True
If Trim(Range("b17")) "" Then Rows(17).EntireRow.Hidden = False
If Trim(Range("b18")) = "" Then Rows(18).EntireRow.Hidden = True
If Trim(Range("b18")) "" Then Rows(18).EntireRow.Hidden = False