Office: Zellinhalt suchen und Zeile mit Fund löschen

Hallo Forum,

ich bin ganz frisch in der Materie und bastel grad an meinem ersten VBA Projekt.
Nun könnte ich zu folgender Problemstellung Hilfe gebrauchen:

Ich habe umfangreiche Tabellen mit ca. 20 Spalten und zig Tausend Zeilen.

Nun möchte ich in einer bestimmten Spalte, die in Zeile 1 einen eindeutigen Namen hat, aber immer an unterschiedlicher Position sein kann, nach einem bestimmten Wert suchen und die betreffenden Zeilen anschließend löschen.

Bisher setze ich den Autofilter und lasse mir dadurch nur die Zeilen anzeigen, die in der bestimmten Spalte den gesuchten Wert enthalten. Dann markiere ich alles und lösche es.
Nachdem ich das ganze regelmäßig immer wieder machen muss und dabei mehrere Inhalte in unterschiedlichen Spalten suchen muss, ist das eine aufwändige Klickerei, die ich gerne durch ein VBA-Script automatisieren möchte.

Kann mir jemand auf die Sprünge helfen, wie ich das am Besten bewerkstellige mit VBA?

Danke schon mal
akku

:)

 

Hi zu ladender, *Smilie
das Ziel ist klar: In einem Tabellenblatt sollen alle Zeilen gelöscht werden, bei denen in bestimmten Spalten bestimmte Werte stehen.

Der Ausgangspunkt ist nicht klar. Auf welche Weise soll die VBA-Prozedur erfahren, welche Werte in welchen Spalten gesucht werden sollen?

Denkbar wäre, die Spalten und Werte in einer InputBox abzufragen.
Denkbar wäre auch, dass diese Vorgaben in einer kleinen Tabelle stehen, etwa so:

	A	B	C	D
2	Spalten:	Status	Jahr	PLZ
3	Werte:	Loe	1998	09999
4		Del		99999
5				00000

Die Prozedur kann diese Tabelle lesen und abarbeiten.
Hier sollen insgesamt 6 Prüfungen in 3 Spalten stattfinden.

Wenn mehrere Zeilen zu löschen sind, tut man das besser "in einem Rutsch", also nicht jede Zeile einzeln.
Man sammelt die zu löschenden Zeilen aus allen Prüfspalten ein und löscht erst ganz am Schluss.

Also: Wie soll das Ganze bei dir organisiert sein?

 

Hallo Erich,

ich möchte für das Zeilen löschen keine extra Abfrage mache. Es wird immer mit der gleichen "Denke" gelöscht und soll auf "Knopfdruck" funktionieren.
Die jeweiligen Spalten können mit einem eindeutigen Namen aufgerufen werde. Dieser steht immer in Zeile A. Ich bin mir auch sicher, dass die Namen immer gleich bleiben, da ich diese ebenfalls mit einem Makro selbst definiere.

Die zu suchenden Inhalte sind erstmal auch immer die gleichen und sollten direkt im Script stehen. Ich suche nach:
Festen Werten
oder "alle Inhalte kleiner 1000" (sprich: alles was dreistellig ist)
Oder Datum ab einem bestimmten Tag. Das Datum definiere ich anhand einer in einer inputbox eingegebenen Kalenderwoche.

Ich hoffe, ich habe nun den Ausgangspunkt genau genug erklären können...

Gruß akku

 

Hi,
in der folgenden Prozedur habe ich mal beispielhaft verschiedene Abfragen untergebracht.
Ich hoffe, du kannst damit etwas anfangen: Code:

Am Ende wird hier nicht gelöscht, sondern nur eingefärbt - ist zum Testen praktischer.
Die BeiSpielMappe dazu lade ich hoch.

Ein schönes Wochenende allerseits!

 

Hallo Erich,
vielen Dank für die tolle Unterstützung.
Ich denke, es ist von Deiner Seite her eine Punktlandung. Genauso benötige ich es.
Bevor ich das ganze in mein Makro baue und an meine Bedürfnisse anpasse, werde ich aber erst versuchen zu verstehen, was genau Du da programmiert hast. Ich möchte ja was lernen. Dazu nehme ich mir mal Zeile für Zeile vor und analysiere sie einzeln.
Wird also noch etwas dauern, bis ich am Ziel bin. Aber es macht mir richtig Spaß, mich da etwas einzuarbeiten.
Gruß
Matthias

 

Hallo Erich,

könntest Du so nett sein, mir folgende Zeile zu erklären?
Wenn möglich und wenn es dich nicht zu sehr nervt, bitte "haarklein"

arU = .Cells(1, 1).Resize(, .Cells(1, .Columns.Count).End(xlToLeft).Column)

Danke und Gruß
Matthias

 

Hi Matthias,
vielleicht ist das haarklein genug? *wink.gif*

arU ist eine Variable, die alles mögliche enthalten kann - sie wurde oben (bei Dim) typlos,
also als Variant deklariert.
vgl. VBA-Hilfe zu Dim

Die 3 Punkte nach Leerzeichen beziehen sich auf das With.
Statt " ." könnte man auch " Sheets("Tabelle1")." schreiben.
vgl. VBA-Hilfe zu With

.Columns.Count also Sheets("Tabelle1").Columns.Count ist die Spaltenanzahl des Blattes.
Sie hängt von der XL-Version ab. Als die letzte Spalte noch IV hieß, war sie 256,
derzeit haben wir bis XFD 16384 Spalten zur Verfügung.

.Cells(1, .Columns.Count) ist die Zelle XFD1 des Tabellenblatts, die letzte Zelle in Zeile 1.

.Cells(1, .Columns.Count).End(xlToLeft) ist die Zelle, bei der man landet, wenn man von XFD1 aus
mit Strg + PfeilNachLinks nach links geht. Das ist die letzte Zelle der Zeile 1, in der etwas steht,
z. B. Zelle K1.

.Cells(1, .Columns.Count).End(xlToLeft).Column ist die Spaltennummer dieser Zelle,
z. B. 11 für Zelle K1.

.Cells(1, 1) ist die Zelle A1.
.Cells(1, 1).Resize(x, y) ist der Bereich, der mit A1 beginnt und x Zeilen hoch und y Spalten breit ist.
.Cells(1, 1).Resize(, 11) ist der Bereich A1:K1, in dem die Überschriften stehen.
vgl. VBA-Hilfe zu Resize

arU enthält die Werte des Bereichs A1:K1, also alle Überschriften.
Einzelne Werte können angesprochen werden mit
arU(1,3) für den Wert aus C1

Alles klar?