Hallo VBA-Experten,
habe im Moment mal wieder an einer Aufgabe zu knabbern, bei der ich - wegen fehlender VBA-Kenntnisse - gerne eure Hilfe in Anspruch nehmen würde:
In einer Tabelle "Daten(2)" können in den Zeilen 3 bis 362 insgesamt bis zu 360 Datensätze enthalten sein. Die Tabelle ist wie folgt aufgebaut:

Daten(2)

A B C D E F G H I J 2   Name Vorname Ort Ort/Kurz Bezeichnung Kennz. Beauftragter Kurzname Umsatz 3 1 Wunsch Thomas Dresden DD Wunsch, T. (DD) 1 Hauer, Fritz FH 0,5 4 2 Ganz Jürgen Kiel KI Ganz, J. (KI) 3 Müller, Michael MicMül 5,0 5 3 Vitt Hein Kiel KI Vitt, H. (KI) 2 Gerber, Volker VG 2,5 6 4 Groß Beate München M Groß, B. (M) 1 Brauer, Günter GB 0,7 7 5 Klein Felix Stuttgart S Klein, F. (S) 4 Brauer, Günter GB 2,3 8 6 Dollmann Carla Köln K Dollmann, C. (K) 4 Gerber, Volker VG 2,2 9 7 Haas Peter Bremen HB Haas, P. (HB) 2 Brauer, Günter GB 1,1 10 8 Unger Max Konstanz KN Unger, M. (KN) 1 Schwarz, Heinz HS 0,9 11 9 Weber Susi Stuttgart S Weber, S. (S) 3 Müller, Michael MicMül 1,1 12 10 Weber Frank Stuttgart S Weber, F. (S) 3 Müller, Michael MicMül 2,0 13 11                   14 12                   Formeln der Tabelle E3 : =WENN(ISTTEXT(D3);SVERWEIS(D3;$B$401:$C$418;2;FALSCH);"") F3 : =WENN(UND(ISTTEXT(B3);ISTTEXT(C3);ISTTEXT(E3));B3&", "&(LINKS(C3;1)&". ("&E3&")");"") I3 : =WENN(ISTTEXT(H3);SVERWEIS(H3;$E$401:$F$408;2;FALSCH);"") E4 : =WENN(ISTTEXT(D4);SVERWEIS(D4;$B$401:$C$418;2;FALSCH);"") F4 : =WENN(UND(ISTTEXT(B4);ISTTEXT(C4);ISTTEXT(E4));B4&", "&(LINKS(C4;1)&". ("&E4&")");"") I4 : =WENN(ISTTEXT(H4);SVERWEIS(H4;$E$401:$F$408;2;FALSCH);"") E5 : =WENN(ISTTEXT(D5);SVERWEIS(D5;$B$401:$C$418;2;FALSCH);"") F5 : =WENN(UND(ISTTEXT(B5);ISTTEXT(C5);ISTTEXT(E5));B5&", "&(LINKS(C5;1)&". ("&E5&")");"") I5 : =WENN(ISTTEXT(H5);SVERWEIS(H5;$E$401:$F$408;2;FALSCH);"") E6 : =WENN(ISTTEXT(D6);SVERWEIS(D6;$B$401:$C$418;2;FALSCH);"") F6 : =WENN(UND(ISTTEXT(B6);ISTTEXT(C6);ISTTEXT(E6));B6&", "&(LINKS(C6;1)&". ("&E6&")");"") I6 : =WENN(ISTTEXT(H6);SVERWEIS(H6;$E$401:$F$408;2;FALSCH);"") E7 : =WENN(ISTTEXT(D7);SVERWEIS(D7;$B$401:$C$418;2;FALSCH);"") F7 : =WENN(UND(ISTTEXT(B7);ISTTEXT(C7);ISTTEXT(E7));B7&", "&(LINKS(C7;1)&". ("&E7&")");"") I7 : =WENN(ISTTEXT(H7);SVERWEIS(H7;$E$401:$F$408;2;FALSCH);"") E8 : =WENN(ISTTEXT(D8);SVERWEIS(D8;$B$401:$C$418;2;FALSCH);"") F8 : =WENN(UND(ISTTEXT(B8);ISTTEXT(C8);ISTTEXT(E8));B8&", "&(LINKS(C8;1)&". ("&E8&")");"") I8 : =WENN(ISTTEXT(H8);SVERWEIS(H8;$E$401:$F$408;2;FALSCH);"") E9 : =WENN(ISTTEXT(D9);SVERWEIS(D9;$B$401:$C$418;2;FALSCH);"") F9 : =WENN(UND(ISTTEXT(B9);ISTTEXT(C9);ISTTEXT(E9));B9&", "&(LINKS(C9;1)&". ("&E9&")");"") I9 : =WENN(ISTTEXT(H9);SVERWEIS(H9;$E$401:$F$408;2;FALSCH);"") E10 : =WENN(ISTTEXT(D10);SVERWEIS(D10;$B$401:$C$418;2;FALSCH);"") F10 : =WENN(UND(ISTTEXT(B10);ISTTEXT(C10);ISTTEXT(E10));B10&", "&(LINKS(C10;1)&". ("&E10&")");"") I10 : =WENN(ISTTEXT(H10);SVERWEIS(H10;$E$401:$F$408;2;FALSCH);"") E11 : =WENN(ISTTEXT(D11);SVERWEIS(D11;$B$401:$C$418;2;FALSCH);"") F11 : =WENN(UND(ISTTEXT(B11);ISTTEXT(C11);ISTTEXT(E11));B11&", "&(LINKS(C11;1)&". ("&E11&")");"") I11 : =WENN(ISTTEXT(H11);SVERWEIS(H11;$E$401:$F$408;2;FALSCH);"") E12 : =WENN(ISTTEXT(D12);SVERWEIS(D12;$B$401:$C$418;2;FALSCH);"") F12 : =WENN(UND(ISTTEXT(B12);ISTTEXT(C12);ISTTEXT(E12));B12&", "&(LINKS(C12;1)&". ("&E12&")");"") I12 : =WENN(ISTTEXT(H12);SVERWEIS(H12;$E$401:$F$408;2;FALSCH);"") E13 : =WENN(ISTTEXT(D13);SVERWEIS(D13;$B$401:$C$418;2;FALSCH);"") F13 : =WENN(UND(ISTTEXT(B13);ISTTEXT(C13);ISTTEXT(E13));B13&", "&(LINKS(C13;1)&". ("&E13&")");"") I13 : =WENN(ISTTEXT(H13);SVERWEIS(H13;$E$401:$F$408;2;FALSCH);"") E14 : =WENN(ISTTEXT(D14);SVERWEIS(D14;$B$401:$C$418;2;FALSCH);"") F14 : =WENN(UND(ISTTEXT(B14);ISTTEXT(C14);ISTTEXT(E14));B14&", "&(LINKS(C14;1)&". ("&E14&")");"") I14 : =WENN(ISTTEXT(H14);SVERWEIS(H14;$E$401:$F$408;2;FALSCH);"")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
In der Arbeitsmappe existiert für jeden Beauftragten ein Tabellenblatt mit dem Blattnamen, der den Beauftragten jeweils in der Spalte I zugewiesen wurde.
Ich möchte nun mittels VBA erreichen, dass die Datensätze der Tabelle "Daten(2)" entsprechend der Kurznamen auf die entsprechenden Tabellen aufgeteilt wird(Tabellen mit den jeweiligen Kurznamen).
Also: Die Datensätze, in denen in der Spalte I FH steht, sollen in das Tabellenblatt "FH", die Datensätze in denen in der Spalte I VG steht, in das Tabellenblatt "VG" eingefügt werden, usw. Es sollten jedoch nicht die kompletten Datensätze übernommen werden, sondern nur die Datenfelder der Spalten F, G und J, wobei die Datensätze nach dem Kriterium in Spalte G (Kennz.) aufsteigend sortiert werden sollten.
Die Eintragung in den Tabellen mit den Kurznamen sollte ab Zeile 5 jeweils in die Spalten A, B und C erfolgen.
Ich hoffe, dass die Aufgabenstellung nachvollziehbar beschrieben wurde und freue mich über jede Form von Hilfe. Bereits hier besten Dank allen Helfern.
Mfg
Fritz