Posts

PowerPoint - Fusszeile - TextBox befüllen - alle Folien...

PowerPoint alle Folien - in der Fusszeile die Textbox befüllen.

PowerPoint all slides - fill the text box in the footer.

Hier noch eine Beispieldatei / Here's a sample file:
PowerPoint - Fusszeile - TextBox befüllen - alle Folien...[ZIP 50 KB]

OptionExplicit' Speichername der DateiConststrPPSaveAsString="EXCELnachPP"' anpassen!!!' Leeres Slide in PowerPointConstppLayoutBlankAsLong=12' Objektvariable für ApplikationDimobjPPAsObject'--------------------------------------------------------------------------' Module : Module1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 14.08.2017' Purpose : PowerPoint - Fusszeile - TextBox befüllen...'--------------------------------------------------------------------------PublicSubMain()' VariablendeklarationDimobjPPPresAsObjectDimobjPPDocAsObjectDimintLeftAsIntegerDimintTMPAsIntegerDimlngCalcAsLong' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOn…

Google Maps - Strasse aus Name, PLZ und Ort ausgeben...

Gegeben: Name, PLZ und Stadt der Firma. In Zelle daneben: Straße schreiben.
Bitte beachten: Es gibt Einschränkungen bei der Anzahl der Abfragen in Google Maps. Informieren Sie sich bitte über ALLE Einschränkungen.

Given: name, zip code and city of the company. In cell next to it: write street. Please note: There are restrictions on the number of queries in Google Maps. Please inform yourself about ALL restrictions.

Hier noch eine Beispieldatei / Here's a sample file:
Google Maps - Strasse aus Name, PLZ und Ort ausgeben...[XLSB 25 KB]

OptionExplicit'--------------------------------------------------------------------------' Module : modAddress' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 23.04.2017' Purpose : Google Maps - Strasse aus Name, PLZ und Ort ausgeben...'--------------------------------------------------------------------------PublicSubMain()DimwksSheetAsWorksheetDimobjXMLHTTPAsObjectDimstrFirmaAsStringDimvarArrAsVaria…

Range - Picture - Outlook Body...

Range (mit Format und Daten Gültigkeit) als Bild in Outlook Body.

Range (with format and data validity) as image in Outlook Body.

Hier noch eine Beispieldatei / Here's a sample file:
Range - Picture - Outlook Body...[ZIP 40 KB]

OptionExplicit' Bedingte Kompilierung für 32/64 Bit#If Win64 ThenPrivateDeclarePtrSafeFunctionSearchTreeForFileLib"imagehlp.dll"_(ByValRootPathAsString,ByValInputPathNameAsString,_ByValOutputPathBufferAsString)AsLongPrivateDeclarePtrSafeFunctionMakeSureDirectoryPathExists_Lib"imagehlp.dll"(ByValPfadAsString)AsLong#ElsePrivateDeclareFunctionSearchTreeForFileLib"imagehlp.dll"_(ByValRootPathAsString,ByValInputPathNameAsString,_ByValOutputPathBufferAsString)AsLongPrivateDeclareFunctionMakeSureDirectoryPathExists_Lib"imagehlp.dll"(ByValPfadAsString)AsLong#End IfPublicSubMain()' Puffer für Pfad- und Dateiname festlegenDimstrPathNameAsString*255DimstrNameAsStringDimobjFSOAsObjectDimlngCalcAsLongDimlngTMPAsLong' Wen…

Alle Dateien eines Ordners - UserForm austauschen...

In allen Dateien eines Ordners (ohne Unterordner) eine geänderte UserForm importieren.

In all files of a folder (without subfolder) import a changed UserForm.

Hier noch eine Beispieldatei / Here's a sample file:
Alle Dateien eines Ordners - UserForm austauschen...[ZIP 250 KB]

OptionExplicit'--------------------------------------------------------------------------' Module : Modul1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 20.02.2017' Purpose : Alle Dateien eines Ordners - UsrForm austauschen...'--------------------------------------------------------------------------SubMain()' Name der Ex- bzw. ImportdateiConststrTMPAsString="uf.frm"DimstrFileNameAsStringDimstrPathAsString' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOnErrorGoToFin' Bildschirmaktualisierung ausschaltenApplication.ScreenUpdating=False' Pfad anpassen!!! Im Moment der Pfad mit der Datei mit diesem MakrostrPath=ThisWork…

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="*.*"&#…