Verkürzung Makro If
Stefan
ich habe hier den folgenden Makro, den ich recht oft wiederholen muss. Könnte man diesen ev auch kürzer schreiben. Dadurch würde sich der Ablauf ggf. auch ein wenig verkürzen!
Vielen Dank für eure Hilfe!
Gruß
Stefan
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B19") = 2 Then
.Rows("19:21").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B21") = 2 Then
.Rows("21:22").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B23") = 2 Then
.Rows("23:24").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B25") = 2 Then
.Rows("25:26").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B27") = 2 Then
.Rows("27:28").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B29") = 2 Then
.Rows("29:30").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B31") = 2 Then
.Rows("31:32").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B33") = 2 Then
.Rows("33:34").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B35") = 2 Then
.Rows("35:36").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B37") = 2 Then
.Rows("37:38").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B45") = 2 Then
.Rows("45:46").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B47") = 2 Then
.Rows("47:48").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B49") = 2 Then
.Rows("49:50").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B51") = 2 Then
.Rows("51:52").EntireRow.Hidden = True
End If
If Worksheets("Vertrieb_Beziehungen_Kunden").Range("B53") = 2 Then
.Rows("53:54").EntireRow.Hidden = True
End If