aut. Zeilen löschen, sofern sie nicht mit [ZahlXYZ] beginnt

[Fennek]

im Beispiel gibt es NUR vierstellige Zahlen.

Für Excel ist es wichtig, ob in einer Zelle Zahlen oder Texte stehen. Verarbeiten kann man beides, aber mit unterschiedlichen Ansätzen.

[Dasch]

Hallo Fennek und Alle!

Ich hab mal hier eine anonymisierte Tabelle.
Es gibt 3 und 4 stellige Einträge in Spalte A.
Das Original geht ca. 900 Zeilen lang, daher hier ein kleiner Einblick.

Mein Traum wäre, dass ich "auf Knopfdruck" alle Zeilen löschen / ausblenden kann, welche nicht mit den vorgegebenen Zahlen in Spalte A beginnen.

Vielen Dank für jegliche Hilfe!

[Fennek]

Hallo,

ich habe die Frage so verstanden:

In Spalte A gibt es 3- und 4-stellige Zahlen. Diese möchte ich trennen.

Antwort:

Autofilter

mfg

(sind mehr Worte notwendig?)

[Dasch]

Hallo,

leider ist es nicht ganz so trivial.

Es gibt ca. 30 Einträge mit 3 Zahlen und ca. 300 mit 4 Zahlen.

Beispiel:

551 
552
553
554
555

und ebenso

6014
6015
6019
6091
9182
4928

Und ich möchte es hinbekommen, dass er ALLE Zeilen ausblendet / löscht bis auf die vorher definierten, meinetwegen 5 Stück sollen am Ende stehen bleiben.

Alle Zeilen mit 6015, 6019, 6091

[WillWissen]

Hi,

den Filter habe ich dir schon in #2 vorgeschlagen! Was, bitte sehr, ist denn so umständlich daran, im Zahlenfilter die nicht benötigten Konten wegzuklicken? Für die eierlegende Wollmilchsau, auch das hatte ich dir schon geschrieben, wirst du bei Klick auf ein Knöpfchen eine Makrolösung brauchen. Man kann direkt mit einer Kalaschnikow einen Regenwurm erschießen. Oder war da etwas mit Kanonen und Spatzen?? :32:  :32:  :32:

[Fennek]

man kann dem Autofilter auch eine Liste (xl-wording: Array) übergeben, mit WErten, die angezeigt werden sollen.

Nutzt den Makrorekorder, setze den Autofilter und wähle dann die Werte aus, die gezeigt werden sollen.

Es geht auch, dass man eine Liste, einen Range zuerst in ein 1-dimensionales Array überführt und dann dem Auofilter übergibt.

Mein Archiv: (im Einzelschrittmodus ausführen)

Code:

Sub test()
ky = Join(Application.Transpose(Range("K2:K93")), ", ")
Tx = Split(ky, ",")
With Cells(1).CurrentRegion
.AutoFilter 1, Tx, 7 'xlFilterValues
.AutoFilter
End With

####
vielleicht auch

array(Tx)

Bei vielen Versuchen gab es Fehler, da der Typ (string, variant) wichtig ist.


(die Beispiele und die Texte sind mir nicht präzise genug, deshalb EDECO, end of communication)

[GMG-CC]

Moin,
du hast Excel 2016. Da kannst du das mit ein paar Mausklicks, ohne Formel, ohne VBA lösen. ==> Daten | Abrufen und transformieren 
Das Grundprinzip (wenn auch nicht zu 100% passend) findest du hier: http://www.excel-ist-sexy.de/spalten-ver...te-finden/

[Rabe]

Hi Günter,

den Filter habe ich dir schon in #2 vorgeschlagen! Was, bitte sehr, ist denn so umständlich daran, im Zahlenfilter die nicht benötigten Konten wegzuklicken?

Also ich würde auch nicht 325 Zahlen im Filter wegklicken wollen, wenn ich nur 5 benötige.

ich weiß, es geht auch alles abklicken und nur die 5 anklicken, aber da muß ich auch die ganze Liste runterscrollen.