Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

#NV-Zellen löschen

#NV-Zellen löschen
11.02.2004 09:34:34
Daniel
Hallo zusammen!
Eine kurze Frage an die VBA-Könner: Wie muss ein Makro aussehen, welches automatisch alle Zeilen löscht, in denen nur #NV-Werte in den Zellen stehen?!
Gruß und Dank
Daniel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Teil eines größeren Problems
11.02.2004 09:44:30
Daniel
Hi Andreas!
Ein Makro wär schon nicht schlecht, weil ich versuche einen Auto-Filter zu umgehen, der einfach nicht funktionieren will! Aber wenn du dir netterweise mal meinen alten Post zu diesem Filter anschauen könntest und dir dazu eine Lösung einfällt, wäre es natürlich noch besser :)! [Unter Offene Fragen: Filter-Quellcode-Problem - Daniel 10.02.2004 15:53:49 ]
Viele Dank schon Vorab!
Gruß Daniel
AW: Teil eines größeren Problems
11.02.2004 18:58:14
Stefan
Stehen denn die #NV immer in einer Spalte oder in mehreren?
Anzeige
AW: Teil eines größeren Problems
12.02.2004 09:13:37
Daniel
hallo Stefan - in mehreren
AW: Teil eines größeren Problems
13.02.2004 14:34:19
Stefan
Hier das Makro welches nur die #NV - Fehler löscht :-)
schneller läuft es wenn die Hochkommata
vor "Application.ScreenUpdating entfernt" werden weil dann nicht mehr
auf dem Bildschirm angezeigt werden muß was gerade passiert.


Sub Z_Loeschen()
AnzahlSpalten = Range("A1").SpecialCells(xlCellTypeLastCell).Column
AnzahlZeilen = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Zeile = 1
Spalte = 1
'Application.ScreenUpdating = False
Do While Spalte < AnzahlSpalten + 1
Do While Zeile < AnzahlZeilen + 1
If IsError(Cells(Zeile, Spalte).Value) Then
errval = Cells(Zeile, Spalte).Value
Select Case errval
Case CVErr(xlErrNA)
Cells(Zeile, Spalte).EntireRow.Delete
Case Else
Zeile = Zeile + 1
End Select
Else
Zeile = Zeile + 1
End If
Loop
Zeile = 1
Spalte = Spalte + 1
Loop
Range("A1").Select
'Application.ScreenUpdating = True
End Sub




Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige