#NV-Zellen löschen

Forumthread: #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

AW: #NV-Zellen löschen

11.02.2004 09:39:17

AndreasS
Teil eines größeren Problems

11.02.2004 09:44:30

Daniel
AW: Teil eines größeren Problems

11.02.2004 18:58:14

Stefan
AW: Teil eines größeren Problems

12.02.2004 09:13:37

Daniel
AW: Teil eines größeren Problems

13.02.2004 14:34:19

Stefan

AW: #NV-Zellen löschen

11.02.2004 09:39:17

AndreasS

Morgen,
muß es ein Makro sein?
https://www.herber.de/mailing/002797h.htm
Gruß Andreas

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?

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

Beliebteste Forumthreads (12 Monate)

Forumthread: #NV-Zellen löschen

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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread