SpecialCells(xlCellTypeVisible), nur gefiltert
13.09.2005 12:34:55
LotharP
ich habe ein kleines Makro das mir die Formeln einer gefilterten Liste in Werte wandeln soll. Das klappt auch allerdings läuft er über den gefilterten Teil hinaus:
Public
Sub werte()
For Each cell In Range("N:N").SpecialCells(xlCellTypeVisible)
cell.Value = cell.Value
' Der If-Teil dient nur dazu aus der Schleife rauszukommen!
If cell.Row > 140 Then
MsgBox cell.Row
Exit Sub
End If
Next
End Sub
Gibt es eine Möglichkeit das anders zu lösen?
Vielen Dank im Vorraus!!
Lothar