Wie kann ich meine Excel (VBA) "Zeile Ein- und Ausblenden Formel" vereinfachen?
Hallo zusammen
Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)
Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A11") = 0 Then
Rows("11:12").EntireRow.Hidden = True
End If
If Range("A11") <> 0 Then
Rows("11:12").EntireRow.Hidden = False
End If
If Range("A13") = 0 Then
Rows("13:14").EntireRow.Hidden = True
End If
If Range("A13") <> 0 Then
Rows("13:14").EntireRow.Hidden = False
End If
If Range("A15") = 0 Then
Rows("15:16").EntireRow.Hidden = True
End If
If Range("A15") <> 0 Then
Rows("15:16").EntireRow.Hidden = False
End If
...
(UNTERBRUCH) ...........das geht weiter bis "A360"
...
End Sub
Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?
Danke euch.
Gruss Swen