Wie unter Winword: Weitere Ebene für Überschriften beim automatischen Inhaltsverzeichnis beschrieben besteht in Winword die Möglichkeit Überschriften als Überschriften unterschiedlicher Ebenen zu definieren. Allerdings ist in den Formatvorlagen von Winword 2007/2010 nur "Überschrift 1" und "Überschrift 2" verfügbar.


Innerhalb OpenOffice besteht die Möglichkeit auf der Schaltfläche Formatvorlagen über "weitere" auch andere Formatvorlagen auszuwählen.

Dieses ist auch unter Winword möglich, wenn auch etwas versteckter.

Dieses ist entweder durch die Gliederungsansciht und das Ändern der Ebenen von Überschriften möglich oder alternativ durch Anzeigen aller Formatvorlagen in den "Optionen für Formatvorlagenbereich"


Hierzu werden die Formatvorlagen durch den kleinen Pfeil im Bereich "Formatvorlagen" aufgerufen (alternativ ist dieses auch per ALT+STRG+UMSCHALT+S möglich). Im Screenshot ist dieses als roter Kasten markiert.


Durch einen Klick auf Optionen kann nun unter Anzuzeigende Formatvorlagen "Alle" ausgewählt werden, so dass hier dann bis zur Überschrift 10 alles an Überschriften verwendet werden kann.

Ausgangslage
Bei umfangreichen Tabellen (bspw. mehrere Tabellenblätter innerhalb einer Excelmappe) ist es oft sinnvoll im ersten Blatt eine Übersicht mit Definitionen oder ein Inhaltsverzeichnis anzulegen. Sinnvollerweise kann hier über die Funktion HYPERLINK auch auf die dahinter liegenden Excelmappen verwiesen werden. Dieses kann aber bei mehreren Tabellenblättern recht mühsam sein entsprechend diese anzulegen.



Im Beispiel gibt es ein Tabellenblatt für die Gesamtsicht und eines für einzelne Abteilungen, Fachbereiche und Verwaltung.

Lösung:
Durch einen Beitrag im VBA Entwickler-Treff von XING bin ich auf den Beitrag "Inhaltsverzeichnis für Arbeitsmappe automatisch erstellen" gestossen und habe dieses Makro für mich wie folgt angepasst.

---

Sub Inhaltsverzeichnis()
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer

Set tbl = Worksheets.Add(before:=Worksheets(1))
intZeile = 2

' eingefügtes Blatt "Inhaltsverzeichnis" nennen
Worksheets(1).Name = "Inhaltsverzeichnis"
ActiveSheet.Name = Worksheets(1).Name
Cells(1, 1).Value = "Enthaltene Blätter"

For intTab = 2 To ActiveWorkbook.Worksheets.Count
tbl.Cells(intZeile, 1).Value = Worksheets(intTab).Name

tbl.Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=tbl.Cells(intZeile, 1), Address:="", SubAddress:= _
"'" & Worksheets(intTab).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTab).Name


intZeile = intZeile + 1
Next intTab

' Spaltenbreite fixieren
Worksheets(1).Cells.EntireColumn.AutoFit

End Sub

---

In dieser Variante wird ein Blatt mit der Bezeichnung Inhaltsverzeichnis angelegt und mit entsprechenden Hyperlinks ergänzt. Dieses Beispiel ist im weiteren auch dokumentiert.

Angepasste Version:
Hier wird als Überschrift die Zelle A1 jeden Blattes übernommen und das erste Tabellenblatt ohne Namenszuweisung angelegt. Hierdurch kommt es zu keinen Fehler, solle ein Blatt mit der Bezeichnung Inhaltsverzeichnis schon vorhanden sein.

---

Sub Inhalt_mit_Überschrift()
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer

Set tbl = Worksheets.Add(before:=Worksheets(1))
intZeile = 2


' Zellenüberschriften

