AW: Blatt automatisch neu berechnen

Blattindex	   Blattname	                 LetzteÄnderung
1 	            Übersicht	                 Tabelle3
2	            UC3
3	            REOOptis2
4	            Dreamteam
5	            DreamteamControlle
6	            Importdaten
7	            Importformular
8	            ERROR_LOG
9	            INI
10	            Tabelle1
11	            Tabelle3

=TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))+1;31)

=WENN($G$2  "";SheetName(E2);)

'Namen der Tabellenblätter ermittlen
Public Function SheetName(Index, Optional Range As Variant)
Dim a As Variant
a = Sheets(Index).Name
SheetName = a
End Function