Excel im betrieblichen Umfeld

Die Kenntnis über das Datum der letzten Aktualisierung ist zwingend notwendig, um Kennzahl richtig interpretieren zu können. Falls ein solches Datum nicht vorhanden ist, kann dieses mit folgendem Trick aus dem Datenmodell bezogen werden: In folgendem Beispiel liegt das Belegdatum der Bestellungen vor. Mittels einer DAX Funktion kann ein measure gebildet werden, welches das letzte Belegdatum ermittelt Mit Hilfe einer CUBE Funktion kann dieses ausgelesen werden: =CUBEWERT("ThisWorkbookDataModel";"[Measures].[letztes_Belegdatum]") Mittels TEXT Funktion kann das Datum im richtigen Fomat dargestellt werden: ="letztes Bestelldatum: " & TEXT(CUBEWERT("ThisWorkbookDataModel";"[Measures].[letztes_Belegdatum]");"tt.MM.jjjj")

Wenn in einem Excel-Tabellenblatt Hyperlinks auf andere Datei-Mappen im Verzeichnis vorhanden sind, kann es zu Problemen kommen, wenn die Datei mit den enthaltenen Links gespeichert und später in einen anderen Ordner verschoben wird. Hyperlinks auf andere Mappen werden von Excel in der Regel als „relative Verweise“ (z. B. Ordnername\Datei.xls) eingefügt. Nach dem Verschieben verlieren diese Links dann ihren Bezug. Daher ist es wichtig, Excel dazu zu bringen, „absolute Verweise“ (z. B. \\Computername\Ordnername\Datei.xls) zu verwenden. Ein Eintrag in den Datei-Eigenschaften zwingt Excel dazu, in der Mappe absolute Hyperlinks zu verwenden. Vorgehensweise: 1        Nach dem Einfügen der Hyperlinks Datei speichern 2        Reiter Datei -> Informationen 3        Eigenschaften -> erweiterte Eigenschaften 4        Im Dialogfenster auf Reiter Zusammenfassung wechseln 5        Im Feld Hyperlinkbasis (Linkbasis) einen Punkt "." eingeben 6        mit OK bestätige

Um ausgeblendete Zeilen und Spalten je Tabelle wieder einzublenden, kann folgender VBA Code verwendet werden. Hierzu den VBA Code in ein neues Modul der VBA Entwicklungsumgebung kopieren und über Reiter Entwicklungstools -> Makro starten: --- SCHNIPP --- Public Sub Zeilen_Spalten_einblenden()     Dim i As Integer         On Error Resume Next         For i = 1 To ActiveWorkbook.Worksheets.Count                 With ActiveWorkbook             .Worksheets(i).Cells.EntireColumn.Hidden = False             .Worksheets(i).Cells.EntireRow.Hidden = False         End With     Next i         Call MsgBox("Alle Zeilen und Spalten" + vbCrLf + "je Tabelle" + vbCrLf + "sind eingeblendet") End Sub --- SCHNAPP ---