ActiveSheet.Name = Worksheets(1).Name
Cells(1, 1).Value = "Überschrift"
Cells(1, 2).Value = "Link"
Cells(1, 1).Font.Bold = True
Cells(1, 2).Font.Bold = True


For intTab = 2 To ActiveWorkbook.Worksheets.Count

' Ausgabe der Zelle A1 eines jeden Arbeitsblattes als Überschrift


tbl.Cells(intZeile, 1).Value = "='" & Worksheets(intTab).Name & "'!a1"

'Übernahme der Registerblattfarbe als Schriftfarbe


tbl.Cells(intZeile, 1).Font.Color = Worksheets(intTab).Tab.Color


'Setzen eines Hyperlinks auf Tabellenblatt

tbl.Cells(intZeile, 2).Value = Worksheets(intTab).Name

tbl.Cells(intZeile, 2).Hyperlinks.Add _
Anchor:=tbl.Cells(intZeile, 2), Address:="", SubAddress:= _
"'" & Worksheets(intTab).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTab).Name


intZeile = intZeile + 1
Next intTab


Worksheets(1).Cells.EntireColumn.AutoFit

End Sub

---

Durch dieses Makro wird die vorhandene Tabelle um ein weiteres Blatt erweitert und in diesen werden alle vorhandenen Blätter mit einen entsprechenden Link aufgelistet.

Zur Erstellung von Makros ist bei Excel 2007 erst einmal die Registerkarte "Entwickleroptionen" unter den Punkt "Die am häufigsten verwendeten Optionen bei der Arbeit mit Excel" unter der Kategorie "Häufig verwende" zu aktivieren.

Nun findet sich der Makroeditor in der Symbolleiste "Entwicklertools" und kann hier direkt über Makros aufgerufen werden. In Excel 2010 ist dieser in der Symbolleiste Ansicht zu finden.

Hier kann nun im Feld Makroname ein Name bspw. Inhaltsverzeichnis eingetragen werden und durch den Klick auf "Erstellen" ein Makro angelegt werden.

Dabei wird durch sub Name und endsub() das entsprechende Makro angelegt. Hier kann das oben angegebene Makro eingefügt werden.



Nun kann das VisualBasic Fenster geschlossen werden und zur eigentlichen Tabelle zurückgekehrt werden.

Das Makro ist nun direkt gespeichert und kann über den Makroeditor wiederum durch "Ausführen" gestartet werden.



Hierbei hat das Makro unabhängig vom gewählten Makronamen die im Code mit sub Name() angegebene Bezeichnung. Im Beispiel also Inhaltsverzeichnis.

Im Ergebnis sieht das erste Tabellenblatt nun wie folgt aus:


Durch einen Klick auf einen entsprechenden Link kann auch direkt auf das Exceltabellenblatt gewechselt werden.

Der Vorteil dieses Makro ist, dass es unabhängig von bereits vorhandenen Tabellenblättern angelegt werden kann und in der Reihenfolge der Tabellenblätter eine Übersicht über die einzelnen Tabellenblätter erstellt.

