Posts

Es werden Posts vom 2017 angezeigt.

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…