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

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

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


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
Anzeige
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
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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige