Tabelle1 nach Zeichenkette durchsuchen, wenn vorhanden, dann Zeilen aus Tabelle2 löschen
10.12.2019 15:03:12
Erdnusskrieger
Mein VBA-Programm nähert sich langsam dem Ende. Ich hoffe dass ich mit euch nun die letzten Meter auch hin bekomme.
Ich hab das Gefühl, dass ich die komplizierten Teile selbst gelöst bekomme, es aber an den leichten Befehlen an meiner Denkweise scheitert...
Es geht dieses mal um folgendes:
Im 1. Teil findet eine Fallunterscheidung statt, die ich mit den Select Case-Befehl gelöst bekommen habe. Dementsprechend lasse ich diesen Teil des Quellcodes weg, da dieser für euch vermutlich irrelevant ist (falls ihr den doch benötigt, werde ich ihn ebenfalls posten)
Im 2. Teil soll das Worksheet "Tabelle 3" nach mehreren Zeichenkombinationen (Kombinationen sind mir bekannt, es sind ca. 10 Kombinationen/Suchkriterien) durchsucht werden. Wird ein Zeichenkombination nicht gefunden, so sollen bestimmte Zeilen (sind mir ebenfalls bekannt) aus dem Worksheet "Tabelle2" gelöscht werden und die befüllten Zeilen die sich hierunter befinden nach oben verschoben werden.
Ich beschreibe es nun mal an einem konkreten Beispiel, um euch meine Problematik zu verdeutlichen. Falls dies gelöst wird, kann ich es ja selbstständig auf alle Kombinationen erweitern:
In Worksheet "Tabelle3" befinden sich im Bereich B1-V15 (dieser Bereich wird eigentlich nicht überschritten (da bin ich mir zu 99% sicher :))) verschiedene Zeichenkombinationen. Ich möchte nun konkret nach der Kombination/Suchkriterium 5A1 in diesem Bereich suchen. Sollte 5A1 nicht gefunden werden, soll aus dem Worksheet "Tabelle2" die Zeilen 55 bis 59 und Zeile 83 gelöscht werden. Da nun die Zeilen leer sind und "Tabelle2" von Zeile 8-300 immer befüllt ist, möchte ich diese Lücken auch entfernt haben um es einfach optisch schöner zu haben. Heißt die gefüllten Zeilen unter den Leeren sollen von unten nach oben "aufgefüllt" werden. Falls 5A1 gefunden wird, soll nichts passieren.
Sprich eine ganz einfache Abfrage...
Ich vermute dies wird mit If-then und/oder do while schleife zu lösen sein aber wie gesagt... bei mir scheitert es scheinbar an den einfachen Dingen... Selbstverständlich hab ich das Forum durchsucht sowie Dr. Google gefragt... leider bin ich nicht fündig geworden.
Ich hoffe ich konnte euch mein Problem gut beschreiben und hoffe ihr könnt mir helfen.
Grüße, Erdnuss.