Office: löschen ab Zeile bis letzte befüllte Zeile und Filter aktiv

Hallo miteinander,

nun ich habe jetzt nach einem passenden Code gesucht, aber leider nicht diesen gefunden. Ich möchte folgendes machen. Habe eine Tabelle mit Filter und ich möchte ab Zeile A6 alle Inhalte löschen, bis zum letzten Eintrag in Zeile A in meinem Beispiel steht etwas in A300 und dann sollte er diese ganze Zeile löschen.

Und der Filter sollte wieder auf alle gesetzt werden.

Hoffe ihr könnt mir folgen, da es mit dem erklären nicht immer so ganz einfach ist.

PHP:

         'Sub AutofilterergebnisLoeschen()
'    'L?scht das Ergebnis des aktuellen Autofilters
'    'also die aktuell angezeigten Zeilen !
'    'Bereich der per Autofilter gefilterten Liste ist variabel !

'    If ActiveSheet.AutoFilterMode Then
'        If ActiveSheet.FilterMode Then
'            If MsgBox("Sollen die Zeilen des aktuellen " & vbLf & _
'            "Autofilterergebnisses komplett gel?scht werden ?", _
'                vbQuestion + vbYesNo, "Zeilen L?schen") = vbYes Then
'            With ActiveSheet.AutoFilter.Range.Offset(1)
'                .Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
'                    shift:=xlUp
'            End With
'        End If
'    Else
'        MsgBox "Es wurden keine Filterkriterien angegeben !"
'    End If
'    Else
'    MsgBox "Es ist kein Autofilter aktiviert !"
'    End If
'End Sub


:)

 

das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Moin!
Du sprichst von Inhalte löschen und verwendest die .Delete-Methode?
Möchtest Du nur das Filtrat löschen / den Inhalt entfernen und den Rest stehen lassen?
Anyway:
Du verwendest ein Table-Listobject, daher solltest Du auch die entsprechenden Methoden anwenden:
https://www.thespreadsheetguru.com/b...t-excel-tables

Gruß Ralf

 

\@Hajo:
Dieser Textbaustein von Dir ist der "seltsamste"!
Der TE schickt seinen Code in Textform und hängt die Datei an.
Dies ist imo vorbildlich, weil sich nicht jeder eine .xlsm herunterladen mag.

[sarcasm]
Falls Du nicht weißt, wo man den Code einfügen muss:
Online - Excel Programmierung VBA Makro: Wie und wo fügt man ein Makro bzw. Code ein
[/sarcasm]

Gruß Ralf

 

Hallo Ralf,

danke einmal das du dich mit meinem Thema befasst hast.

Ich möchte den ganzen Inhalt löschen und nicht nur die gefilterten. Nun ich weiss, bei meiner Methode macht er das nicht.

Habe leider nichts anders gefunden.

Es sollte so funktionieren:

In Zeile A5:N5 ist der Filter
Ab Zelle A6:N6 Inhalt löschen bis zur letzten befüllten Zeile in dem Bereich

und alle Inhalte löschen und den Filter zurücksetzen, falls er gesetzt war.

Gruss
Wolf

 

Hi,

setze zuerst den Filter zurück und lösche dann bis zur letzten belegten Zeile - diese kannst du z.B. mit folgenden Codeausdruck ermitteln:

Code:

 

Moin!
Hast Du meinen Link nicht gelesen, Wolf?
Für Dein Problem reicht (sogar mit "eingebauter" Nachfrage):
Code:

Gruß Ralf

 

Ralf ich habe alles gelesen und so einiges probiert, aber leider bekomme ich es einfach nicht hin, da ich echt wohl vor lauter Bäumen das entscheidende nicht mehr sehe. *upps

Mit dem Code werden jetzt zwar nicht alle gelöscht, aber wenn ich es nicht anders hinbekomme, dann muss ich wohl damit leben.

Code:

n das entscheidende nicht sehe. *upps

 

Ich habe DEINE Tabelle nach Nichtleere gefiltert und obigen Einzeiler laufen lassen.
Danach war trotz Filterung der gesamte Datenbereich exklusive Überschrift gelöscht.
Übrig blieb die Überschrift und eine leere Zeile im Datenbereich.

 

So jetzt hab ich einen Code hinbekommen, der das macht wo ich
benötige.

PHP:

         Private Sub CommandButton2_Click()

With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
Worksheets("Ergebnisblatt").Range("A6:N500").ClearContents
End With
End Sub


 

Ist schon erschreckend, wie man einen funktionierenden simplen Code nebst sachdienlicher Hinweise schlicht ignoriert …
Wenn Du (sinnloserweise) nur die Inhalte löschen willst, wovon ich dringend(!) abrate, dann halt so:
Code:

 

ich wollte deinen Code ja verwenden, aber es kam immer die angefügte Fehlermeldung. Und warum würdest du den Inhalt nicht nur löschen? Ist mein Code nicht gut?

Danke für deine Antworten.

Gruss
Wolf

 

Zur Fehlermeldung:
Dann ist der CodeName Deiner realen Datei anders lautend.
Zur Nachfrage:
Was willst Du mit einer leeren Tabelle?
Auch diese verbraucht Speicherplatz!
Nutze doch die Fähigkeiten des Table-Listobjects, wenn Du sie schon sinnvollerweise verwendest!
Dazu gehört das Fortschreiben von Formeln und aller Formatierungen.
Es muss nichts "auf Vorrat" angelegt werden.

Wenn Du in der "leeren" ersten Datenzeile evtl. Formeln behalten willst, dann gibt es ebenfalls einen Code auf der verlinkten Seite:
Code:

Gruß Ralf

 

Hallo Ralf,

danke für deine Ausführungen und deine Erklärungen.

Ich denke, so ist jetzt mein Projekt beendet. *cool.gif*

Gruss
Wolf