Verkürzung Makro If

Forumthread: Verkürzung Makro If

Verkürzung Makro If

Stefan

Hallo liebe VBA Experten,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Schleife

Rudi

Schleife

17.06.2011 11:56:00

Rudi

Hallo,

Sub ttt()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Vertrieb_Beziehungen_Kunden")
For i = 19 To 37 Step 2
.Rows(i).Resize(2).Hidden = .Cells(i, 2) = 2
Next i
For i = 45 To 53 Step 2
.Rows(i).Resize(2).Hidden = .Cells(i, 2) = 2
Next i
End With
End Sub

Gruß
Rudi

Forumthread: Verkürzung Makro If

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread