Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1180to1184
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

Zeile nach Export löschen

Zeile nach Export löschen
Michael
Hallo,
nach einem Export steht in Spalte 26 entweder der Wert FALSCH ODER WAHR . Wenn WAHR erscheint, soll die entsprechene Zeile gelöscht werden?
Kann mir jemand helfen ?
Gruß
Michael

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile nach Export löschen
07.10.2010 23:11:04
fcs
Hallo Michael,
hier ein entsprechendes Makro.
Gruß
Franz
Sub Delete_WAHR()
Dim wks As Worksheet
Dim rZeilen As Range, Zeile As Long, Spalte As Long
Set wks = ActiveSheet 'oder:  = Worksheets("TabelleXYZ")
Spalte = 21
With wks
For Zeile = 1 To .Cells(.Rows.Count, Spalte).End(xlUp).Row
If .Cells(Zeile, Spalte) = True Then
If rZeilen Is Nothing Then
Set rZeilen = .Cells(Zeile, Spalte)
Else
Set rZeilen = Application.Union(rZeilen, .Cells(Zeile, Spalte))
End If
End If
Next
If Not rZeilen Is Nothing Then
rZeilen.EntireRow.Delete shift:=xlShiftUp
End If
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige