Excel übersetzen lassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
ja das geht,
Baue eine Tabelle mit den Worten, die Du übersetzen willst in Zeilen und für die Sprachen je eine Spalte.
Nun mußt Du einen Such-Dialog dazu basteln, in VB macht man das mit einem "UserForm".Gehe in Deine "Entwicklungs.Tools" und lasse Dir den "Projekt-Explorer" anzeige, wenn es im Ordner "Microsoft Excel Object" kein Ordner "Formulare" gibt, dann rechtsclicke den Object Ordner und wähle "Einfügen", dann "UserForm", nun öffnet sich im Codebereich Deiner EntwicklerTools ein Fenster, das aussieht wie ein Windows Fenster, links davon ist eine Tabelle mit "Widgets" (Text, ComboBox, Button), wähl das TextWidget, es ist mit einem "A" bezeichnet nun clicke im Windows Fenster den Ziel Ort an, mit dem Rahmen stelle die Größe ein, nun clicke das Widget da wo der Text steht einfach an, nun schreibe da 'rein "Quellsprache" und wähle das Widget ComboBox aus und setze es rechts neben das Text Widget und nun das ganze nochmal für die Zielsprache, dann doppelclicke in einen leere Fensterbereich, nun wird da wo das Windows Fenster war ein Code Fenster geöffnet ganz oben links ist ein DropDownElement, es steht auf allgemein rechts davon ist ein weiteres DeopDownAuswahlElement, das steht auf "Click", stelle es auf "Initialize", nun ändert sich der Kopf des "Subs" in "UserForm_Initiate" da setzt Du ein


ComboBox1.AddItem Item="Sprache1"
ComboBox1.AddItem Item=Sprache2
für jede Sprache, die Du anbieten willst ein solcher Eintrag, nun stellst Du die ComboBox auf den ersten Eintrag
ComboBox1.Listindex = 0

Jetz sollte der Anwender das Wort, das übersetzt werden irgendwo eingeben können, wir setzen also ein Text Widget ein und lassen anzeigen "Wort im Worterbuch suchen" rechts daneben setzen wir das Edit-Widget.
Nun brauchen wir ein "Translate"-Button, den doppelclicken wir nun erscheint das uns bekannte Code Fenster mit unserem Sub "Initiate", das jetzt einen weiteren Sub "Button1_Click" das lassen wir so stehen und setzen wid da den Translate Code ein, den ich Dir gleich morgen früh posten.
Gruß Wolfgang

Dim WB As Workbook Dim WS As Worksheet Dim UR As Range Dim r, c As Int Dim Eintrag As Range Dim SrcLang, DestLang As Integer Dim SrcRange As Range Dim DestRange As Range Dim i As Integer Dim f As Integer Dim Translation As String SrcLang = ComboBox1.ListIndex DestLang = ComboBox2.ListIndex Set WS = WB.Worksheets("My") UR = WS.UsedRange" c = UR.Columns.Count r = UR.Rows.Count Set SrcRange = UR.Cols(SrcLang) Set DestRange = UR.Cols(DestLang) 'Such-Schleife f = 0 For i 1 To r If Range(Chr(SrcLang) & Str(i)).Value = Edit1.Text Then f = i Translation = Range(Chr(DestLan) & String(f)) Exit FOR End If Next

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel übersetzen lassen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread