Office: Ausgefülltes Feld finden, Zeilen bis nächstes ausgefülltes Feld löschen

Liebe Forenmitglieder,

nach längerer Pause habe ich mal wieder ein Problem bei dem ich selbst nicht weiterkomme. Denke das müsste per VBA gelöst werden und aus Zeitmangel bin ich da noch nicht wirklich weiter gekommen.

Folgendes Problem:

Ich habe eine Adressliste aus der ich einen Serienbrief erstellen möchte. Pro Unternehmen sind allerdings mehrere Ansprechpartner aufgelistet. Ich möchte aber immer nur den ersten Ansprechpartner in meinem Serienbrief. In Spalte B steht der Firmenname, in AA der Vorname und in AB der Nachname der Ansprechpartner. Darunter in einzelnen Zeilen die jeweils nächsten Ansprechpartner. Da in diesen Zeilen das Unternehmen jedoch nicht mehr angeführt ist dachte ich daran, per Makro alle Zeilen, die keinen Unternehmensname aufgeführt haben zu löschen

Zur Veranschaulichung:

[TABLE="width: 500"]
<tbody>[TR]
[TD]Unternehmen
[/TD]
[TD]Anrede
[/TD]
[TD]Vorname
[/TD]
[TD]Name
[/TD]
[/TR]
[TR]
[TD]Unternehmen AB
[/TD]
[TD]Herr
[/TD]
[TD]Max
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Frau
[/TD]
[TD]Sarah
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Herr
[/TD]
[TD]Willi
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD]Unternehmen CD
[/TD]
[TD]Herr
[/TD]
[TD]Max
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Frau
[/TD]
[TD]Sarah
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Herr
[/TD]
[TD]Willi
[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Herr
[/TD]
[TD]Peter[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD]Unternehmen EF
[/TD]
[TD]Herr[/TD]
[TD]Max[/TD]
[TD]Mustermann
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Herr
[/TD]
[TD]Willi
[/TD]
[TD]Mustermann
[/TD]
[/TR]
</tbody>[/TABLE]

Wie in der Tabelle zu sehen ist es nicht immer die gleiche Anzahl zu löschender Zeilen unterhalb des beschriebenen Unternehmensfeldes, daher dachte ich an eine Suchen bis ... und dann Löschen bis nächstes beschriebenes Feld. Zumindest so etwas in der Art, wie man das in VBA formuliert weiß ich leider nicht... Stehen bleiben sollen also nur die Zeilen mit Max Mustermann

Ich hoffe das war verständlich, ansonsten beantworte ich immer gerne Rückfragen.

Vielen Dank für eure Hilfe!

 

Hi Macel,

mal blöd gefragt. Wieso machst Du nicht einfach einen Filter auf die Spalten, filterst auf alles was in Spalte A leer ist markierst dann den Bereich und löschst die Zeilen? Sicher geht das auch per Makro, aber je nach Länge der Liste dauert das Makro länger als wenn Du es über den Filter löschst.

Viele Grüße
Michael

 

Hallo Michael,

na ja, wieso einfach, wenns auch kompliziert geht :) Danke für den Tipp, manchmal sieht man die einfachsten Lösungen nicht. So ging's natürlich auch...

Schönen Abend noch!

Grüße

Macel

 

So ist das manchmal mit dem Wald und den Bäumen ;-)
Gern geschehen