Excel Lagerliste
12.12.2012 12:35:42
max
folgendes Problem:
Mir wurde eine Lagerliste zur verfügung gestellt.
In ihr sind mehrere Spalten die z.b. Datum, Kommission, Lager-Nummer(was z.B. eine Palette ist für die nicht Kaufleute hier) und obs Ein- bzw. Ausgelagert wurde.
Dies über mehrere hundert Zeilen.
In dieser Tabelle enthalten sind also:
Einlagerungen einer Bestimmten Palette
Auslagerungen dieser Palette (z.B. 20 Zeilen weiter unten)
Nur Einlagerung einer Palette (Keine Auslagerung dieser Palette in der Tabelle enthalten)
Ich möchte nun mit einem Makro diejenigen Paletten (Also Lager-Nr.) rauslöschen, die Ein- und Ausgelagert wurden.
Mein Lösungsansatz:
Ich habe in diesem Forum in einem früheren Post folgendes Makro gefunden:
Sub Loesch()
Dim Such
Do
Set Such = ActiveSheet.UsedRange.Find("Suchtext")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Loop Until Such Is Nothing
End Sub
--------------
Und habe es dann abgeändert, dass es die ganze Zeile löscht, in der mein Suchwort vorhanden _
ist:
Sub Loesch()
Dim Such
Do
Set Such = ActiveSheet.UsedRange.Find("Auslagerung")
If Not Such Is Nothing Then Such.EntireRow.Delete
Loop Until Such Is Nothing
End Sub
-------
Führt man das Makro aus, durchsucht er die Tabelle nach dem Wort: Auslagerung und löscht die ganze Zeile dem das Wort vorsteht.
Jetzt sind aber noch die dazugehörigen Einlagerungen vorhanden.
Meine Idee:
Ich benutzte noch eine Hilfspalte, die hinter der jeweiligen Position anzeigt, ob es ein Dublikat ist oder nicht.
Problem:
Ich kann mit einer WENN-Formel das Dublikat anzeigen lassen... Das original wird aber nicht markiert. Außerdem funktioniert es nur, wenn die Werte untereinander stehen, aber ich möchte möglichst das die gesamte Spalte durchsucht wird.
Ich hätte dann das Makro so abgeändert:
Sub Loesch()
Dim Such
Do
Set Such = ActiveSheet.UsedRange.Find("Dublikat")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Loop Until Such Is Nothing
End Sub
Ich hoffe ich konnte dieses komplizierte Problem einigermaßen verständlich ausdrücken
Zusammengefasst bräuchte ich also ein Makro, das Duplikat und Original rauslöscht.
Als Filter dient die Lager-Nr. da sie bei Einlagerung sowie Auslagerung identisch ist.
Vielen Dank!
Max