Posts

Es werden Posts vom 2016 angezeigt.

Alle Dateien eines Ordners...

Alle Dateien eines Ordners (optional mit Unterordner) werden aufgelistet. Ist es keine Exceldatei wird der Dateityp in die Zelle geschrieben. Ist es eine Exceldatei - prüfen, ob ein bestimmtes Tabellenblatt vorhanden ist. Wenn das Tabellenblatt vorhanden ist - Wert aus A3 in Zelle schreiben, sonst Info in Zelle schreiben.

All files in a folder (optionally with subfolders) are listed. If it is not an excel file, the data type is written into the cell. Is it an Excel file - check if a particular spreadsheet is present. If the sheet exists, write value from A3 to cell, otherwise write info to cell.

Hier noch eine Beispieldatei / Here's a sample file:
Alle Dateien eines Ordners...[ZIP 2 MB]

OptionExplicit' InformationsausgabeConststrInfo1AsString="Keine Exceldatei!"ConststrInfo2AsString="Nicht vorhanden!"' Tabellenblatt das geprüft werden sollConststrSheetAsString="Tabelle1"' Suchmuster gegebenenfalls anpassenConststrEXAsString="*.*"&#…

Unterschiedliche Textfelder in Word aus Excel befüllen...

Ein einfaches Beispiel - unterschiedliche Textfelder in einem Word Dokument füllen mit Daten aus Excel.

A simple example - different text fields in a Word document, fill it with data from Excel.

Hier noch eine Beispieldatei / Here's a sample file:
Unterschiedliche Textfelder in Word aus Excel befüllen...[ZIP 100 KB]

OptionExplicit'--------------------------------------------------------------------------' Module : Modul1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 02.08.2016' Purpose : Word - Datei öffnen, verschiedene Textfelder befüllen...'--------------------------------------------------------------------------PublicSubMain()DimstrPathFile1AsStringDimstrPathFileAsStringDimstrBookmarkAsStringDimobjWDDocVAsObjectDimobjWDDocAsObjectDimobjWDAppAsObjectDimlngCalcAsLong' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOnErrorGoToFin' Die Excelapplikation wird ruhig gestellt - UNBEDINGT wieder einschaltenWithA…

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…