Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Überpfrüfung / Löschen von Zeilen

Überpfrüfung / Löschen von Zeilen
Zeilen
https://www.herber.de/bbs/user/5949.xls
In dieser Datei sollen nur die Spalten mit dem String WAHR stehen bleiben, alle mit dem String FALSCH sollen gelöscht werden...

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Überpfrüfung / Löschen von Zeilen
03.05.2004 13:46:49
Zeilen
Hallo Thorsten,
die Unbekannte, an der sich der Code gestört hatte, waren die #NV-Fehler. Jetzt wie folgt:

Sub Loeschen()
Dim lRowL As Long, lRow As Long
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
lRowL = Cells(Rows.Count, 12).End(xlUp).Row
For lRow = lRowL To 1 Step -1
If lRow Mod 100 = 0 Then
Application.StatusBar = "Bearbeite Zeile " & lRow & "..."
End If
If WorksheetFunction.IsNA(Cells(lRow, 12)) = False Then
If Cells(lRow, 12).Value = False Then
Rows(lRow).Delete
End If
End If
Next lRow
Application.StatusBar = False
Application.DisplayStatusBar = bln
Application.ScreenUpdating = True
End Sub

gruss hans
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige