{"id":55000838,"date":"2012-06-01T00:00:00","date_gmt":"2020-05-22T21:54:55","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=838"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Vom_Text_zum_String_per_AccessAddIn","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/","title":{"rendered":"Vom Text zum String per Access-Add-In"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6\" width=\"1\" height=\"1\" alt=\"\"><\/p>\n<p><b>Manche Aufgaben erledigt man selten, aber daf&uuml;r nerven sie umso mehr. Bei mir ist das beispielsweise der Fall, wenn ich einen mehrzeiligen Text per VBA zusammenstelle &#8211; beispielsweise, um den Text f&uuml;r eine E-Mail vor der Weitergabe an Outlook dynamisch zu erzeugen. Gerade wenn dieser Text mehrzeilig ist und zus&auml;tzlich zwischendrin leere Zeilen enth&auml;lt, braucht man doch einige Anl&auml;ufe, bis das Ergebnis den W&uuml;nschen entspricht. Mit dem hier vorgestellten Add-In geben Sie solche Texte einfach in ein Textfeld ein. Den Code zum Zusammenf&uuml;gen des Textes erstellt das Add-In automatisch.<\/b><\/p>\n<p><iframe loading=\"lazy\" width=\"480\" height=\"270\" src=\"http:\/\/www.youtube.com\/embed\/hxNH84uTRT8\" frameborder=\"0\" allowfullscreen><\/iframe><\/p>\n<p><b>Das Add-In im &Uuml;berblick<\/b><\/p>\n<p>Das Add-In ist ein Men&uuml;-Add-In und l&auml;sst sich dementsprechend &uuml;ber den Men&uuml;eintrag <b>Extras|Add-Ins|TextToString <\/b>beziehungsweise den Ribbon-Eintrag <b>Datenbanktools|Add-Ins|Add-Ins|TextToString <\/b>starten (mit dem dortigen Eintrag <b>Add-In-Manager <\/b>installieren Sie das Add-In &uuml;brigens). Es erscheint das Fenster aus Bild 1. Dieses erlaubt im Wesentlichen die Eingabe des umzusetzenden Textes in das obere Textfeld &#8211; die Abbildung zeigt einen Beispieltext. Das untere Textfeld liefert bereits w&auml;hrend der Eingabe einige Zeilen Code, die den Text zeilenweise in eine vom Benutzer festzulegende Variable schreiben. Im oberen Bereich bietet das Add-In noch einige Optionen f&uuml;r folgende Einstellungen an:<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/TextToString-web-images\/pic002.png\" alt=\"pic002.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 1: Formular des Add-Ins TextToString<\/span><\/b><\/p>\n<ul>\n<li class=\"aufz-hlung\">Definieren des Namens der zu verwendenden Variablen <\/li>\n<li class=\"aufz-hlung\">Festlegen, ob eine Deklarationszeile f&uuml;r diese Variable hinzugef&uuml;gt werden soll<\/li>\n<li class=\"aufz-hlung\">Angeben der Anzahl der Zeichen f&uuml;r die Einr&uuml;ckung des Codes <\/li>\n<li class=\"aufz-hlung\">Festlegen, ob die Zeilenumbruch-Codes (<b>vbCrLf<\/b>) f&uuml;r leere Zeilen in eine eigene Zeile geschrieben werden oder an die vorherige Zeile angeh&auml;ngt werden<\/li>\n<li class=\"aufz-hlung\">Speichern von Textbausteinen<\/li>\n<li class=\"aufz-hlung\">Einf&uuml;gen gespeicherter Textbausteine<\/li>\n<\/ul>\n<p>Die Basisfunktion der Anwendung besteht im &Uuml;berf&uuml;hren der in das Textfeld <b>txtText <\/b>geschriebenen Texte in Codezeilen. Schauen wir uns folgenden Text als Beispiel an:<\/p>\n<pre>Hallo Herr M&uuml;ller,\r\nim Anhang erhalten Sie Ihre Daten.\r\nViele Gr&uuml;&szlig;e\r\nAndr&eacute; Minhorst<\/pre>\n<p>Daraus soll folgender Code entstehen:<\/p>\n<pre>Dim strText As String\r\nstrText = strText &amp; &quot;Hallo Herr M&uuml;ller,&quot; &amp; vbCrLf\r\nstrText = strText &amp; vbCrLf\r\nstrText = strText &amp; &quot;im Anhang erhalten Sie Ihre Daten.&quot; &amp; vbCrLf\r\nstrText = strText &amp; vbCrLf\r\nstrText = strText &amp; &quot;Viele Gr&uuml;&szlig;e&quot; &amp; vbCrLf\r\nstrText = strText &amp; &quot;Andr&eacute; Minhorst&quot; &amp; vbCrLf<\/pre>\n<p>Alternativ sollen die <b>vbCrLf <\/b>f&uuml;r leere Zeilen direkt an die vorherige Zeile angeh&auml;ngt werden:<\/p>\n<pre>Dim strText As String\r\nstrText = strText &amp; &quot;Hallo Herr M&uuml;ller,&quot; &amp; vbCrLf &amp; vbCrLf\r\nstrText = strText &amp; &quot;im Anhang erhalten Sie Ihre Daten.&quot; &amp; vbCrLf &amp; vbCrLf\r\nstrText = strText &amp; &quot;Viele Gr&uuml;&szlig;e&quot; &amp; vbCrLf\r\nstrText = strText &amp; &quot;Andr&eacute; Minhorst&quot; &amp; vbCrLf<\/pre>\n<p>Dies ist, wenn Sie den Code selbst erstellen, erstens eine stumpfsinnige und zweitens fehleranf&auml;llige Arbeit. Mit dem Add-In <b>TextToString <\/b>geben Sie den gew&uuml;nschten Text einfach in das obere Textfeld ein und kopieren den fertigen Code aus dem unteren Textfeld an die entsprechende Stelle im VBA-Code.<\/p>\n<p>Das Formular <b>frmTextToString <\/b>sieht im Entwurf wie in Bild 2 aus. Die beiden gro&szlig;en Textfelder hei&szlig;en <b>txtText <\/b>und <b>txtString<\/b>, das Textfeld zur Eingabe des Variablennamens <b>txtVariable<\/b>, das Kontrollk&auml;stchen zur Angabe, ob die verwendete Variable deklariert werden soll, <b>chkVariableDeklarieren<\/b>. Wichtig ist hier, dass Sie die Eigenschaft <b>Eingabetastenverhalten <\/b>f&uuml;r das Textfeld <b>txtText <\/b>auf den Wert <b>Neue Zeile in Feld <\/b>einstellen. Dadurch kann der Benutzer Zeilenumbr&uuml;che mit der Eingabetaste eingeben statt mit der sonst notwendigen Tastenkombination <b>Strg + Eingabetaste<\/b>.<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/TextToString-web-images\/pic001.png\" alt=\"pic001.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 2: Add-In-Formular in der Entwurfsansicht<\/span><\/b><\/p>\n<p>Das Kontrollk&auml;stchen <b>chkUmbruchEigeneZeile <\/b>legt fest, ob die <b>vbCrLf <\/b>in eine eigene Zeile geschrieben werden soll und das Textfeld <b>txtEinrueckung <\/b>bestimmt die Anzahl der Zeichen, um welche alle Zeilen einger&uuml;ckt werden (standardm&auml;&szlig;ig sind es vier). Fehlt noch die Schaltfl&auml;che <b>cmdBausteinSpeichern<\/b>, mit der Sie die aktuelle Markierung im Textfeld <b>txtText <\/b>speichern und das Kombinationsfeld <b>cboBausteine<\/b>, mit der Sie einen gespeicherten Baustein an der beziehungsweise f&uuml;r die aktuell markierte Stelle im Text einf&uuml;gen.<\/p>\n<p><b>Texteingabe<\/b><\/p>\n<p>Das wichtigste Ereignis f&uuml;r das Add-In ist das Ereignis, das beim &auml;ndern des Inhalts des Textfelds <b>txtText <\/b>ausgel&ouml;st wird. Es sieht wie folgt aus und erledigt drei Anweisungen:<\/p>\n<pre>Private Sub txtText_Change()\r\n    strText = Me!txtText.Text\r\n    strVariable = Nz(Me!txtVariable)\r\n    StringZusammenstellen\r\nEnd Sub<\/pre>\n<p>Die erste Anweisung speichert den aktuellen Text in der Variablen <b>strText <\/b>zwischen und den im Textfeld <b>txtVariable <\/b>enthaltenen Variablennamen in der Variablen <b>strVariable<\/b>. Damit im Gep&auml;ck wird die Prozedur <b>StringZusammenstellen <\/b>aufgerufen, die den Hauptteil der Arbeit erledigt und die wir uns gleich ansehen. Die beiden Variablen <b>strText <\/b>und <b>strVariable <\/b>werden modulweit, also im Kopf des Klassenmoduls deklariert:<\/p>\n<pre>Dim strText As String\r\nDim strVariable As String<\/pre>\n<p>Auch beim &auml;ndern der Variablen im Textfeld <b>txtVariable <\/b>soll der Code im Textfeld <b>txtString <\/b>gleich angepasst werden.<\/p>\n<p><!--30percent--><\/p>\n<p>Die beim &auml;ndern ausgel&ouml;ste Prozedur sieht prinzipiell genauso aus wie die zuvor beschriebene, nur dass nun der aktuelle Inhalt von <b>txtVariable <\/b>mit der <b>Text<\/b>-Eigenschaft ausgelesen wird:<\/p>\n<pre>Private Sub txtVariable_Change()\r\n    strText = Nz(Me!txtText)\r\n    strVariable = Me!txtVariable.Text\r\n    StringZusammenstellen\r\nEnd Sub<\/pre>\n<p>Die drei &uuml;brigen Steuerelemente <b>chkUmbruchEigeneZeile<\/b>, <b>chkVariableDeklarieren <\/b>und <b>txtEinrueckung <\/b>l&ouml;sen einfach nur die Prozedur <b>StringZusammenstellen <\/b>aus:<\/p>\n<pre>Private Sub chkUmbruchEigeneZeile_AfterUpdate()\r\n    StringZusammenstellen\r\nEnd Sub\r\nPrivate Sub chkVariableDeklarieren_Click()\r\n    StringZusammenstellen\r\nEnd Sub\r\nPrivate Sub txtEinrueckung_AfterUpdate()\r\n    StringZusammenstellen\r\nEnd Sub<\/pre>\n<p><b>VBA-Code zusammenstellen<\/b><\/p>\n<p>Die Prozedur aus <span class=\"verweis-ohneumbruch\"><a href=\"#anker-29-anchor\">Listing 1<\/a><\/span> erstellt schlie&szlig;lich den resultierenden VBA-Code. Im ersten Schritt wertet sie den im Textfeld <b>txtEinrueckung <\/b>angegebenen Zahlenwert aus und erzeugt eine Zeichenkette, die aus der angegebenen Menge Leerzeichen besteht.<\/p>\n<p class=\"listingueberschrift\">Listing 1: Zusammenstellen des VBA-Codes auf Basis des eingegebenen Textes<\/p>\n<pre>Private Sub StringZusammenstellen()\r\n    Dim strString As String\r\n    Dim strTexte() As String\r\n    Dim strEinrueckung As String\r\n    Dim strDeklaration As String\r\n    Dim i As Integer\r\n    strEinrueckung = Space(Me!txtEinrueckung)\r\n    strTexte = Split(strText, Chr(13) &amp; Chr(10))\r\n    For i = LBound(strTexte) To UBound(strTexte)\r\n        If Not Len(strTexte(i)) = 0 Then\r\n            strString = strString &amp; strEinrueckung &amp; strVariable &amp; &quot; = &quot; &amp; strVariable &amp; &quot; &amp; &quot;&quot;&quot; _\r\n                &amp; strTexte(i) &amp; &quot;&quot;&quot; &amp; vbCrLf &quot; &amp; vbCrLf\r\n        Else\r\n            If Me!chkUmbruchEigeneZeile Then\r\n                strString = strString &amp; strEinrueckung &amp; strVariable &amp; &quot; = &quot; &amp; strVariable &amp; &quot; _\r\n                    &amp; vbCrLf &quot; &amp; vbCrLf\r\n            Else\r\n                If Right(strString, 2) = vbCrLf Then\r\n                    strString = Left(strString, Len(strString) - 2) &amp; &quot;&amp; vbCrLf&quot; &amp; vbCrLf\r\n                End If\r\n            End If\r\n        End If\r\n    Next i\r\n    If Me!chkVariableDeklarieren Then\r\n        strDeklaration = strEinrueckung &amp; &quot;Dim &quot; &amp; strVariable &amp; &quot; As String&quot; &amp; vbCrLf\r\n        strString = strDeklaration &amp; strString\r\n    End If\r\n    Me!txtString = strString\r\nEnd Sub<\/pre>\n<p>Danach wird der komplette Text in die einzelnen Zeilen aufgeteilt, die alle in einem eigenen Element eines String-Arrays landen. Die Aufteilung &uuml;bernimmt die <b>Split<\/b>-Funktion, die den Text &uuml;berall dort unterteilt, wo sich ein Zeilenumbruch befindet.<\/p>\n<p>Die folgende <b>For&#8230;Next<\/b>-Schleife durchl&auml;uft alle vorhandenen Zeilen. Sie pr&uuml;ft zun&auml;chst, ob die Zeile &uuml;berhaupt Zeichen enth&auml;lt. Falls ja, wird der Variablen <b>strString <\/b>eine Zeichenkette hinzugef&uuml;gt, die aus den Leerzeichen f&uuml;r die Einr&uuml;ckung, dem Variablennamen, dem alten Wert der Variablen und dem Text besteht. Hinzu kommt je Zeile erstens ein <b>vbCrLf <\/b>innerhalb der Zeichenkette, der im Code erscheinen soll, und ein <b>vbCrLf<\/b>, der die folgende Codezeile in einer neuen Zeile anzeigt. Aus <b>Guten Tag <\/b>wird so folgender Ausdruck:<\/p>\n<pre>strText = strText &amp; &quot;Guten Tag&quot; &amp; vbCrLf<\/pre>\n<p>Ist die Zeile leer, k&ouml;nnen zwei F&auml;lle eintreten. Entweder der Benutzer hat die Option <b>Einzelne vbCrLf in eigene Zeile <\/b>aktiviert oder nicht. Falls ja, wird folgende Zeile hinzugef&uuml;gt:<\/p>\n<pre>strText = strText &amp; vbCrLf<\/pre>\n<p>Falls nicht, wird die Konstante f&uuml;r den Zeilenumbruch an die vorherige Zeile angeh&auml;ngt, die dann etwa so aussieht:<\/p>\n<pre>strText = strText &amp; &quot;Guten Tag&quot; &amp; vbCrLf &amp; vbCrLf<\/pre>\n<p>Letztere Operation schneidet die letzten beiden Zeichen der vorherigen Zeile ab (<b>Chr(13)<\/b> und <b>Chr(10)<\/b>) und f&uuml;gt ein weiteres Zeilenumbruchzeichen sowohl zur Zeichenkette als auch zur Zeile hinzu.<\/p>\n<p>Nun pr&uuml;ft die Prozedur noch, ob f&uuml;r die verwendete Variable noch eine Deklarationszeile hinzugef&uuml;gt werden soll. Dar&uuml;ber gibt das Steuerelement <b>chkVariableDeklarieren <\/b>Auskunft.<\/p>\n<p>Falls ja, wird dem bestehenden Ausdruck noch eine entsprechende Zeile vorangestellt:<\/p>\n<pre>Dim strText As String<\/pre>\n<p>Der resultierende Ausdruck landet schlie&szlig;lich im Textfeld <b>txtString<\/b>.<\/p>\n<p><b>Bausteine verwenden<\/b><\/p>\n<p>Wenn Sie h&auml;ufiger die gleichen Texte verwenden, k&ouml;nnen Sie diese in der Tabelle <b>tblBausteine <\/b>der Add-In-Datenbank zwischenspeichern.<\/p>\n<p>Sollten Sie also etwa h&auml;ufiger Code zum Zusammenstellen von E-Mail-Texten ben&ouml;tigen, m&ouml;chten Sie vielleicht die Signatur als Baustein speichern. Die Tabelle zum Speichern der Bausteine sieht wie in Bild 3 aus und enth&auml;lt lediglich drei Felder:<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/TextToString-web-images\/pic003.png\" alt=\"pic003.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 3: Tabelle zum Speichern von Textbausteinen<\/span><\/b><\/p>\n<ul>\n<li class=\"aufz-hlung\"><b>BausteinID<\/b>: Prim&auml;rschl&uuml;sselfeld der Tabelle<\/li>\n<li class=\"aufz-hlung\"><b>Bausteinbezeichnung<\/b>: Bezeichnung des Bausteins<\/li>\n<li class=\"aufz-hlung\"><b>Baustein<\/b>: Memofeld zum Speichern des Textbausteins<\/li>\n<\/ul>\n<p>Um einen Textbaustein zu speichern, markieren Sie den gew&uuml;nschten Text im Textfeld <b>txtText <\/b>und klicken auf die Schaltfl&auml;che <b>cmdBausteinSpeichern<\/b>. Die Prozedur aus <span class=\"verweis-ohneumbruch\"><a href=\"#anker-31-anchor\">Listing 2<\/a><\/span> &uuml;bernimmt dann den Rest der Arbeit. Hier ist allerdings noch ein wenig Vorarbeit n&ouml;tig, die durch die Ereignisprozedur <b>Bei Fokusverlust <\/b>des Textfeldes <b>txtText <\/b>erledigt wird. Diese schreibt n&auml;mlich die Position der aktuellen Textmarkierung in die folgenden Variablen, die ebenfalls modulweit deklariert sind:<\/p>\n<pre>Dim lngBausteinstart As Long\r\nDim lngBausteinlaenge As Long<\/pre>\n<\/p>\n<p class=\"listingueberschrift\">Listing 2: Speichern eines Textbausteins<\/p>\n<pre>Private Sub cmdBausteinSpeichern_Click()\r\n    Dim strBausteinbezeichnung As String\r\n    Dim strBaustein As String\r\n    strBaustein = Mid(Me!txtText, lngBausteinstart + 1, lngBausteinlaenge)\r\n    If Len(strBaustein) &gt; 0 Then\r\n        strBausteinbezeichnung = InputBox(&quot;Geben Sie eine Bezeichnung f&uuml;r den Baustein ein.&quot;, _\r\n            &quot;Baustein speichern&quot;, &quot;Bausteinbezeichnung&quot;)\r\n        On Error Resume Next\r\n        CodeDb.Execute &quot;INSERT INTO tblBausteine(Baustein, Bausteinbezeichnung) VALUES(''&quot; _\r\n            &amp; Replace(strBaustein, &quot;''&quot;, &quot;''''&quot;) &amp; &quot;'', ''&quot; &amp; strBausteinbezeichnung &amp; &quot;'')&quot;, dbFailOnError\r\n        If Err.Number = 3022 Then\r\n            If MsgBox(&quot;Es ist ein Baustein gleichen Namens vorhanden. &Uuml;berschreiben&quot;, vbYesNo + _\r\n                    vbExclamation, &quot;Baustein vorhanden&quot;) = vbYes Then\r\n                CodeDb.Execute &quot;UPDATE tblBausteine SET Baustein = ''&quot; &amp; Replace(strBaustein, &quot;''&quot;, &quot;''''&quot;) _\r\n                    &amp; &quot;'' WHERE Bausteinbezeichnung = ''&quot; &amp; strBausteinbezeichnung &amp; &quot;''&quot;, dbFailOnError\r\n            End If\r\n        End If\r\n        Me!cboBausteine.Requery\r\n    End If\r\nEnd Sub<\/pre>\n<p>Die Prozedur ermittelt mit der Eigenschaft <b>SelStart <\/b>den Startpunkt des aktuell markierten Textes und mit der Eigenschaft <b>SelLength <\/b>die L&auml;nge der Markierung:<\/p>\n<pre>Private Sub txtText_LostFocus()\r\n    lngBausteinstart = Me!txtText.SelStart\r\n    lngBausteinlaenge = Me!txtText.SelLength\r\nEnd Sub<\/pre>\n<p>Warum dieser Aufwand Nun: Sobald Sie auf die Schaltfl&auml;che <b>cmdBausteinSpeichern <\/b>klicken, verliert das Textfeld <b>txtText <\/b>den Fokus und der markierte Bereich kann nicht mehr ausgelesen werden. Daher m&uuml;ssen Sie dessen Eigenschaften zuvor in entsprechenden Variablen speichern.<\/p>\n<p>Mithilfe eines geeigneten Aufrufs der <b>Mid<\/b>-Funktion ermittelt die Prozedur den markierten Text auf Basis der Werte der Variablen <b>lngBausteinStart <\/b>und <b>lngBausteinLaenge<\/b> und speichert das Ergebnis in der Variablen <b>strBaustein<\/b>.<\/p>\n<p>Bevor der Inhalt von <b>strBaustein<\/b> in der Tabelle <b>tblBausteine <\/b>gespeichert wird, pr&uuml;ft die Prozedur diesen noch auf eine leere Zeichenkette &#8211; in diesem Fall soll nat&uuml;rlich kein neuer Datensatz angelegt werden. Ist die Variable <b>strBaustein <\/b>nicht leer, fragt die Prozedur nach einer Bezeichnung f&uuml;r den Baustein. Dieser wird sp&auml;ter im Kombinationsfeld zum Einf&uuml;gen von Bausteinen angezeigt.<\/p>\n<p>Dann versucht die Prozedur, den Baustein in einem neuen Datensatz zu speichern. Dies erfolgt mit der <b>Execute<\/b>-Methode der mit der Funktion <b>CodeDB <\/b>referenzierten Datenbank. Im Gegensatz zu <b>CurrentDB <\/b>erhalten Sie damit einen Verweis auf das <b>Database<\/b>-Objekt der Add-In-Datenbank. Das Feld <b>Bausteinbezeichnung <\/b>ist mit einem eindeutigen Index ausgestattet, sodass das Anlegen einen Fehler ausl&ouml;st, wenn der Benutzer eine bereits vorhandene Bausteinbezeichnung verwendet. In diesem Fall kann der Benutzer entscheiden, ob er den Vorgang abbrechen oder den vorhandenen Baustein mit dem neuen Baustein &uuml;berschreiben m&ouml;chte. Ist dies der Fall, f&uuml;hrt eine <b>UPDATE<\/b>-Anweisung diese Aktualisierung durch. Schlie&szlig;lich aktualisiert die Prozedur noch das Kombinationsfeld <b>cboBausteine<\/b>, damit ein eventuell neu angelegter Baustein dort angezeigt wird. Fehlt noch das Einf&uuml;gen gespeicherter Bausteine. Hier setzt der Benutzer entweder die Einf&uuml;gemarke an die gew&uuml;nschte Stelle oder markiert einen zu &uuml;berschreibenden Bereich. Die Prozedur <b>cboBausteine_AfterUpdate <\/b>aus <span class=\"verweis-ohneumbruch\"><a href=\"#anker-32-anchor\">Listing 3<\/a><\/span> liest dann den Text des Bausteins aus und f&uuml;gt diesen anstelle des markierten Textes ein. Das Kombinationsfeld wird wieder geleert, der neue Text in der Variablen <b>strText<\/b> zwischengespeichert und der VBA-Code auf Basis des ge&auml;nderten Textes neu erstellt.<\/p>\n<p class=\"listingueberschrift\">Listing 3: Einf&uuml;gen eines Textbausteins<\/p>\n<pre>Private Sub cboBausteine_AfterUpdate()\r\n    Dim strBaustein As String\r\n    If lngBausteinstart = 0 Then\r\n        lngBausteinstart = 1\r\n    End If\r\n    strBaustein = CodeDb.OpenRecordset(&quot;SELECT Baustein FROM tblBausteine WHERE BausteinID = &quot; _\r\n        &amp; Me!cboBausteine).Fields(0)\r\n    Me!txtText = Left(Me!txtText, lngBausteinstart) &amp; strBaustein &amp; Mid(Me!txtText, _\r\n    lngBausteinstart + lngBausteinlaenge + 1)\r\n    Me!cboBausteine = Null\r\n    strText = Me!txtText\r\n    StringZusammenstellen\r\nEnd Sub<\/pre>\n<p><b>VBA-Code in die Zwischenablage kopieren<\/b><\/p>\n<p>Fehlt noch die Funktion, mit der Sie den aktuellen VBA-Code per Mausklick in die Zwischenablage kopieren k&ouml;nnen, um diesen dann im n&auml;chsten Schritt in das VBA-Projekt einzuf&uuml;gen. Die Schaltfl&auml;che <b>cmdInZwischenablage <\/b>ruft schlicht die Prozedur <b>InZwischenablage <\/b>auf und &uuml;bergibt den aktuellen Text des Textfeldes <b>txtString<\/b>:<\/p>\n<pre>Private Sub cmdInZwischenablage_Click()\r\n    InZwischenablage Me!txtString\r\nEnd Sub<\/pre>\n<p>Fertig &#8211; damit &uuml;bernehmen Sie selbst l&auml;ngere Texte einfach in entsprechende VBA-Anweisungen zur Ausgabe dieser Texte.<\/p>\n<h3>Downloads zu diesem Beitrag<\/h3>\n<p>Enthaltene Beispieldateien:<\/p>\n<p>TextToString.mda<\/p>\n<p><a href=\"..\/fileadmin\/beispiele\/{4E97C115-310D-4B2B-8957-12B1E0666BF2}\/aiu_838.zip\">Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Manche Aufgaben erledigt man selten, aber daf&uuml;r nerven sie umso mehr. Bei mir ist das beispielsweise der Fall, wenn ich einen mehrzeiligen Text per VBA zusammenstelle &#8211; beispielsweise, um den Text f&uuml;r eine E-Mail vor der Weitergabe an Outlook dynamisch zu erzeugen. Gerade wenn dieser Text mehrzeilig ist und zus&auml;tzlich zwischendrin leere Zeilen enth&auml;lt, braucht man doch einige Anl&auml;ufe, bis das Ergebnis den W&uuml;nschen entspricht. Mit dem hier vorgestellten Add-In geben Sie solche Texte einfach in ein Textfeld ein. Den Code zum Zusammenf&uuml;gen des Textes erstellt das Add-In automatisch.<\/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":[662012,66032012,44000020],"tags":[],"class_list":["post-55000838","post","type-post","status-publish","format-standard","hentry","category-662012","category-66032012","category-Tools"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v20.9 (Yoast SEO v27.4) - https:\/\/yoast.com\/product\/yoast-seo-premium-wordpress\/ -->\n<title>Vom Text zum String per Access-Add-In - 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\/Vom_Text_zum_String_per_AccessAddIn\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Vom Text zum String per Access-Add-In\" \/>\n<meta property=\"og:description\" content=\"Manche Aufgaben erledigt man selten, aber daf&uuml;r nerven sie umso mehr. Bei mir ist das beispielsweise der Fall, wenn ich einen mehrzeiligen Text per VBA zusammenstelle - beispielsweise, um den Text f&uuml;r eine E-Mail vor der Weitergabe an Outlook dynamisch zu erzeugen. Gerade wenn dieser Text mehrzeilig ist und zus&auml;tzlich zwischendrin leere Zeilen enth&auml;lt, braucht man doch einige Anl&auml;ufe, bis das Ergebnis den W&uuml;nschen entspricht. Mit dem hier vorgestellten Add-In geben Sie solche Texte einfach in ein Textfeld ein. Den Code zum Zusammenf&uuml;gen des Textes erstellt das Add-In automatisch.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:54:55+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6\" \/>\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=\"11\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Vom Text zum String per Access-Add-In\",\"datePublished\":\"2020-05-22T21:54:55+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/\"},\"wordCount\":1648,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2106efb1453143eda0e397ceae5439a6\",\"articleSection\":[\"2012\",\"3\\\/2012\",\"Tools\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/\",\"name\":\"Vom Text zum String per Access-Add-In - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2106efb1453143eda0e397ceae5439a6\",\"datePublished\":\"2020-05-22T21:54:55+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2106efb1453143eda0e397ceae5439a6\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2106efb1453143eda0e397ceae5439a6\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Vom_Text_zum_String_per_AccessAddIn\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vom Text zum String per Access-Add-In\"}]},{\"@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":"Vom Text zum String per Access-Add-In - 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\/Vom_Text_zum_String_per_AccessAddIn\/","og_locale":"de_DE","og_type":"article","og_title":"Vom Text zum String per Access-Add-In","og_description":"Manche Aufgaben erledigt man selten, aber daf&uuml;r nerven sie umso mehr. Bei mir ist das beispielsweise der Fall, wenn ich einen mehrzeiligen Text per VBA zusammenstelle - beispielsweise, um den Text f&uuml;r eine E-Mail vor der Weitergabe an Outlook dynamisch zu erzeugen. Gerade wenn dieser Text mehrzeilig ist und zus&auml;tzlich zwischendrin leere Zeilen enth&auml;lt, braucht man doch einige Anl&auml;ufe, bis das Ergebnis den W&uuml;nschen entspricht. Mit dem hier vorgestellten Add-In geben Sie solche Texte einfach in ein Textfeld ein. Den Code zum Zusammenf&uuml;gen des Textes erstellt das Add-In automatisch.","og_url":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:54:55+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"11\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Vom Text zum String per Access-Add-In","datePublished":"2020-05-22T21:54:55+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/"},"wordCount":1648,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6","articleSection":["2012","3\/2012","Tools"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/","url":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/","name":"Vom Text zum String per Access-Add-In - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6","datePublished":"2020-05-22T21:54:55+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/2106efb1453143eda0e397ceae5439a6"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Vom_Text_zum_String_per_AccessAddIn\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Vom Text zum String per Access-Add-In"}]},{"@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\/55000838","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=55000838"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000838\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000838"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000838"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000838"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}