Es ist sinnvoll dieses Makro in Verbindung mit den im Artikel Office Integration - Excelansicht in SAP und Daten kopieren nach Excel vorgestellten Makros zur Übernahme von Daten aus Buchhaltungssystemen in eine persönliche Makroarbeitsmappe (siehe Artikel Excel Umgang mit Makros und Visual Basic for Applications (VBA) zu übernehmen.

Zusammenfassung (Zwei Makros mit A1 oder A2 als Überschrift)

Sub Inhalt_mit_Überschrift_aus_a1()
'
' Inhalt_mit_Überschrift_aus_a1 Makro
' Erstellt ein Inhaltsverzeichnis aller Tabellenblaetter und verwendet als Überschrift die Zelle A1 eines jeden Tabellenblattes
'

'
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer
Set tbl = Worksheets.Add(before:=Worksheets(1))
intZeile = 2
ActiveSheet.Name = Worksheets(1).Name
Cells(1, 1).Value = "Überschrift"
Cells(1, 2).Value = "Link"
Cells(1, 1).Font.Bold = True
Cells(1, 2).Font.Bold = True
For intTab = 2 To ActiveWorkbook.Worksheets.Count
tbl.Cells(intZeile, 1).Value = "='" & Worksheets(intTab).Name & "'!a1"
tbl.Cells(intZeile, 1).Font.Color = Worksheets(intTab).Tab.Color
tbl.Cells(intZeile, 2).Value = Worksheets(intTab).Name
tbl.Cells(intZeile, 2).Hyperlinks.Add _
Anchor:=tbl.Cells(intZeile, 2), Address:="", SubAddress:= _
"'" & Worksheets(intTab).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
Worksheets(1).Cells.EntireColumn.AutoFit
End Sub

Sub Inhalt_mit_Überschrift_aus_a2()
'
' Inhalt_mit_Überschrift_aus_a2 Makro
' Erstellt ein Inhaltsverzeichnis aller Tabellenblaetter und verwendet als Überschrift die Zelle A2 eines jeden Tabellenblattes
'

'
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer
Set tbl = Worksheets.Add(before:=Worksheets(1))
intZeile = 2
ActiveSheet.Name = Worksheets(1).Name
Cells(1, 1).Value = "Überschrift"
Cells(1, 2).Value = "Link"
Cells(1, 1).Font.Bold = True
Cells(1, 2).Font.Bold = True
For intTab = 2 To ActiveWorkbook.Worksheets.Count
tbl.Cells(intZeile, 1).Value = "='" & Worksheets(intTab).Name & "'!a2"
tbl.Cells(intZeile, 1).Font.Color = Worksheets(intTab).Tab.Color
tbl.Cells(intZeile, 2).Value = Worksheets(intTab).Name
tbl.Cells(intZeile, 2).Hyperlinks.Add _
Anchor:=tbl.Cells(intZeile, 2), Address:="", SubAddress:= _
"'" & Worksheets(intTab).Name & "'!A2", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
Worksheets(1).Cells.EntireColumn.AutoFit
End Sub

Adobe Acrobat Distiller nutzt zur Erzeugung von PDF aus Excel ein Extra Ribbon von dem aus die Druckfunktion (bzw. PDF Erstellungsfunktion) aufgerufen werden kann.Dieses wird durch ein Excel Add-In verwirklicht.

Nun kann es passieren, dass diese Symbolleiste ausgeblendet wird.

Innerhalb der Excel-Optionen befindet sich in der Kategorie Add-Ins beim Punkt "Verwalten:" die Auswahlfunktion "Deaktivierte Elemente" (Drop-Down Liste am Ende). Durch "Gehe zu" können hier einmal deaktivierte Elemente wieder aktiviert werden.

Ausgangslage
In einer Excelarbeitsmappe werden in einzelnen Tabellenblättern Daten gepflegt. Nun besteht aber die Notwendigkeit mehr als ein Tabellenblatt angezeigt zu bekommen.

Sofern man mehrere Arbeitsmappen offen hat ist dieses unter auf der Symbolleiste Ansicht im Punkt Fenster bei "Nebeneinander anzeigen" oder unter "Alle anordnen" möglich.

Lösung
Um nun aber auch verschiedene Arbeitsblätter einer Excelmappe nebeneinnader angezeigt zu bekommen bsteht die Möglichkeit in der Symbolleiste Ansicht die Funktion "Neues Fenster" innerhalb der Gruppe Fenster zu wählen.



Hierdurch wird eine Excelmappe in mehreren Fenstern geöffnet die dann ebenfalls über "Nebeneinnader anzeigen" oder über Fenster -> "Teilen" aufgeteilt werden können. Hierbei werden die dargestellten Excelblätter mit einer durchgehenden Fensternummerierung dargestellt (Eine Arbeitsmappe.XLSX:1, Eine Arbeitsmappe.XLSX:2, ...).

Die einzelnen Fenster können dabei auch geschlossen werden. Erst beim letzten Schließen kommt dann die Meldung "Wollen Sie speichern".

Ausgangslage
Aus einer Tabelle bestehend aus Kostenstellen, Personalkosten, Sachkosten, AfA und Summe soll ein Stapeldiagramm in Excel erstellt werden in dem die einzelnen Kosten (Personal-, Sachkosten und AfA) dargestellt werden und darüberhinaus auch eine Summe dargestellt wird.

Lösung
Zwar ist es innerhalb der Exceldiagramme nicht möglich die dargestellten Wertachsen zu summieren, jedoch kann mit einer Hilfsachse innerhalb der dem Diagramm zugrunde liegenden Exceltabelle ein entsprechendes Ergebnis erzielt werden.

Hierzu wird folgende Tabelle als Grundlage genommen.

Die Spalte "Gesamtkosten" berechnet sich dabei aus den Spalten B bis D.
Nun wird diese Tabelle markiert und über die Symbolleiste Einfügen über
Säule->
2D Säulen = Gestapelte Säulen

ein gestapeltes Säulendiagramm über diese Tabelle eingefügt.

Hier werden nun die einzelnen Kosten als Säulen und die Kostenstellen als Legenden angezeigt.


Über die rechte Maustaste können nun Zeile und Spalten getauscht werden, so dass die Kostenarten als Legende (Reihen) und die Kostenstellen als Rubriken (als horizontale Achsen) dargestellt werden.



Im Ergebnis sieht das Diagramm nun wie folgt aus:


Hier sind die einzelnen Kostenblöcke mit unterschiedlichen Säulenfarben dargestellt.

Nun markieren wir die Säule Gesamtkosten und wählen mit der rechten Maustaste die Option "Datenreihen formatieren". Hier geben wir als Füllung "keine Füllung" und als Rahmenfarbe "keine Linie" an.



Im Ergebnis wird nun die Säule nicht mehr angezeigt. Dafür können wir nun über die Symbolleiste Layout die Legende oberhalb angezeigt werden. Hierbei kann dann auch die Legende "Gesamtkosten" markiert und gelöscht werden. Ferner kann hier über
Layout->
Datentabelle->
"Datentabelle mit Legendensymbol anzeigen"
auch eine Wertetabelle ausgegeben werden,in der die Gesamtkosten aufgeführt sind und darunter die Einzelkosten unterhalb des Diagramms aufgeführt sind.



Dadurch, dass für Gesamtkosten weder eine Farbe noch Linien angegeben worden sind, erscheinen die Gesamtkosten in der Datentabelle aber auch im Diagramm als Überschrift, die auch entsprechend formatiert werden kann. In der Legende (unterhalb von "Diagrammtitel") kann der Begriff Gesamtkosten markiert und gelöscht werden. Auf diese Weise sind tatsächlich nur die drei Kostenblöcke als Legende angegeben. Ferner wurden die Einzelwerte der Gesamtkosten auf identische Höhe gezogen und fett markiert und unterstrichen.

Ein weiteres Beispiel für ein Säulendiagramm (3D-Säulendiagramm) ist im Artikel "Excel Pivottabelle Darstellung Grenzwerte Einnahmen auf Projekte je Person durch Zuordnung VZÄ auf verantwortlicher Kostenstelle" beschrieben um hier Einnahmen pro VZÄ auszuweisen.

Datenanalyse mit Excel

Weitere Artikel rund um die Datenanalyse mit Excel sind auch in den Artikeln "Datentrends für Drittmittelstatistik mit Sparklines ab Excel 2010 darstellen durch Liniendiagramme in Zellen" und  "Excel: bedingte Formatierung mit Pfeilen (Darstellung Tendenzen bei Veränderungen)" zu finden.