Office: Zeilen löschen durch ein Makro

Hallöchen Zusammen,

ich benötige leider mal wieder eure Hilfe zu einem Makro. Ich arbeite seit neuestem mit der 2010er Version.

Ich möchte per Makro Zeilen löschen in der das Wort Artikelsumme steht. Ist so etwas möglich?

Vielen Dank schon mal im Vorraus und

viele Grüße von htumm

 

Hallo htumm,

Wo steht das Wort Artikelsumme? Immer in der gleichen Spalte? Und immer als einzelnes Wort in der Zelle? Dann brauchst Du nur ein Makro das einen Filter setzt und die angezeigten Zeilen löscht.

Wenn Du mir die Datei genauer beschreibst mach ich Dir gerne en Beispiel.

Gruß Michael

 

Hallo Michael,

das Wort Artikelsumme steht immer in der gleichen Spalte, aber zwischen den den Zeilen, wo das Wort Artikelsumme steht sind auch Leerzeilen, sodass Filter erst über Umwegen gesetzt werden können.

Die Datei "wächst" jeden Monat an, das heißt, es kommen durch Buchungen immer neue Zeilen hinzu.

Ich hoffe die Beschreibung ist ausreichend. Vielen Dank schon mal für die Hilfe.

Grüße
htumm

 

Hallo htumm,

also mit der heißen Nadel gestrickt würde ich folgendes vorschlagen:

Code:

Sub Artikelsumme_loeschen()

    Columns("A:E").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$E$1000000").AutoFilter Field:=1, Criteria1:= _
        "Artikelsumme"
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    ActiveSheet.Range("$A$1:$E$1000000").AutoFilter Field:=1
End Sub

Das Makro macht folgendes. Es setzt einen Filter auf die Spalten A bis E. Dann filtert es in Spalte A auf Artikelsumme, wählt alle angezeigten Felder aus und löscht die Zeilen.

Musst Du halt mal testen, je nachdem wie deine Spalten aussehen muss es noch angepasst werden.

ACHTUNG: Vorher Sicherungskopie machen!

Gruß
Michael

 

yau, passt. Vielen Dank für die Erleichterung

Gruß
htumm

 

Gern. Viel Spaß damit.

 

Warum denn "Selection.Entire(!)Row(!).Delete? Ich hätte aus Intuition Cells genommen, müsste auch klappen oder? Werde mir nun auch erstmal diese Schöne Ostsee Kreuzfahrten buchen.....