Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen bei bestimmten Zellinhalt?

Zeilen löschen bei bestimmten Zellinhalt?
28.02.2008 17:25:00
Selma
Hallo Leute,
ich habe iene Frage: wenn in Spalte D der Zellinhalt
Eingangsliste.xls oder
Vertragsunterlagen.doc
oder links mit P-020016 oder Berechnung anfängt, dann möchte ich diese ZEILEN löschen.
Wie mache ich das per VBA?
Vielen Dank im Voraus.
Viele Grüße,
Selma

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen bei bestimmten Zellinhalt?
28.02.2008 17:58:00
Beverly
Hi Selma,

Sub loeschen()
Dim loLetzte As Long
Dim loZeile As Long
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For loZeile = loLetzte To 1 Step -1
If Cells(loZeile, 1) = "Eingangsliste.xls" Or Cells(loZeile, 1) = "Vertragsunterlagen. _
doc" Then
Rows(loZeile).EntireRow.Delete
ElseIf Left(Cells(loZeile, 1), 8) = "P-020016" Or Left(Cells(loZeile, 1), 10) = " _
Berechnung" Then
Rows(loZeile).EntireRow.Delete
End If
Next loZeile
End Sub



Anzeige
AW: Zeilen löschen bei bestimmten Zellinhalt?
28.02.2008 22:49:00
Selma
Vielen Dank Karin !
LG
Selma

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige