Tabellenblätternamen drucken
micha2009
ich habe ein vermeintlich kleines Problem, aber es wurmt mich. :)
In meinen Tabellen habe ich in der Zelle D66 den Tabellenblattnamen mit folgender Formel eintragen lassen.
=TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))+1;255)
Nun aktualisiert Excel den Namen nicht, wenn ich ein anderes Blatt aktiviere.
Wenn ich von Blatt 1 auf 2 wechsle stht bei Blatt 2 in D66 immer noch Blatt 1.
Das habe ich gelöst, indem ich Workbook_sheetactivate nutze und Excel einfach bei jedem Blattwechsel die Arbeitsmappe neu berechnet. (wahrscheinlich geht das auch einfacher)
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CalculateFull 'Arbeitsmappe neu berechnen
End Sub
Mein Problem ist nun, dass ich beim gleichzeitigem Drucken mehrerer Tabellenblätter auf jedem Blatt immer den Namen des aktiven Tabellenblattes stehen habe.
Hat jemand ne Idee, wie ich das lösen kann, dass auf jedem Blatt der eigene Name steht?
Habs schon mit ner beforeprint sub versucht, aber das hat auch nicht funktioniert.
VG
Micha
Anzeige