Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zeilen löschen wenn

Forumthread: zeilen löschen wenn

zeilen löschen wenn
06.11.2004 16:15:01
Peter
Hi
Ich hab hier ein Problem
Ich möchte per vba alle Zeilen löschen wenn in der Spalte L das Wort inaktiv auftaucht.
Wie mach ich das am besten?
MfG
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: zeilen löschen wenn
Ramses
Hallo
mal aus der Hüfte
Option Explicit

Sub Del_Inaktiv()
Dim tarWks As Worksheet
Dim i As Integer
Set tarWks = Worksheets("Tabelle1")
For i = 20 To 1 Step -1
If InStr(1, UCase(Cells(i, 12)), "INAKTIV") > 0 Then
Rows(i).Delete
End If
Next i
End Sub

Gruss Rainer
Anzeige
AW: zeilen löschen wenn
ransi
hallo
oder so:


      
Option Explicit
Public Sub i()
Dim i As Long
For i = Range("L65536").End(xlUp).Row To 1 Step -1
On Error Resume Next
      If WorksheetFunction.CountIf(Cells(i, 12), "*inaktiv*") > 0 Then Cells(i, 12).EntireRow.Delete
Next
End Sub 


ransi
Anzeige
AW: zeilen löschen wenn
Peter
Hm, hab beide ausprobiert, aber gehen beide nicht.
Ich muß dazusagen das das Wort "inaktiv" eine Ausgabe auf eine wenn dann Funktion ist.
Kann es daran liegen?

AW: zeilen löschen wenn
Bert
"Wie mach ich das am besten?"
Am besten, indem du auf eingebaute Excelfunktionen, in diesem Fall Autofilter und
SpecialCells zurückgreifst.
Bert
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige