Löschen der Zeile, wenn Zelle einen bestimmten Wert beinhaltet
Löschen der Zeile, wenn Zelle einen bestimmten Wert beinhaltet
Hallo,
ich habe eine Software-Liste als eine Excel-Datei:
(A-Softwarebezeichnung, B-Hersteller, C-Kommentar usw.)
...
eDrawings 2008 SolidWorks
GNU Ghostscript 7.05
...
Hotfix für Windows XP (KB979306) Microsoft Corporation
Hotfix für Windows XP (KB981793) Microsoft Corporation
...
Sicherheitsupdate für Windows Internet Explorer 7 (KB972260)
Sicherheitsupdate für Windows Internet Explorer 7 (KB972295)
...
Update für Windows XP (KB2467659)
Update für Windows XP (KB2469664)
..
Nun möchte ich die komplette Zeilen, die in A mit "Hotfix" und "Sicherheitsupdate" sowie "Update" beginnen, löschen, also von "Müll-Einträgen" bereinigen.
Es Beispiel habe ich:
Alle leeren Zellen löschen:
bzw.Löschen aller Zellen in Spalte A mit "hallo" im Text:
Das ist aber nicht das ich brauche.
Für Hilfe Danke!!
ich habe eine Software-Liste als eine Excel-Datei:
(A-Softwarebezeichnung, B-Hersteller, C-Kommentar usw.)
...
eDrawings 2008 SolidWorks
GNU Ghostscript 7.05
...
Hotfix für Windows XP (KB979306) Microsoft Corporation
Hotfix für Windows XP (KB981793) Microsoft Corporation
...
Sicherheitsupdate für Windows Internet Explorer 7 (KB972260)
Sicherheitsupdate für Windows Internet Explorer 7 (KB972295)
...
Update für Windows XP (KB2467659)
Update für Windows XP (KB2469664)
..
Nun möchte ich die komplette Zeilen, die in A mit "Hotfix" und "Sicherheitsupdate" sowie "Update" beginnen, löschen, also von "Müll-Einträgen" bereinigen.
Es Beispiel habe ich:
Alle leeren Zellen löschen:
Sub DeleteEmptys()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In ActiveSheet.UsedRange
If IsEmpty(rng) Then rng.Delete xlShiftUp
Next rng
Application.ScreenUpdating = True
End Sub
Sub DeleteQueryCells()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("hallo", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End Sub
Das ist aber nicht das ich brauche.
Für Hilfe Danke!!
Please also mark the comments that contributed to the solution of the article
Content-Key: 177646
Url: https://administrator.de/contentid/177646
Printed on: April 26, 2024 at 21:04 o'clock
8 Comments
Latest comment
Hallo caffeebone11 und willkommen im Forum!
Für ein Suchwort zB so:
Um alle Begriffe durchzugehen, könntest Du das Sub mit Übergabe des Suchwortes als Parameter aufrufen ...
Grüße
bastla
Für ein Suchwort zB so:
Sub DeleteQueryCells()
Do While Not IsError(var)
var = Application.Match("Sicherheitsupdate*", Columns(1), 0)
If Not IsError(var) Then Rows(var).Delete
Loop
End Sub
Grüße
bastla
Hallo caffebone11!
... etwa (ungetestet):
Den "*" müsstest Du nicht unbedingt für jeden Suchbegriff mit eingeben, wenn in allen Fällen das gesuchte Wort am Anfang der Zelle steht - dann könntest Du die Zeile 6 auch so schreiben:
Grüße
bastla
Mehrere var-Variablen helfen an der Stelle nicht oder?
Genau deswegen gibt es Schleifen ...... etwa (ungetestet):
Sub WegDamit()
Begriffe = Array("Sicherheitsupdate*", "Hotfix*", "Update*")
For Each Begriff In Begriffe
Do While Not IsError(var)
var = Application.Match(Begriff, Columns(1), 0)
If Not IsError(var) Then Rows(var).Delete
Loop
Next
End Sub
var = Application.Match(Begriff & "*", Columns(1), 0)
bastla