Office: (Office 2011 Mac) Makro für Registerkarte hinzufügen + Verlinkung

Hallo liebe Kollegen,

ich erarbeite gerade neue Auswertungsformulare für sensorische Untersuchungen (Dreieck-Test zum Beispiel) und bin eigentlich schon sehr zufrieden mit meinem Ergebnis. Einzig fehlt mir die Erfahrung mit VBA um eine Auswertungstabelle (eigene Registerkarte) automatisch (mittels Comandbutton) zu kopieren und wie die letzte Auswertungstabelle + 1 zu beschriften. Außerdem müsste anschließend in der Gesamtauswertungsregisterkarte 3 Verlinkungen um die neu hinzugefügte Registerkarte erweitert werden.

Ist so etwas überhaupt möglich? Mit Makro-Aufzeichnen bin ich leider zu keinem sinnvollen Ergebnis gekommen. Dazu müsste ich wahrscheinlich zuerst mehr definieren und dann sagen nimm die letzte Registerkarte Auswertung und benenne die neue nur + 1. Aber wie gesagt habe ich noch zu wenig Ahnung von VBA ...

Wäre echt super, wenn mir jemand dabei helfen könnte.

Ich kann auch gerne die Datei zur Verfügung stellen.

Liebe Grüße,

Wolfgang

 

Hi Wolfgang,

wenn die Tabellen "Auswertung 1", "Auswertung 2", "Auswertung 3" usw. heißen und der Reihe nach aufsteigend angeordnet sind, dann musst du nur das letzte Tabellenblatt kopieren, beim vorletzten "Auswertung " durch Nichts ersetzen sodass du die Zahl erhältst, dann 1 addieren und wieder "Auswertung " davor setzen:

Code:

    Worksheets(Worksheets.Count).Copy after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = "Auswertung " & _
       CLng(Application.Substitute(Worksheets(Worksheets.Count - 1).Name, "Auswertung ", "")) + 1

Bis später,
Karin