Hallo,
freut mich wenn es klappt und hilft.
Im großen und ganzen ist das gar nicht so komplex.
Im ersten Teil initialiere ich ein Objekt vom Typ Regular Expression.. HIer wird dann auch das Pattern zugewiesen. Pattern ist das Muster, welches gesucht werden soll. Der Link verweist zu einer sehr guten Website, wo man die Muster testen und erstellen kann.
Danach läuft eine Schleife über die Spalte A der ersten Tabelle, so lange, bis eine Zelle in Spalte 1 nicht mehr gefüllt ist.
Hier wird der Inhalt durch regex.Test geprüft, ob das Muster in der Zelle gefunden wird, wenn ja, wird durch regEx.Replace der Teil des Pattern durch nichts, also vbNullString ersetzt. Um diese Methode wird noch die VB-Methode "Left" eingesetzt, wodurch dann der linke Teil des Ergebnisstring aus regEx.Replace bis zum ersten aufkommen eines Leerzeichens "Instr()" ausgegeben wird.
Die Funktion zum finden der nächsten freien Zeile in Tabelle 2 ist eigentlich nicht nötig, da es eine Methode dafür in VBA gibt "Worksheets(1).Cells(Worksheets(1).Rows.Count, 1).End(xlUp).Row" Jeodch gibt diese zu Beginn 2 Mal den Wert 1 aus, deswegen arbeite ich lieber mit einer Schleife zum suchen, wenn es keine Tabellenüberschrift gibt.
Ich hoffe, das bringt ein wenig Licht ins Dunkle :)
Gruß
|