Posts

Es werden Posts vom Januar, 2016 angezeigt.

Outlook - Ordner im Postein- und Postausgang erstellen...

Outlook - Ordner im Posteingang und Postausgang erstellen. Wie geht das?

Create a folder in your Inbox and Outbox - Outlook. How does it work?

OptionExplicit'--------------------------------------------------------------------------' Module : Modul1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 18.01.2016' Purpose : Outlook - Ordner unter Postein- und Postausgang erstellen...'--------------------------------------------------------------------------SubMain()DimobjNewFolderAsObjectDimvarFolderAsVariantDimobjFolderAsObjectDimobjOutAppAsObjectDimobjNameAsObjectDimblnTMPAsBooleanOnErrorGoToFinvarFolder=Application.InputBox("Ordnername?",Type:=2)IfNotvarFolder=FalseAndTrim(varFolder)<>""ThenSetobjOutApp=CreateObject("Outlook.Application")SetobjName=objOutApp.GetNamespace("MAPI")' 6 = olFolderInbox' 4 = olFolderOutboxOnErrorResumeNextSetobjFolder=objName.GetDefaultFolder(6)SetobjNewFo…

UserForm - Datum - Filtern - als PDF speichern...

In Spalte A steht fortlaufend das Datum. Dies soll über eine UserForm gefiltert und als PDF gespeichert werden.

In column A continuously is the date. This should be filtered through a UserForm and saved as a PDF.

Hier noch eine Beispieldatei / Here's a sample file:
UserForm - Datum - Filtern - als PDF speichern...[XLSM 60 KB]

' Variablendeklaration erforderlichOptionExplicit'--------------------------------------------------------------------------' Module : UserForm1' Procedure : UserForm_Activate' Author : © Case (Ralf Stolzenburg)' Date : 04.01.2016' Purpose : Bereich - Datum - Filtern - PDF speichern...'--------------------------------------------------------------------------PrivateSubUserForm_Activate()' Tabelle1 Spalte A in Combobox schreibenComboBox1.List=Tabelle1.Range("A2:A"&Cells(Rows.Count,1).End(xlUp).Row).Value' Inhalt ComboBox2 = ComboBox1ComboBox2.List=ComboBox1.List' Eintrag in ComboBox1 komplett…