Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1960to1964
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

VBA Alle Zeilen löschen, die ".com" enthalten

VBA Alle Zeilen löschen, die ".com" enthalten
18.01.2024 12:19:28
Tijana67
Hallo zusammen,

ich habe bereits überall gesucht und bin einfach nicht fündig geworden. Ich habe eine Excel-Liste mit Webseiten (zB. krone.com, leben.at, etc.) und würde gerne alle Zeilen, die das Wortschnipsel ".com" enthalten, löschen. Ich habe folgenden Code, der nur funktioniert, wenn ich eine konkrete Seite zB "krone.com" eingebe. Sobald ich aber "*" den Stern als Platzhalter einsetze, damit er alle Zeilen, die .com enthalten löscht, tut er es nicht.

Sub com()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "*.com" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Habt ihr eine Idee, wie ich das lösen kann?

Danke euch & Liebe Grüße,
Tijana

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Cells(i, 1) like "*.com" (owT)
18.01.2024 12:49:52
peter
AW: VBA Alle Zeilen löschen, die ".com" enthalten
18.01.2024 12:50:37
Freeloader
Hallo Tijana

Ersetze

If Cells(i, 1) = "*.com" Then


durch

If InStr(1, Cells(i, 1), ".com", vbTextCompare) Then



Gruss Henner
AW: VBA Alle Zeilen löschen, die ".com" enthalten
18.01.2024 13:17:58
daniel
HI
wenn die Werte als feste Texte in den Zellen stehen, gehts etwas einfacher.

with columns(1)

.replace "*.com*", True, xlwhole
.Specialcells(xlcelltypeconstants, 4).EntireRow.Delete
endwith


Gruß Daniel
AW: VBA Alle Zeilen löschen, die ".com" enthalten
18.01.2024 12:58:00
Tijana67
Hi Henner,

super, danke hat geklappt! :-)

LG Tijana
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige