Makro starten beim Oeffnen der Datei
daniela.schmidt@atlantisfoundries.com
schaut euch mal das Makro hier an. Ich wuerde gerne die Zeilen ausblenden, die in der Spalte X den Wert Null haben oder gar keinen Wert haben.
Wenn ich das Makro jedoch durchfuehre, dann werden zwar die Zeilen ausgeblendet mit dem Wert 0, die anderen Zeilen, die keinen Wert haben werden jedoch nicht ausgeblendet.
Was mache ich falsch?
In der Spalte die durchsucht wird steht folgende Formel.
'=IF(ISNA(VLOOKUP(C11,'Master Data June 10'!$E$5:$W$10883,18,FALSE)),"",VLOOKUP(C11,'Master Data June 10'!$E$5:$W$10883,18,FALSE))
Also wenn diese Formel keinen Wert zurueckgibt, wird die Zeile davon nicht durch das Makro ausgeblendet!!
Sub ZeilenAusblendenJul()
On Error Resume Next
Dim i As Integer
Sheets("Material Price Developement").Activate
Application.ScreenUpdating = False
Range("X11:X39").Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, "X").Value = 0 Or IsEmpty(Cells(i, "X").Value) Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
Range("U1").Select
End Sub
Daniela
Anzeige