{"id":55000325,"date":"2022-08-01T00:00:00","date_gmt":"2023-03-02T17:04:33","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=325"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Excel_Uebersetzungen_mit_DeepL","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Excel_Uebersetzungen_mit_DeepL\/","title":{"rendered":"Excel: Übersetzungen mit DeepL"},"content":{"rendered":"

Im Artikel “Texte übersetzen mit DeepL” (www.vbentwickler.de\/322) haben wir gezeigt, wie man mithilfe einer in der Basisversion kostenlosen Web-API Übersetzungen von Texten durchführen kann. Das Ergebnis dieses Artikels war jedoch nur eine VBA-Funktion, mit der sich ein als Parameter angegebener Text übersetzen lässt. Das ist für Otto Normalverbraucher natürlich etwas sperrig, sodass wir diese Funktion nun einmal mit in einer Excel-Tabelle gespeicherten Texten ausprobieren wollen. Gleichzeitig lernen wir etwas über das Auslesen und Schreiben von Inhalten aus und in Excel-Tabellen.<\/b><\/p>\n

DeepL-Code zum Workbook hinzufügen<\/h2>\n

Als Erstes fügen wir den benötigten Code zum VBA-Projekt des Workbooks hinzu, in welchem wir die Funktion zum Übersetzen einsetzen wollen. Dazu öffnen wir einfach den VBA-Editor, am schnellsten mit der Tastenkombination Alt + F11<\/b>, und ziehen dann die Datei mdlDeepL.bas <\/b>aus dem Download zu diesem Artikel in den Projekt-Explorer des VBA-Editors. Das Ergebnis sieht anschließend wie in Bild 1 aus – das Modul landet im Ordner Module<\/b>.<\/p>\n

\"Eingefügtes<\/p>\n

Bild 1: Eingefügtes Modul mit den Übersetzungs-Funktionen<\/span><\/b><\/p>\n

Inhalt einer Zelle übersetzen<\/h2>\n

Wenn wir nun den Inhalt einer Zelle übersetzen wollen, brauchen wir nur die Funktion TranslateDeepl<\/b>, die wir im Modul mdlDeepL <\/b>finden, auf den Inhalt dieser Zelle anzuwenden und das Ergebnis in eine weitere Zelle zu schreiben.<\/p>\n

Dabei starten wir mit der Konstellation aus Bild 2. Der Text aus der Zelle A2<\/b> soll übersetzt und in die Zelle B2 <\/b>geschrieben werden.<\/p>\n

\"Dieser<\/p>\n

Bild 2: Dieser Text soll übersetzt werden.<\/span><\/b><\/p>\n

Wir steuern dies zunächst über den VBA-Editor. Hier legen wir die folgende Prozedur an:<\/p>\n

Public Sub <\/span>Uebersetzen()\r\n     Dim <\/span>strOriginal As String<\/span>\r\n     Dim <\/span>strUebersetzung As String<\/span>\r\n     strOriginal = ActiveSheet.Cells(2, 1)\r\n     strUebersetzung = TranslateDeepl(strOriginal, _\r\n         sGerman, tBritishEnglish)\r\n     ActiveSheet.Cells(2, 2) = strUebersetzung\r\nEnd Sub<\/span><\/pre>\n
Die Prozedur liest zuerst den Inhalt der Zelle aus der zweiten Zeile der ersten Spalte ein und schreibt diesen in die Variable strOriginal<\/b>.<\/p>\n
Dann ermittelt sie mit dem Aufruf der Funktion TranslateDeepL <\/b>die Übersetzung des Textes und schreibt diese in die Variable strUebersetzung<\/b>.<\/p>\n
Dabei übergibt sie den Originaltext aus strOriginal <\/b>als ersten Parameter sowie Konstanten für die Original- und die Zielsprache als zweiten und dritten Parameter. Das Ergebnis aus der Variablen strUebersetzung <\/b>schreibt die Prozedur dann in die zweite Zeile der zweiten Spalte. Mehr brauchen wir nicht!<\/p>\n
Und die Prozedur lässt sich auch komplett ohne Variablen schreiben:<\/p>\n
Public Sub <\/span>Uebersetzen()\r\n     ActiveSheet.Cells(2, 2) = TranslateDeepl( _\r\n         ActiveSheet.Cells(2, 1), _\r\n         sGerman, tBritishEnglish)\r\nEnd Sub<\/span><\/pre>\n
Längere Texte übersetzen<\/h2>\n
Mit der kostenlosen Variante von DeepL können wir bis zu 500.000 Zeichen pro Monat übersetzen. Das entspricht mehr als 300 Seiten dieses Magazins. Wir können also durchaus auch mal einen längeren Text übersetzen lassen. Wenn Du diesen wie im obigen Beispiel einfach in die Zelle A2 einfügst und die Prozedur startest, wird die Übersetzung des Textes in die Zelle rechts daneben eingetragen.<\/p>\n
Wir gehen an dieser Stelle aber einmal davon aus, dass sich der gewünschte Text in einem anderen Dokument befindet und wir diesen erst einmal in geeigneter Form in die Zeilen einer Spalte der Excel-Tabelle bringen müssen.<\/p>\n
Am besten so, das jeweils kleinere Häppchen in jeder Zelle landen – so können wir kleinere Unterschiede bei der Länge der verschiedenen Übersetzungen leicht ausgleichen.<\/p>\n
Wir haben den bisherigen Inhalt dieses Artikels einmal in die Zwischenablage kopiert und in die Zelle A2<\/b> eingefügt und da unser Text Zeilenumbrüche enthält, wird er direkt absatzweise auf diese und die darunter liegenden Zellen aufgeteilt – im Beispiel bis zur Zelle A25<\/b>. Das Ergebnis sieht danach etwa wie in Bild 3 aus.<\/p>\n
\"Worksheet<\/p>\n
Bild 3: Worksheet direkt nach dem Einfügen<\/span><\/b><\/p>\n
Um die Absätze in den einzelnen Zellen Stück für Stück zu übersetzen, benötigen wir eine For…Next<\/b>-Schleife. Diese läuft in der ersten Version von l <\/b>gleich 2 <\/b>bis 25<\/b>, weil die zu übersetzenden Texte sich in den so nummerierten Zeilen befinden.<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t