Office: (Office 2013) Löschen von Zeilen mit Makro

crizu · 15. April 2020

ein wirkliches Muster gibt es leider auch nicht.

es soll im Grunde gesucht werden in welcher Zelle steht "Einheit Musterstadt"
alle Zeilen davor sollen gelöscht werden.

dann soll er schauen wo steht als nächstes "Summe".
ab der Zeile danach bis zur Zeile vor "Einheit X-Hausen" soll gelöscht werden.

und dann von das gleiche bis "Q-Dorf"
und alles was dann nach der nächsten "Summe" kommt

aloys78 · 15. April 2020

Hallo Uwe,

leider kann ich (immer noch) kein Muster für die Auswahl erkennen. Da muss ich passen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Auswahl der zu löschenden Daten hatte ich schon in den Beiträgen #2 und #9 thematisiert.

Aber auch nach der "Klarstellung" in #16 habe ich die Auswahlkriterien immer noch nicht verstanden.

crizu · 15. April 2020

wie soll ich das erklären.
in der Tabelle sind einfach Daten enthalten, die mich nicht interessieren und das ganze nur unübersichtlich machen.
deswegen sollen nur bestimmte Einheiten übrig bleiben.

Fennek11 · 15. April 2020

ok, wenn das Programm nicht erkennen kann, was gelöscht werden soll, muss es eben der Humanoide vor dem Bildschirm übernehmen.

Der Cursor wird in den zu löschenden Block gestellt. Am Besten wird dieser Code mit einem Tastatur-Shortcut gestartet:

Code:

Sub Main
activecell.currentregion.entirerow.delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

crizu · 16. April 2020

Das Programm sollte aber doch erkennen können, was gelöscht werden soll.
In den von Uwe Küstner geschrieben Code lässt es jeden Wert hinter "Einheit" der ein Vielfaches von "3" ist stehen.

In meinem Fall steht hier allerdings keine Zahl, sondern eben eine feste Bezeichnung.

aloys78 · 16. April 2020

Hallo crizu,

in der Tabelle sind einfach Daten enthalten, die mich nicht interessieren
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist ja genau das Problem!
Woher soll das der Code wissen?

Eine Möglichkeit, um diese uninteressanten Blöcke zu entfernen, wäre:
- DoppelClick auf "Einheit ..." in Spalte A
- das Programm entfernt dann die Zeilen bis einschließlich der Summenzeile

crizu · 16. April 2020

das funktioniert leider nicht

Ziel von dem ganzen ist einfach nur das Arbeiten für meine Kollegen zu vereinfachen.
Die Tabelle ist irrsinnig lang und muss täglich 3x ausgewertet werden.

aloys78 · 16. April 2020

Hallo crizu,

Ziel von dem ganzen ist einfach nur das Arbeiten für meine Kollegen zu vereinfachen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann frag doch mal die Kollegen, nach welchen Kriterien sie heute die Auswahl treffen.

Uwe Küstner · 16. April 2020

Hallo,

hier mit festen Werten, die in das Array (arrFilter) kommagetrennt einzutragen sind:

Code:

Sub Main_UK()
Dim i As Long, j As Long
Dim arrFilter() As Variant

arrFilter = Array("Einheit Beispielhausen", "Einheit X-Hausen", "Einheit Q-Dorf")

Application.ScreenUpdating = False
With Range("A2", Cells(Rows.Count, 1)).SpecialCells(2).Areas
For i = .Count - 1 To 1 Step -1
For j = LBound(arrFilter) To UBound(arrFilter)
If .Item(i).Cells(1).Value = arrFilter(j) Then
Exit For
End If
Next j
If j > UBound(arrFilter) Then .Item(i).EntireRow.Delete
Next i
End With
With Range("A2", Cells(Rows.Count, 1)).SpecialCells(4).Areas
For i = .Count To 1 Step -1
If .Item(i).Rows.Count > 1 Then
.Item(i).Range("2:" & .Item(i).Rows.Count).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

crizu · 17. April 2020

Du bist der Wahnsinn

Ist es dann noch möglich das Feld mit dem Eintrag "Summe" mit dem Zusatz der "Einheit" z.B. "Summe Einheit Beispielhausen" zu ergänzen?

Uwe Küstner · 17. April 2020

Hallo crizu,

mit Ergänzung Summe:

Code:

Sub Main_UK()
Dim i As Long, j As Long
Dim arrFilter() As Variant

arrFilter = Array("Einheit Beispielhausen", "Einheit X-Hausen", "Einheit Q-Dorf")

Application.ScreenUpdating = False
With Range("A2", Cells(Rows.Count, 1)).SpecialCells(2).Areas
For i = .Count - 1 To 1 Step -1
For j = LBound(arrFilter) To UBound(arrFilter)
If .Item(i).Cells(1).Value = arrFilter(j) Then
Exit For
End If
Next j
Debug.Print .Item(i).Address
If j > UBound(arrFilter) Then
.Item(i).EntireRow.Delete
Else
.Item(i).Cells(.Item(i).Rows.Count, 1).Value = "Summe von " & arrFilter(j)
End If
Next i
End With
With Range("A2", Cells(Rows.Count, 1)).SpecialCells(4).Areas
For i = .Count To 1 Step -1
If .Item(i).Rows.Count > 1 Then
.Item(i).Range("2:" & .Item(i).Rows.Count).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Löschen von Zeilen mit Makro

Löschen von Zeilen mit Makro

Löschen von Zeilen mit Makro

Löschen von Zeilen mit Makro

Löschen von Zeilen mit Makro

Löschen von Zeilen mit Makro - Similar Threads - Löschen Zeilen Makro

per VBA Zeile in der Liste löschen

VBA programmieren

Makro - Kombination aus Zeile löschen oder Text ersetzen

Makro Problem nach Wörtern filtern und Zeilen löschen

Makro zum löschen von Zeilen

Excel 2010 - Makro zum Auffinden einer variablen Zeile und Löschen derer Inhalte

VBA Komplette Zeilen löschen mit Autofilter mit Makro