Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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
Anzeige
Schleife
17.06.2011 09: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige