Office: (Office 365) Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

Hallo Leute,

Ich habe mal wieder ein Problem, ich hoffe ihr könnt mir hier helfen! :)
Habe hier schon ein Makro soweit, aber es macht halt noch nicht genau das was es soll, woran ich natürlich scheitere hehe.

Das Makro soll in der Reihe 17 genau bei D17 anfangen zu suchen, erstmal bis zum ende um dieses festzulegen.
In der letzten Reihe steht "Date_Time" deshalb suche ich danach um diese zu finden.
Sobald ich weiß wie viele Zellen wir haben bzw. wo die letze ist, durchsuche ich alle reihen in 17 also von D17 bis XY?17 nach dem Text -INFO-.
Wenn dieser gefunden wird soll er die Zeile löschen, also nicht nur leer machen sondern komplett entfernen.

Das ist was das Makro auch tut, aber mein Problem ist das auch alles was über Reihe 17 ist gelöscht wird.
Im Optimal Fall würde ich gerne alles von D17 bis D300 löschen wenn er -INFO- findet, also die reihen darüber nicht.

Hat jemand eine schlaue Idee wie ich das machen könnte? habs mit Trim versucht, aber dann löscht er nur den Inhalt.

Würde mich sehr freuen,

LG

 

Hi,

Code:

ws.Columns(col).Delete

Das löscht nun mal eine komplette Spalte und nicht nur ab Zeile 17.

Vor allem willst du denn nun Spalten oder Zeilen löschen?
Dein Code löscht nämlich Spalten, sobald irgendwo in der Spalte in einer Zelle "-INFO-" vorkommt. Dein Text liest sich aber anders.

Wenn du nur Zeile 17-300 der betreffenden Spalte löschen willst, dann geht das mit

Code:

ws.Range(Cells(17, col), Cells(300, col)).Delete Shift:=xlShiftToLeft

 

Sorry für die Schlechte Beschreibung, manchmal verhaspel ich mich da mit Column, Spalte, Zelle, Zeile, Row.. :)

Aber dein Code ist genau das was ich gesucht habe!

Vielen Lieben Dank, ich werde ihn mir hinter die Ohren schreiben :)

Lg

 

Hi, noch eine Anmerkung: Wenn du deine Schleife von hinten nach vorne laufen lässt, dann kannst du dir die Anpassung deiner Variablen schenken:

Code:

For col = endCol To 4 Step -1
    If Application.WorksheetFunction.CountIf(ws.Columns(col), "*-INFO-*") > 0 Then
        ws.Range(Cells(17, col), Cells(300, col)).Delete Shift:=xlShiftToLeft
    End If
Next col

 

Das sieht dann bestimmt lustig aus