Hi, ersteinmal wünsche ich dir auch ein frohes neues Jahr mit viel Glück, Gesundheit und Erfolg :D
Du bist ja wirklich super! Das klappt nun wie geschmiert :) :) :)
Habe am Code nur den Datentyp von loschen von "Byte" auf "Integer" geändert, da es sonst einen Overflow-Meldung warf.
So wie du es umgesetzt hast, funktioniert es prima.
Ich möchte dir wirklich einen seeehr großen Dank aussprechen für deine Hilfe :)
Da ich erst mit VBA angefangen habe, hätte ich sowas nie selbst geschafft, da es doch n bissl komplizierter war als ich dachte. Aber nun konnte ich einiges dazu lernen und setze mir direkt als Ziel für dieses Jahr sowas selbst schreiben zu können ;)
Ein paar Fragen habe ich zum Code für mein Verständnis:
- Was genau machen die Zeilen 43-45? Also Parameter (X,Y). So wie ich es nachvollziehen kann werden hier die zu suchenden Parameter gespeichert?
- Ist es extra, dass ab Zeile 89 zwei mal der folgende Block steht?
For k = 1 To zeilen
loschen(k) = 0
Next k
For k = 1 To zeilen
loschen(k) = 0
Next k
Ich habe auch versucht gehabt an mein Folgeproblem zu arbeiten, aber so wie ich es dir beschrieben habe, war es leider doch noch kompliziert.
Ich habe mir gedanken gemacht wie ich es vereinfachen kann und das Problem ist nun folgender Maßen:
In Datei1 in SHEET2 stehen nun in Spalte A gewisse Bezeichnungen (gewisse Namen). Die kommen nun auch nur einmal in einer Zelle vor.
Falls nun hier in Datei1 Sheet 2 in Spalte C ein "x" ist, soll in Datei2 alle kompletten Zeilen löschen wo genau diese Bezeichnung (Name) auftaucht. Und zwar taucht die Bezeichnung in Spalte A auf.
Falls also in Spalte C der Datei 1 im Sheet 2 KEIN "x" gesetzt ist, soll einfach so alles bleiben, wie es vorher war. Ansonsten soll es nur diejenigen rauslöschen in Datei2 wo die Bezeichnung in der Zeile ein X hat.
Am besten ist es wenn genau dieses Folgeproblem im Anschluss nach dem vorhoreigen Problem die Zeilen in Datei2 durchgeht und genau diese Zeilen mit dem Bezeichnung löscht wo ein X steht in Datei1.
Denke das dürfte nun einfach und weniger Fehler anfällig sein :-)
Danke Dir und ein schönes Wochenende noch.
Gruß
Christy
|