Anzeige
Archiv - Navigation
1172to1176
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

cells.replace

cells.replace
Stefan
Hi,
nach einem sverweis und werte kopieren im Makro möchte ich alle #NV löschen. Habe dies mit
Columns("A:A").Select
Cells.Replace What:="#NV", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
versucht, aber irgendwie passiert gar nichts.
Hat jemand eine Idee ?
Danke und LG
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
VBA spricht Englisch
18.08.2010 12:21:16
Backowe
Hi Stefan,
Columns(1).Replace "#N/A", ""
Gruß Jürgen
Erweitertes #NV ersetzen
18.08.2010 14:21:27
NoNet
Hallo Stefan,
falls im markierten bzw. angegebenen Bereich mehrere #NV-Werte unterschiedlichen Typs (Funktionsresultat oder konstanter Wert) vorkommen können, dann könntest Du folgendes Makro verwenden :
Sub NVErsetzen()
'18.08.2010, NoNet - www.excelei.de
Dim rngZelle As Range, rngBereich As Range, rngFehlerbereich As Range
Set rngBereich = Selection 'oder auch : Set rngBereich=[A1:F100]
If Application.CountIf(rngBereich, CVErr(xlErrNA)) Then
On Error Resume Next
'Nur Fehlerzellen, die einen Fehlerwert als Funktionsergebnis enthalten :
Set rngFehlerbereich = rngBereich.SpecialCells(xlCellTypeFormulas, 16)
If rngFehlerbereich Is Nothing Then
'Nur Fehler-KONSTANTEN, also #NV in Zelle
Set rngFehlerbereich = rngBereich.SpecialCells(xlCellTypeConstants, 16)
Else
'Fehlerwert als Funktionsergebnis verknüpft mit Fehlerwert als Konstante :
Set rngFehlerbereich = Union(rngFehlerbereich, _
rngBereich.SpecialCells(xlCellTypeConstants, 16))
End If
For Each rngZelle In rngFehlerbereich
'#NV durch Leerstring ersetzen : CVErr(xlErrNA) = VBA-Syntax für #NV
If rngZelle.Value = CVErr(xlErrNA) Then rngZelle.Value = ""
Next
End If
End Sub
Gruß, NoNet
Anzeige
AW: Erweitertes #NV ersetzen
19.08.2010 09:59:17
Stefan
Hallo NoNet,
vielen Dank für das Makro.
Ich werde es verwenden !!!
THX & LG
Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige