Category Archives: Office

MS Office 2013 wechselt in den Extended Support

Zum 10. April 2018 wechseln die Applikationen der Microsoft Office 2013-Suite in den Extended Support. Der Extended Support läuft mindestens 5 Jahre und enthält kostenlose Sicherheitsupdates sowie kostenpflichtige, nicht sicherheitsrelevante Updates und kostenpflichtigen Support. Microsoft nimmt während der erweiterten Support-Phase keine Anforderungen nach Entwurfsänderungen oder neuen Features entgegen.

Des Weiteren entfällt zu diesem Datum der Support für die Produkte des Visual Studio 2008 inklusive der Express Version.

September-Patch verändert Outlook-Formularnutzung

Die am 12. September veröffentlichten Microsoft-Aktualisierungen für Office beinhalten eine Deaktivierung von benutzerdefinierten Formularen:

  • Microsoft Outlook 2007 – KB4011086
  • Microsoft Outlook 2010 – KB4011089
  • Microsoft Outlook 2013 – KB4011090
  • Microsoft Outlook 2016 – KB4011091

Von dieser Abschaltung ist in den Erläuterungen der jeweiligen Installationsressource nichts zu finden.
Es gibt allerdings einen Supportartikel von Microsoft wie entsprechende Ausnahmen definiert werden können: hier

Zur Erkennung der Objektbezeichnungen im einem Outlook Postfach sollte die Spalte „Nachrichtenklasse“ hinzufügen. Damit können die benötigten „Message Class“ ausgelesen werden.

Juni-Patchday erzeugt Warnmeldungen in Outlook bei Anhängen

Beim aktuellen Patchday Juni 2017 von Microsoft kommt es zu Anpassungen in der Office-Applikation Outlook, welche Mehraufwand für die Benutzer bedeutet. Betroffen sind die folgenden Updates:

Es kommen Fehler bzw. Warnmeldungen beim Öffnen von Anhängen hoch, die auf unsichere Anlagen bzw. unsichere Quellen verweist.
Dieses Verhalten wird aktuell von Microsoft geprüft.

Außerdem soll es Probleme geben bei Skripten in öffentlichen oder freigegebenen Ordnern, so dass auch über das Sicherheitscenter freigegebene Skripte von z.B. Formularen nicht mehr ordnungsgemäß unter Outlook 2010 funktionieren.

Weitere Informationen: hier
Stand: 15.06.2017

Outlook – Standardschrift definieren

Die Definition der Standardschrift für mehrere Benutzer kann in Outlook, im Gegensatz zu den Applikationen Word, Excel und Powerpoint, in der Registry erfolgen. Bei den benannten Applikationen muss es in der Standard-Vorlage vorgenommen werden.

Da es sich um Hex-Werte handelt ist es der einfachste Weg, die Werte in einem Client unter den „Optionen“ – „E-Mail“ – „Briefpapier und Schriftarten“ zu definieren. Anschließend sollte der folgende Pfad exportiert werden:

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\MailSettings

Die folgende Einträge müssen dann an die Benutzer verteilt werden:

  • ComposeFontComplex
  • ComposeFontSimple
  • CReplyFontComplex
  • CReplyFontSimple
  • TextFontComplex
  • TextFontSimple

Dieses kann über eine Reg-Datei oder per „Group Policy Preferences“ gelöst werden. Der in diesem Artikel definierte Pfad ist für Outlook 2016 gedacht. Für ältere Versionen muss die Versionsnummer angepasst werden.

Telefonliste aus Outlook in Excel exportieren

Über Twitter gab es die Anfrage, ob man nicht eine Telefonliste untereinander darstellen könne. Der Standardexport sieht nur den Export eine Kontaktes pro Zeile vor. Leere Felder werden ebenfalls dargestellt.

Anbei der VBA-Code für das Outlook-Makro:

Sub Telefonliste()
On Error Resume Next
 
Const olFolderContacts = 10
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
 
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
 
objExcel.Cells(1, 1) = "Name"
objExcel.Cells(1, 2) = "Telefonummer"
 
I = 2
 
For Each ObjContact In colContacts
If Not ObjContact.BusinessTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.BusinessTelephoneNumber
I = I + 1
End If
 
If Not ObjContact.MobileTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.MobileTelephoneNumber
I = I + 1
End If
 
If Not ObjContact.HomeTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.HomeTelephoneNumber
I = I + 1
End If
Next
 
Set objRange = objWorksheet.UsedRange
objRange.EntireColumn.Autofit
End Sub

Büronummer, Mobilnummer & private Nummer werden berücksichtigt.

Access – Vergleiche direkt in der Abfrage

Recht schnell hat man sich eine Abfrage im Microsoft Access gebaut und möchte nun 2 Spalten vergleichen, so dass man diese filtern kann.

Dieses kann direkt in der Abfrage durchgeführt werden:

Prüfung: wenn([Tabelle1.Überschrift1]=[Tabelle2.Überschrift1];"gleich";"ungleich")

Dieser String muss unter „Feld“ eingetragen werden. So wird das Ergebnis für die verknüpften Daten in der Spalte angezeigt. Als Überschrift ist durch die Schreibweise das Word „Prüfung“ definiert.

Listen schnell formatieren per Makro in Excel

Häufiger muss ich Auswertung, Listen oder Planungen in Excel lesen. Manche importiere ich auch aus CSV, Text-Dateien oder gar per ODBC-Verbindung. Bei entsprechenden Datenmengen und aufgrund der Übersichtlichkeit formatiere ich mir diese Tabellen gerne. Ich wurde nun gefragt, wie ich dieses entsprechend schnell durchführe und gerne hinterlege ich hier die vba-Zeilen.

Autofilter auf Zeile 1 setzen:

Range("A1").Select
Selection.AutoFilter
Application.ScreenUpdating = True

Zeile 1 fixieren:

    With ActiveWindow
        .FreezePanes = False
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With

Zeilen farblich trennen:

Dim z As Integer
    Dim sp As Integer
    Dim s As Integer
 
    sp = Range("IV1").End(xlToLeft).Column + 1
    z = Range("A65536").End(xlUp).Row + 1
 
    With Range("A1", Chr(63 + sp) & 1)
        .Font.Bold = True
        .EntireColumn.AutoFit
        .Interior.ColorIndex = 15
        .Interior.Pattern = xlSolid
    End With
 
    For s = 3 To z - 1 Step 2
    With Range("A" & s, Chr(63 + sp) & s)
     .Interior.ColorIndex = 37
     .Interior.Pattern = xlSolid                                               '
    End With
    Next s

Diese Funktionen nutze ich in einem Makro gemeinsam und entsprechend habe ich mit einem Klick eine schnell formatierte Tabelle.