Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bestimmte Kombinationen in Zelle erkennen&löschen

Bestimmte Kombinationen in Zelle erkennen&löschen
03.01.2017 18:14:11
Marv
Hallo Zusammen,
in Spalte D habe ich Kombinationen verschiedener Einträge z.B. "Vertrag 12345 genehmigt" oder "Vertrag 12345 freigegeben".
Jetzt möchte ich beispielsweise alle Zellen löschen, in denen die Kombination der Wörter "Vertrag" und "genehmigt" vorkommen... Das Makro muss wirklich nur diese Kombination in einer Zelle suchen. Sollte die Kombination "Vertrag" und "freigegeben" gefunden werden, wird diese daher nicht gelöscht.
Ein einem weiteren Beispiel steht in einer Zelle "ID 12345 gefunden" und in einer anderen "ID 12345 geschlossen". Jetzt soll nur die letztere Kombination aus "ID" und "geschlossen" gesucht und gelöscht werden.
Dieses möchte ich auch für viele andere Kombinationen machen, daher wäre es gut, wenn ich die spezifischen Kombinationen irgendwie in den Code übersichtlich eingeben könnte. Und es ist wichtig, dass alles über ein Makro läuft und ich nicht für jede Kombi ein eignes Makro starten muss.
Wie könnte ich dies programmieren?
Super vielen Dank für eure Hilfe.
Grüße
Marv
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Bestimmte Kombinationen in Zelle erkennen&löschen
03.01.2017 18:26:00
Hajo_Zi

Option Explicit
Sub Loschen_nicht_leeren()
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows. _
Count)
For LoI = Loletzte To 1 Step -1
If InStr(Cells(LoI, 4), "Vertrag") > 0 And InStr(Cells(LoI, 4), "genehmigt") > 0 Then
Cells(LoI, 4).Delete
End If
Next LoI
End Sub


Anzeige
AW: Bestimmte Kombinationen in Zelle erkennen
03.01.2017 18:33:41
Marv
Hi Hajo,
danke für die super schnelle Antwort.
Damit ich den Code selber weiterschreiben kann, wie würde ich jetzt das zweite Beispiel in den Code einbauen? Sodass er beide Kombinationen mit einem Durchlauf löscht?
Grüße
Marv
AW: Bestimmte Kombinationen in Zelle erkennen
03.01.2017 18:43:44
Hajo_Zi
ich sehe das zweite Beispiel nicht, da nicht im letzten Beitrag.
Ersetze die Suchwörter.
Gruß Hajo
Anzeige
AW: Bestimmte Kombinationen in Zelle erkennen&löschen
03.01.2017 18:52:54
Daniel
Hi
wenn die Werte nicht durch Formeln erzeugt werden, dann so:
1. ersetze die gesuchten Kombinantionen mit der Zahl 1
beim Erstetzen sind auch Platzhalter wie * möglich
2. lösche dann alle Zeilen die eine Zahl enthalten.
das geht über die Menüfunktion START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - KONSTANTEN - ZAHLEN
With Range("D:D")
.Replace "Vertrag * genehmigt", 1, xlwhole
.Replace "ID * geschlossen", 1, xlwhole
'.. hier dann ggf weiter Kombinationen eingeben
if Worksheetfunction.Sum(.Cells) > 0 then
.SpecialCells(xlcelltypeconstans, 1).entireRow.Delete
end if
End with
gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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