Wenn-dann in VBA
Jenny
ich habe eine kleine Frage zu unten stehendem Code - da ich mit VBA noch ganz am Anfang bin, hoffe ich, Ihr könnt mir weiterhelfen: :-)
Der Code blendet am Ende die Zeile 6 ein, diese ist jedoch je nach vorheriger Nutzung der Tabelle bereits eingeblendet.
Könnt Ihr mir sagen, wie ich hier eine Wenn-dann Bedingung vorschalte, die prüft, ob die Zeile bereits eingeblendet ist und dann diesen Schritt einfach ohne Markierung der Zeile überspringt ?
Wenn Euch sonst noch etwas zu dem Code auffällt, könnt Ihr das gerne auch sagen. ;-)
Sub Search()
With ActiveWorkbook.Worksheets("Policy Search")
Selection.AutoFilter Field:=1, _
Criteria1:=Range("L2")
Columns("C:J").Select
With Selection
.WrapText = True
End With
Selection.AutoFilter Field:=2, _
Criteria1:=Range("M2")
Range("K3").Select
ActiveCell.FormulaR1C1 = "1"
Rows("6:6").Select
Selection.EntireRow.Hidden = False
Range("D2").Select
Statistic (Range("D2").Value)
End With
End Sub
Jenny