SVERWEIS über Blattname in Kopfzeile
24.08.2020 11:38:37
315
ich habe hier eine Beispieldatei erstellt:
https://www.herber.de/bbs/user/139807.xls
Über eine andere Excel-Datei lese ich über PQ die Blattnamen (hier: "A_1" bis "D_2") dieser Datei aus (Sheets) und vergebe dort noch einen eigenen zusätzlichen Namen.
Das Ergebnis verschiebe ich als Kopie in das exta Tabellenblatt "Schrank_AKS".
Jetzt würde ich gerne in der Kopfzeile jedes Tabellenblattes folgendes erhalten:
Zeile 1: "Überschrift" (immer identisch)
Zeile 2: Tabellenblattname
Zeile 3: zusätzlicher Name (immer entsprechend zum Blattnamen aus der Tabelle)
Derzeit schreibe ich den zusätzlichen Namen manuell in die Zelle A2 und verwende dann für jedes Blatt:
Private Sub Worksheet_Activate()
With ActiveSheet.PageSetup
.CenterHeader = "&26" & "Überschrift" & vbLf & ActiveSheet.Name & vbLf & Range("A2")
End With
End Sub
=VERWEIS(TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))+1;1024);Schrank_AKS!$A$2:$B$7)
Aber vllt kann man diese Krücke über A2 sowieso auslassen?
Vielen Dank schonmal!