Hallo VBA-Experten,
ich bitte um Hilfe bei der Umsetzung folgender Aufgabe:
In einer Excel-Arbeitsmappe befindet sich das Tabellenblatt "Daten" das folgende Tabelle mit (bis zu 8 Teilnehmern) enthalten kann!

Daten

A B C D E 2   Teilnehmer 3   Name Vorname Name Kürzel 4 1 Müller Michael Müller, Michael MicMül 5 2 Hauer Fritz Hauer, Fritz FH 6 3 Berger Thomas Berger, Thomas TB 7 4 Brauer Günter Brauer, Günter GB 8 5 Müller Manfred Müller, Manfred ManMül 9 6 Gerber Volker Gerber, Volker VG 10           11           12 6         Formeln der Tabelle A4 : =WENN(ODER(ISTLEER(B4);ISTLEER(C4));"";1) D4 : =WENN(UND(ISTTEXT(B4);ISTTEXT(C4));B4&", "&C4;"") E4 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C4;1)&LINKS(B4;1))>1;LINKS(C4;3)&LINKS(B4;3);LINKS(C4;1)&LINKS(B4;1)) A5 : =WENN(ODER(ISTLEER(B5);ISTLEER(C5));"";A4+1) D5 : =WENN(UND(ISTTEXT(B5);ISTTEXT(C5));B5&", "&C5;"") E5 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C5;1)&LINKS(B5;1))>1;LINKS(C5;3)&LINKS(B5;3);LINKS(C5;1)&LINKS(B5;1)) A6 : =WENN(ODER(ISTLEER(B6);ISTLEER(C6));"";A5+1) D6 : =WENN(UND(ISTTEXT(B6);ISTTEXT(C6));B6&", "&C6;"") E6 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C6;1)&LINKS(B6;1))>1;LINKS(C6;3)&LINKS(B6;3);LINKS(C6;1)&LINKS(B6;1)) A7 : =WENN(ODER(ISTLEER(B7);ISTLEER(C7));"";A6+1) D7 : =WENN(UND(ISTTEXT(B7);ISTTEXT(C7));B7&", "&C7;"") E7 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C7;1)&LINKS(B7;1))>1;LINKS(C7;3)&LINKS(B7;3);LINKS(C7;1)&LINKS(B7;1)) A8 : =WENN(ODER(ISTLEER(B8);ISTLEER(C8));"";A7+1) D8 : =WENN(UND(ISTTEXT(B8);ISTTEXT(C8));B8&", "&C8;"") E8 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C8;1)&LINKS(B8;1))>1;LINKS(C8;3)&LINKS(B8;3);LINKS(C8;1)&LINKS(B8;1)) A9 : =WENN(ODER(ISTLEER(B9);ISTLEER(C9));"";A8+1) D9 : =WENN(UND(ISTTEXT(B9);ISTTEXT(C9));B9&", "&C9;"") E9 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C9;1)&LINKS(B9;1))>1;LINKS(C9;3)&LINKS(B9;3);LINKS(C9;1)&LINKS(B9;1)) A10 : =WENN(ODER(ISTLEER(B10);ISTLEER(C10));"";A9+1) D10 : =WENN(UND(ISTTEXT(B10);ISTTEXT(C10));B10&", "&C10;"") E10 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C10;1)&LINKS(B10;1))>1;LINKS(C10;3)&LINKS(B10;3);LINKS(C10;1)&LINKS(B10;1)) A11 : =WENN(ODER(ISTLEER(B11);ISTLEER(C11));"";A10+1) D11 : =WENN(UND(ISTTEXT(B11);ISTTEXT(C11));B11&", "&C11;"") E11 : =WENN(ZÄHLENWENN($F$4:$F$11;LINKS(C11;1)&LINKS(B11;1))>1;LINKS(C11;3)&LINKS(B11;3);LINKS(C11;1)&LINKS(B11;1)) A12 : =ANZAHL(A4:A11)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Ich möchte nun, dass beim Verlassen dieses Tabellenblattes folgendes geprüft wird: Enthält die Arbeitsmappe nicht (alle) Tabellenblätter, mit denen in denen im Bereich E4:E11 gegebenenfalls eingetragenen Namenskürzeln sollte das in der Arbeitsmappe enthaltene Tabellenblatt "TN" jeweils kopiert werden und mit dem entsprechenden Namenskürzel benannt werden! In jedes neu angelegte Tabellenblatt sollte der in Tabelle Daten in der Spalte D (Bereich D4:D11) stehende Name jeweils in die Zelle A1 eingetragen werden. Sollte ein Tabellenblatt mit dem jeweiligen Namenskürzel bereits existieren, sollte kein neues Tabellenblatt eingerichtet werden.
Ich würde mich freuen, wenn Ihr mir helfen könnt. Meine VBA-Kenntnisse sind höchstens als "mangelhaft" einzustufen.
Bereits an dieser Stelle allen Helfern vielen Dank.
Gruß
Fritz