Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmte Einträge löschen lassen

bestimmte Einträge löschen lassen
12.08.2007 15:42:00
Thomas
Hallo zusammen,
ich würde gern per makro bestimmte einträge löschen lassen.
In meiner Spalte A stehen verschiedene Werte untereinander. Jetzt würde ich gern alle Einträge welche sich nicht aus dem Buchstaben A und vier Zahlen zusammensetzen löschen. Allerdings gibt es auch Einträge die mit dem Buchstaben A und N anfangen und dann vier Zahlen haben.....die will ich aber auch raus haben...
Also Bsp.
A1236 - ok
A6755 - ok
8789 - löschen
AN8766 - löschen
AN-76565 - löschen
Kann mir dabei einer helfen? Vielen Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Einträge löschen lassen
12.08.2007 15:55:04
Hajo_Zi
Hallo Thomas,

Option Explicit
Sub loeschen()
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = LoLetzte To 1 Step -1
If Not (Left(Cells(LoI, 1), 1) = "A" And IsNumeric(Mid(Cells(LoI, 1), 2, 1))) Then
Rows(LoI).Delete
End If
Next
End Sub



AW: bestimmte Einträge löschen lassen
12.08.2007 16:04:00
Thomas
Hallo Hajo,
das klappt perfekt!!! Vielen Dank für Deine prompte Hilfe!!!
Gruss
T
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige