Posts

Es werden Posts vom Januar, 2016 angezeigt.

Power Query, Daten entpivotieren

Bild
Um Daten mit Pivot weiterbearbeiten oder mit Exel Power Pivot in ein Modell zur Kombination mit anderen Daten überführen zu können, bedarf es einer bestimmten Datenstruktur. Oftmals liegen die Ausgangsdaten aber bereits in einer pivotierten Struktur vor (siehe Beispiel) Für eine weitere  Bearbeitung wird für jede Materialgruppe / Datum Kombination eine Datenzeile benötigt, in diesem Beispiel also 12 (3 Materialgruppen x 4 Datumswerte) Datenzeilen. Mit Power Query ist dies sehr einfach umzusetzen: Tabelle in Abfrage-Editor laden (reiter Power Query -> von Tabelle) Einzelne Datumswerte mit CTRL markieren, rechte Maustaste -> Spalten entpivotieren über "Schließen & Laden" wird die entpivotierte Tabelle in ein Excel Tabellenblatt übernommen und kann weiter mit Pivottabelle oder Power Pivot als Datenquelle (Modell) verarbeitet werden. siehe Power Query Daten pivotieren mehrere Wertspalten

Grafiken in Zell Kommentar einfügen

Bild
Um eine Bild Datei (jpg, gif, png usw.) in einen Zell Kommentar einzufügen, mit der rechten Maustaste auf den Rahmen des Kommentars drücken, im Kontextmenü "Kommentar formatieren" wählen Reiter "Farben und Linien" aktivieren Dropdownfeld "Farbe" ->Fülleffekte wählen Reiter "Grafik" aktivieren und "Grafik auswählen" drücken Alternativ kann eine Grafik natürlich auch über eine VBA Prozedur eingefügt werden. Hier der Basis VBA Code --- BEGINN VBA Public Sub Bild_Kommentar_einfuegen()     Dim strPfadDatei As String     Dim lngLetzteZeile As Long     Dim objCom As Object         strPfadDatei = "C:\Users\Mustermann\Desktop\zellkommentar.png"         With Tabelle1         lngLetzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row         For lngLetzteZeile = 1 To lngLetzteZeile             If Not .Cells(lngLetzteZeile, 1).Comment Is Nothing Then                 .Cells(lngLetzteZeile, 1).C

Punkt (Komma) statt Komma (Punkt) als Dezimaltrennzeichen

Bild
Über den Reiter Datei -> Optionen -> erweitert -> Bearbeitungsoptionen kann man die Verwendung von Punkt oder Komma als Dezimaltrennzeichen entweder vom Betriebssystem übernehmen (Standardeinstellung) (Systemsteuerung -> Zeit und Sprache -> Region und Sprache oder nur für Verwendung in Excel übersteuern. Das kann zB sinnvoll im Falle des Schweizer Zahlenformats sein (Bsp 2,000.00 oder 2'000.00 anstatt 2.000,00 ) benutzerdefiniertes Zahlenformat #'##0.00 (Zellen formatieren -> Reiter Zahlen -> benutzerdefiniert) siehe auch benutzerdefinierte Zahlenformate Lösungsansatz mit Excel Power Query  Lernvideo

Kontakte verwaltet in Excel in Outlook Kontakte schreiben

Bild
Falls Kontakte in Excel vorliegen, können diese via VBA Prozedur direkt in Outlook Kontakte geschrieben werden. Voraussetzung ist folgende Excel Tabellenstruktur --- BEGINN VBA Code Public Sub Outlook_Kontakt_erstellen() 'Verweis auf Microsoft Outlook XX.X Object Library muß gesetzt sein     Dim MyOutlook As Outlook.Application     Dim KontaktOutlook As Outlook.ContactItem     Dim i As Integer     Set MyOutlook = CreateObject("Outlook.Application")     ActiveSheet.Cells(1, 1).Activate    'Spaltenbeschriftungen stehen in Zeile 1, Termine ab Zeile 2    For i = 1 To ActiveSheet.UsedRange.Rows.Count       If i <> 1 Then '1te Zeile = Spaltenbeschriftung überspringen         Set KontaktOutlook = MyOutlook.CreateItem(olContactItem)               With KontaktOutlook 'Excel Tabellenstruktur FirstName, LastName, BusinessAddress usw.             .FirstName = ActiveSheet.Cells(i, 1).Value             .LastName = ActiveSheet.Cells(i,

Termine verwaltet in Excel in Outlook Kalender schreiben

Bild
Mit folgendem VBA Code kann man in Excel erfasste Termine via Funktionsaufruf in einen Outlook Kalender schreiben. Voraussetzung ist folgende Terminstruktur --- BEGINN VBA Code --- Public Function OutlookVerfuegbar() As String ' Prüfen ob Outlook vorhanden ist. ' Outlook installiert ? Welche Version ? ' ' Fehlerbehandlung   On Error GoTo ErrHandler   Dim oOutlook As Object   Set oOutlook = CreateObject("Outlook.Application")   OutlookAvail = oOutlook.Version   Set oOutlook = Nothing   On Error GoTo 0   Exit Function ErrHandler:   OutlookVerfuegbar = "" End Function Sub TerminNachOutlook()    Dim StartDatum As String    Dim StartUhrzeit As String    Dim Dauer As Long    Dim Beschreibung As String    Dim Nachricht As String    Dim Ort As String    Dim i As Integer      'Tabellenstruktur, Spaltenbeschriftung in erster Zeile  'StartDatum Format TT.MM.JJJJ  'StartUhrzeit Format SS:MM  'Dauer Ganzz

Kommentare direkt in Formeln schreiben

Bild
Typischerweise erläutert man Zellinhalte in Excel über Kommentare (rechte Maustaste -> Kommentar einfügen). Mit einem kleinen Trick kann man einen kurzen Kommentar alternativ direkt in der Formel setzen. Hierzu benötigt man die obsolete Funktion N(), welche in der Praxis nicht benötigt wird und nur aus Kompatibilitätsgründen noch vorhanden ist. N() wandelt Zellinhalte in Werte um. Texte, die nicht als Wert interpretiert werden können, werden auf 0 gesetzt. Verwendet man die Funktion N() in Verbindung mit einer Formel, dann wird in der Zelle nur das Formelergebnis, in der Bearbeitungsleiste jedoch der vollständige Term angezeigt. Der Trick besteht nun darin, einer Formel die Funktion N("Hier steht ein Kommentar") anzuhängen. Eine Addition mit 0 verändert das Formelergebnis nicht, N("Hier steht ein Kommetar") ist aber in der Bearbeitungsliste sichtbar. Beispiel Summe(A1:A3) + N("Summenbildung Bereich A1:A3")

Angebotsvergleich, bedingte Formatierung

Bild
Lern Video Vor allem im Einkauf werden regelmäßig Angebotsvergleiche durchgeführt, um den günstigsten Lieferant eines Produkts zu ermitteln. Die bedingte Formatierung (Start -> bedingte Formatierung -> Regeln verwalten -> neue Regel) kann hierbei sinnvoll zum Einsatz kommen. Werden die angefragten Lieferanten in der Horizontalen, die Preise in der Vertikalen abgebildet, braucht man nur einmalig eine bedingte Formatierung aufbauen (Spalte wird arretiert, erkennbar am Dollar Zeichen in der Formel). Diese Formatierung kann dann beliebig oft über Daten -> Format auf weitere Preise (Zeilen) bei Bedarf übertragen werden. Der jeweils günstigste Preis (Zeile) und somit Lieferant (Spalte) kann zB über die Hintergrundfarbe einer Zelle über die bedingte Formatierung markiert werden (Formatieren -> Hintergrundfarbe)

Outlook Kontakte email Anzeigename ändern

Bild
Die Spaltensortierung Name im Adressbuch wird durch das Kontakte Feld "Speichern unter" (1), der Email Anzeigenamen durch das Kontakte Feld "Anzeigen als" (2) gesteuert. Der folgende VBA Code ändert das Standard Format Vorname Name (email Adresse) zu Name, Vorname (email Adresse) relevante Objekt (=Kontakt) Eigenschaft := .Email1DisplayName = .LastNameAndFirstName 'Format Nachname, Vorname --- SCHNIPP Code BEGINN --- Public Sub ChangeEmailDisplayName()       Dim objOL As Outlook.Application     Dim objNS As Outlook.NameSpace     Dim objContact As Outlook.ContactItem     Dim objItems As Outlook.Items     Dim objContactsFolder As Outlook.MAPIFolder     Dim obj As Object     Dim strFirstName As String     Dim strLastName As String     Dim strFileAs As String     On Error Resume Next     Set objOL = CreateObject("Outlook.Application")     Set objNS = objOL.GetNamespace("MAPI")     Set objContactsFolder = objNS.Ge

Sharepoint Kontakt Liste als Adressbuch in Outlook verwenden

Bild
Interne Kontakte (Mitarbeiter) eines Unternehmens sind in der Regel komfortabel über ein globales Outlook Adressbuch auswählbar. Externe Kontakte (Lieferanten, Kunden, Dienstleister, Partner usw.) werden jedoch oft manuell, dezentral und redundant in den einzelnen Adressbüchern der jeweiligen Kollegen gehalten und gepflegt. Um diese Redundanz zu vermeiden können Kontakte in einer Sharepoint Kontakt Liste zentral ausgelagert, verwaltet, berechtigt und mit den dezentralen Outlook Clients verknüpft werden. Sharepoint Kontakt Liste mit Outlook verknüpfen Nach diesem Klick bestätigen, damit zukünftig alle Kontakte mit Outlook synchronisiert werden. Diese Synchronisation funktioniert sogar bidirektional, d.h. es werden sowohl neue Einträge / Änderungen der zentralen Kontakte Liste als auch Einträge / Änderungen im (dezentralen) Outlook Client berücksichtigt / zurückgeschrieben. Kontakte Liste als Outlook Adressbuch deklarieren siehe auch  Outlook Kontakte

Outlook Kontakte, Speichern unter (Format Firma, Nachname, Vorname für Adressbuch)

Falls in einem Outlook Kontakte Ordner mehrere Ansprechpartner je Firma angelegt sind, ist es sinnvoll, die Kontakte im Format (Outlook Kontakt -> Speichern unter) FIRMA (Nachname, Vorname) abzuspeichern. Verwendet man einen Kontakte Ordner als Adressbuch (Eigenschaften -> Reiter Outlook Adressbuch, Option "Diesen Ordner als E-Mail-Adressbuch anzeigen") so werden nun alle Kontakte innerhalb einer Firma kohärent angezeigt (Feld Name des Adressbuchs). Mit folgendem VBA Code werden alle markierten Kontakte eines Kontakte Ordners auf das notwendige Format umgestellt. --- Code BEGINN --- Sub Kontakt_Speichern_unter() Dim olExplorer As Explorer Dim olFolder As MAPIFolder Dim olSelection As Selection Set olExplorer = Application.ActiveExplorer Set olFolder = Application.ActiveExplorer.CurrentFolder Set olSelection = olExplorer.Selection For x = 1 To olSelection.Count     SCompany = olSelection.Item(x).CompanyName     SName = olSelection.Item(x).La