Filtern / Ersetzen mit #NV
Ray Drayson
Ich habe 2 kleine Probleme,
1. In code kann ich nicht "Suche nach #NV und ersetze durch 0, Kann auch
nicht filtern an #NV.
#NV kommt aus ein Sverweis abfrage.
2. Wie kann ich ein anzahl von Zeilen nach ein filter option Kopieren, in
code?
Kann jemand mir helfen? bin fast am ende, bin mir sicher das es nicht so
schwear sein kann aber ich komme nicht darauf
für jedliche helfe dankbar
Ray
Melanie Breden
"Ray Drayson" schrieb:
> Ich habe 2 kleine Probleme,
>
> 1. In code kann ich nicht "Suche nach #NV und ersetze durch 0, Kann auch
> nicht filtern an #NV.
> #NV kommt aus ein Sverweis abfrage.
in VBA ersetzt folgender Code alle Formelzellen des aktiven Blattes mit dem Fehler #NV durch 0.
Sub NVLöschen()
Dim rngCell As Range
On Error GoTo Errorhandler
For Each rngCell In ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeFormulas, 16)
With rngCell
If .Text = "#NV" Then
.Value = 0
End If
End With
Next
Exit Sub
Errorhandler:
MsgBox "Es wurden keine Fehlerwerte ""#NV"" gefunden"
End Sub
>
> 2. Wie kann ich ein anzahl von Zeilen nach ein filter option Kopieren, in
> code?
>
> Kann jemand mir helfen? bin fast am ende, bin mir sicher das es nicht so
> schwear sein kann aber ich komme nicht darauf
Vielleicht hilft dir folgender Ansatz weiter?
Folgender Code kopiert alle nicht ausgeblendeten Zeilen des aktiven Blattes in die Tabelle3.
Sub CopyUnhideCells()
Dim rngQuelle As Range
Dim rngZiel As Range
Set rngQuelle = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
Set rngZiel = Worksheets("Tabelle3").Range("A1")
rngQuelle.Copy rngZiel
End Sub
--
Mit freundlichen Grüßen
Melanie Breden
_____________________
[Microsoft MVP für Excel]
Ray Drayson
Grade das richtige fur mein Problem.
macht weite so
Ray
"Melanie Breden" <Melanie...@mvps.org> schrieb im Newsbeitrag
news:ekamW5o$CHA....@TK2MSFTNGP11.phx.gbl...
Melanie Breden
"Ray Drayson" schrieb:
> Danke Melanie
>
> Grade das richtige fur mein Problem.
>
> macht weite so
danke für das Feedback :-)
Freut mich, wenn ich dir helfen konnte.