{"id":55000899,"date":"2013-08-01T00:00:00","date_gmt":"2020-05-22T21:44:28","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=899"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Tipps_und_Tricks_42013","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/","title":{"rendered":"Tipps und Tricks 4\/2013"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b\" width=\"1\" height=\"1\" alt=\"\"><\/p>\n<p><b>In dieser Reihe unserer Tipps und Tricks rund um Access und VBA erfahren Sie, wie Sie mit einer einfachen VBA-Funktion blitzschnell Verzeichnisse erstellen. Au&szlig;erdem lernen Sie eine kleine VBA-Prozedur kennen, mit der Sie Texte mithilfe von Google von Deutsch nach Englisch &uuml;bersetzen k&ouml;nnen. Haben Sie auch noch einen coolen Tipp f&uuml;r uns Immer her damit &#8211; einfach an info@access-im-unternehmen.de.<\/b><\/p>\n<p><b>Verzeichnisse erstellen<\/b><\/p>\n<p>Mal eben schnell per VBA ein Verzeichnis erstellen Kein Problem: Sofern nur eine Verzeichnisebene zu erstellen ist und die darunter liegenden Ebenen bereits vorhanden sind, brauchen Sie dazu nur den <b>MkDir<\/b>-Befehl mit entsprechenden Parametern abzusetzen.<\/p>\n<p>Wenn es jedoch mehrere Verzeichnis-ebenen sein sollen und Sie noch nicht einmal wissen, ob eine oder mehrere Ebenen bereits existieren, kommt die Funktion aus Listing 1 genau richtig. Voraussetzung ist, dass es sich um ein Verzeichnis mit Angabe des Laufwerkbuchstabens handelt, also etwa <b>c:\\Test<\/b>.<\/p>\n<pre><span style=\"color:blue;\">Public Function <\/span>CreateDir(strDir)<span style=\"color:blue;\"> As Boolean<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>strDirTemp<span style=\"color:blue;\"> As String<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>intPosStart<span style=\"color:blue;\"> As Integer<\/span>\r\n     intPosStart = <span style=\"color:blue;\">InStr<\/span>(4, strDir, \"\\\")\r\n     <span style=\"color:blue;\">If <\/span><span style=\"color:blue;\">Not<\/span> <span style=\"color:blue;\">Right<\/span>(<span style=\"color:blue;\">Trim<\/span>(strDir), 1) = \"\\\"<span style=\"color:blue;\"> Then<\/span>\r\n         strDir = strDir & \"\\\"\r\n     <span style=\"color:blue;\">End If<\/span>\r\n     <span style=\"color:blue;\">Do While<\/span> <span style=\"color:blue;\">Not<\/span> intPosStart = 0\r\n         On Error Resume <span style=\"color:blue;\">Next<\/span>\r\n         MkDir <span style=\"color:blue;\">Mid<\/span>(strDir, 1, intPosStart)\r\n         <span style=\"color:blue;\">On Error GoTo<\/span> 0\r\n         intPosStart = <span style=\"color:blue;\">InStr<\/span>(intPosStart + 1, strDir, \"\\\")\r\n     <span style=\"color:blue;\">Loop<\/span>\r\n     CreateDir = <span style=\"color:blue;\">Len<\/span>(Dir(strDir, vbDirectory)) &gt; 0\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<p><b><span style=\"color:darkgrey;\">Listing 1: Erstellen eines Verzeichnisses per VBA-Funktion<\/span><\/b><\/p>\n<p>Die Funktion rufen Sie beispielsweise mit dem folgenden Befehl auf, wobei Sie das Ergebnis sowohl im Direktbereich ausgeben (wie in diesem Fall) oder auch im Code weiterverarbeiten k&ouml;nnen:<\/p>\n<pre>  CreateDir (\"c:\\test1\\test2\\test3\")\r\nWahr<\/pre>\n<p>Die Funktion ermittelt den Beginn der eigentlichen Verzeichnisse und speichert die Position des ersten Backslash in der <b>Integer<\/b>-Variablen <b>intPosStart<\/b>. Au&szlig;erdem pr&uuml;ft sie, ob der angegebene Ausdruck mit einem Backslash endet.<\/p>\n<p>Dies ist n&ouml;tig, damit auch das hinterste Verzeichnis angelegt wird. Sollte der Backslash fehlen, erg&auml;nzt die Funktion diesen noch.<\/p>\n<p>Nach den Vorbereitungsarbeiten durchl&auml;uft die Funktion so lange eine <b>Do While<\/b>-Schleife, bis die Variable <b>intPosStart <\/b>den Wert <b>0 <\/b>enth&auml;lt. Die Prozedur legt nun mit der <b>MkDir<\/b>-Methode das Verzeichnis an, das dem Inhalt von <b>strDir <\/b>bis zu der in <b>intPosStart <\/b>gespeicherten Position entspricht &#8211; im ersten Durchlauf also etwa <b>c:\\test1\\<\/b>. Sollte das Verzeichnis bereits vorhanden sein, f&uuml;hrt dies zu einem Fehler &#8211; was aber nicht weiter schlimm ist, denn wir haben die Fehlerbehandlung mit der <b>On Error Resume Next<\/b>-Anweisung w&auml;hrend der Ausf&uuml;hrung von <b>MkDir <\/b>deaktiviert. Ist das Verzeichnis noch nicht vorhanden, legt die Funktion dieses an.<\/p>\n<p><!--30percent--><\/p>\n<p>Nach dem Anlegen sucht die Funktion die Position des n&auml;chsten Backslash-Zeichens und legt das Verzeichnis <b>c:\\test1\\test2\\ <\/b>an, sofern dieses noch nicht vorhanden ist. Nach dem Anlegen des Verzeichnisses <b>c:\\test1\\test2\\test3\\ <\/b>findet die Funktion schlie&szlig;lich kein weiteres Backslash-Zeichen mehr, wodurch <b>intPosStart <\/b>den Wert <b>0 <\/b>annimmt &#8211; und damit ist die Abbruchbedingung erf&uuml;llt und die <b>Do While<\/b>-Schleife wird verlassen.<\/p>\n<p>Da wir zwischenzeitlich beim Anlegen der jeweiligen Verzeichnisse die Fehlerbehandlung deaktiviert haben, werden Fehler beim Anlegen nicht gemeldet. Um dennoch nach dem Verlassen der Funktion zu erfahren, ob das Verzeichnis angelegt wurde, pr&uuml;ft die Funktion noch das Vorhandensein des Verzeichnisses mit der <b>Dir<\/b>-Funktion. Das Ergebnis dieser Funktion wird schlie&szlig;lich als Funktionswert von <b>CreateDir <\/b>zur&uuml;ckgegeben.<\/p>\n<p>Grunds&auml;tzlich lie&szlig;e sich die Funktion also auch dazu nutzen, sicherzustellen, dass ein Verzeichnis vorhanden ist &#8211; auch wenn es gar nicht mehr angelegt werden muss.<\/p>\n<p><b>Texte per Google und VBA &uuml;bersetzen<\/b><\/p>\n<p>Brauchen Sie auch ein wenig Starthilfe, wenn es um das &uuml;bersetzen von Texten geht Wir finden, dass der &uuml;bersetzungsdienst von Google schon eine recht gute Basis f&uuml;r eine &uuml;bersetzung liefert &#8211; hier und da ist nat&uuml;rlich immer noch ein wenig Handarbeit n&ouml;tig.<\/p>\n<p>Noch cooler w&auml;re es nat&uuml;rlich, wenn man &uuml;bersetzungen direkt per VBA durchf&uuml;hren k&ouml;nnte.<\/p>\n<p>Kein Problem: Wie man Webservices von Access aus aufruft, haben wir ja nicht erst einmal ausprobiert. Und Google bietet genau f&uuml;r das &uuml;bersetzen von Texten einen Webservice an. Diesen zapfen wir mit der Funktion aus Listing 2 an.<\/p>\n<pre><span style=\"color:blue;\">Function <\/span>GetTranslatedToEN(strDE<span style=\"color:blue;\"> As String<\/span>, <span style=\"color:blue;\">Optional<\/span> strLang1<span style=\"color:blue;\"> As String<\/span> = \"de\", <span style=\"color:blue;\">Optional<\/span> strLang2<span style=\"color:blue;\"> As String<\/span> = \"en\")<span style=\"color:blue;\"> As String<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>objDOM<span style=\"color:blue;\"> As Object<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>objDoc<span style=\"color:blue;\"> As Object<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>strURL<span style=\"color:blue;\"> As String<\/span>\r\n     <span style=\"color:blue;\">Dim <\/span>strTranslated<span style=\"color:blue;\"> As String<\/span>\r\n     <span style=\"color:blue;\">On Error GoTo<\/span> Fehler\r\n     strURL = \"http:\/\/translate.google.com\/translate_ttext=''\" & strDE & \"''&langpair=\" & strLang1 & \"|\" & strLang2 & \"&hl=de\"\r\n     ''F&uuml;r andere Sprachen die entspr. langpair-Tags einsetzen\r\n     <span style=\"color:blue;\">Set<\/span> objDOM = CreateObject(\"MSXML2.XMLHTTP\")\r\n     objDOM.Open \"POST\", strURL, <span style=\"color:blue;\">False<\/span>\r\n     objDOM.setRequestHeader \"Content-Type\", \"text\/xml\"\r\n     objDOM.send\r\n     <span style=\"color:blue;\">Set<\/span> objDoc = CreateObject(\"htmlfile\")\r\n     objDoc.Body.innerHTML = StrConv(objDOM.responseBody, vbUnicode)\r\n     strTranslated = objDoc.getElementById(\"result_box\").innerText\r\n     GetTranslatedToEN = <span style=\"color:blue;\">Mid<\/span>(strTranslated, 2, <span style=\"color:blue;\">Len<\/span>(strTranslated) - 2)\r\nEnde:\r\n     On Error Resume <span style=\"color:blue;\">Next<\/span>\r\n     <span style=\"color:blue;\">Set<\/span> objDoc = Nothing\r\n     <span style=\"color:blue;\">Set<\/span> objDOM = Nothing\r\n     <span style=\"color:blue;\">Exit Function<\/span>\r\nFehler:\r\n     <span style=\"color:blue;\">MsgBox<\/span> Err.Description\r\n     Resume Ende\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<p><b><span style=\"color:darkgrey;\">Listing 2: Google-Translator per VBA aufrufen<\/span><\/b><\/p>\n<p>Alles, was Sie tun m&uuml;ssen, ist der Aufruf der Funktion mit dem zu &uuml;bersetzenden Text &#8211; also beispielsweise wie in Bild 1 im Direktfenster des VBA-Editors.<\/p>\n<p class=\"image\"><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2013_04\/pic_899_001.png\" alt=\"&uuml;bersetzung im Direktbereich des VBA-Editors\" width=\"395\" height=\"123,4814\" \/><\/p>\n<p><b><span style=\"color:darkgrey;\">Bild 1: &uuml;bersetzung im Direktbereich des VBA-Editors<\/span><\/b><\/p>\n<p>Standardm&auml;&szlig;ig &uuml;bersetzt die Funktion von Deutsch nach Englisch, aber Sie k&ouml;nnen auch andere Sprachen verwenden. Dazu geben Sie einfach f&uuml;r den zweiten und dritten Parameter die entsprechenden K&uuml;rzel an. Wenn Sie von Englisch nach Deutsch &uuml;bersetzen m&ouml;chten, beispielsweise so:<\/p>\n<pre>Translate(\"How cool is that\",\"en\", \"de\")<\/pre>\n<p>Die K&uuml;rzel f&uuml;r die &uuml;bersetzungen finden Sie heraus, indem Sie unter <b>translate.google.de <\/b>die entsprechenden Sprachen ausw&auml;hlen. Die K&uuml;rzel befinden sich dann in der URL, zum Beispiel:<\/p>\n<pre>http:\/\/translate.google.com\/#hi\/eo\/<\/pre>\n<h3>Downloads zu diesem Beitrag<\/h3>\n<p>Enthaltene Beispieldateien:<\/p>\n<p>TippsUndTricks.accdb<\/p>\n<p>TippsUndTricks.accdb<\/p>\n<p><a href=\"..\/fileadmin\/beispiele\/{B8064821-30B9-4176-BBC5-9CC845916284}\/aiu_899.zip\">Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>In dieser Reihe unserer Tipps und Tricks rund um Access und VBA erfahren Sie, wie Sie mit einer einfachen VBA-Funktion blitzschnell Verzeichnisse erstellen. Au&szlig;erdem lernen Sie eine kleine VBA-Prozedur kennen, mit der Sie Texte mithilfe von Google von Deutsch nach Englisch &uuml;bersetzen k&ouml;nnen. Haben Sie auch noch einen coolen Tipp f&uuml;r uns Immer her damit &#8211; einfach an info@access-im-unternehmen.de.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662013,66042013,44000004],"tags":[],"class_list":["post-55000899","post","type-post","status-publish","format-standard","hentry","category-662013","category-66042013","category-Tipps_und_Tricks"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v20.9 (Yoast SEO v27.3) - https:\/\/yoast.com\/product\/yoast-seo-premium-wordpress\/ -->\n<title>Tipps und Tricks 4\/2013 - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Tipps und Tricks 4\/2013\" \/>\n<meta property=\"og:description\" content=\"In dieser Reihe unserer Tipps und Tricks rund um Access und VBA erfahren Sie, wie Sie mit einer einfachen VBA-Funktion blitzschnell Verzeichnisse erstellen. Au&szlig;erdem lernen Sie eine kleine VBA-Prozedur kennen, mit der Sie Texte mithilfe von Google von Deutsch nach Englisch &uuml;bersetzen k&ouml;nnen. Haben Sie auch noch einen coolen Tipp f&uuml;r uns Immer her damit - einfach an info@access-im-unternehmen.de.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:44:28+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"5\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Tipps und Tricks 4\\\/2013\",\"datePublished\":\"2020-05-22T21:44:28+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/\"},\"wordCount\":765,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/36e4078905a8474b9a8372ef4678426b\",\"articleSection\":[\"2013\",\"4\\\/2013\",\"Tipps und Tricks\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/\",\"name\":\"Tipps und Tricks 4\\\/2013 - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/36e4078905a8474b9a8372ef4678426b\",\"datePublished\":\"2020-05-22T21:44:28+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/36e4078905a8474b9a8372ef4678426b\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/36e4078905a8474b9a8372ef4678426b\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Tipps_und_Tricks_42013\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Tipps und Tricks 4\\\/2013\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Tipps und Tricks 4\/2013 - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/","og_locale":"de_DE","og_type":"article","og_title":"Tipps und Tricks 4\/2013","og_description":"In dieser Reihe unserer Tipps und Tricks rund um Access und VBA erfahren Sie, wie Sie mit einer einfachen VBA-Funktion blitzschnell Verzeichnisse erstellen. Au&szlig;erdem lernen Sie eine kleine VBA-Prozedur kennen, mit der Sie Texte mithilfe von Google von Deutsch nach Englisch &uuml;bersetzen k&ouml;nnen. Haben Sie auch noch einen coolen Tipp f&uuml;r uns Immer her damit - einfach an info@access-im-unternehmen.de.","og_url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:44:28+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"5\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Tipps und Tricks 4\/2013","datePublished":"2020-05-22T21:44:28+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/"},"wordCount":765,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b","articleSection":["2013","4\/2013","Tipps und Tricks"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/","url":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/","name":"Tipps und Tricks 4\/2013 - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b","datePublished":"2020-05-22T21:44:28+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/36e4078905a8474b9a8372ef4678426b"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Tipps_und_Tricks_42013\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Tipps und Tricks 4\/2013"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000899","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000899"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000899\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000899"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000899"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000899"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}