VBA um bestimmte Zeilen auszublenden
03.05.2014 08:21:22
Gaby
Ich habe ein Makro um bestimmte Spalten und Zeilen auszublenden. Es ist aber sehr langsam. Der Teil zum Ausblenden der Spalten ist ok, geht sehr schnell (ich lasse mir damit die Spalten anzeigen, die in der ersten Zeile ein X haben). Bei den Zeilen geht es darum, dass er ab Zeile A76 suchen soll bis er ein X findet, dann soll von Zeile 13 bis eine Zeile vor dieser Zeile mit X alles ausgeblendet werden. Zudem soll 22 Zeilen nach dem X bis ans Ende der Tabelle (999) alles ausgeblendet werden. Wäre froh, um alle Vorschläge, die dies etwas vereinfachen bzw. eben verschnellern!
Gaby
Sub Ausblenden()
Application.ScreenUpdating = False
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Rows("1:1").SpecialCells(xlCellTypeFormulas, 21).EntireColumn.Hidden = True
Dim row_to As Long
Range("A76:A991").Activate
Do Until UCase(ActiveCell.Value) = "X"
ActiveCell.Offset(1, 0).Activate
Loop
row_to = ActiveCell.Row - 1
Rows("1:1").EntireRow.Hidden = True
Rows("13:" & Trim(Str(row_to))).EntireRow.Hidden = True
row_to = row_to + 22
Rows(Trim(Str(row_to)) & ":999").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub