Code für die Übersetzung

Question

Hallo Zusammen,

ich wollte gern ein Code VBA für die Übersetzung von Wörten:
Bsp: in einer Tabeller. A1 (Deutsch = essen) - Ergebnis in B1(Englisch = to eat)
einfach anklicken auf "essen" und kommt die Ergebnis " to eat"
ich bin ganz offen für wietere Fragen.

MFG

Raphael

[*]
[sup]*Threadedit* 23.02.2012, 10:11:56
Admininfo: Führe Threads bitte nicht fort, indem du weitere eröffnest, und vermeide Mehrfachanfragen! Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.[/sup]

Answer 1

hi Raphael ^^

ein beispiel mit jeweils 2 begriffen die parallel zur uebersetzung in wechselwirkung stehen
max 100 wörter zur zeit
zeilen kopieren ,index erhöhen und text einpassen

einzufuegen
alt+F11/Projektexplorer/DeineTabelle

gruss nighty

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim DatenD(1, 100) As String
Dim DatenE(1, 100) As String
DatenD(0, 0) = "Auge": DatenD(1, 0) = "Augen": DatenE(0, 0) = "Eye": DatenE(1, 0) = "Eyes"
DatenD(0, 1) = "Lesen": DatenD(1, 1) = "Leser": DatenE(0, 1) = "Read": DatenE(1, 1) = "Reader"
DatenD(0, 2) = "Auto": DatenD(1, 2) = "Autos": DatenE(0, 2) = "Car": DatenE(1, 2) = "Cars"
Wort = UCase(CStr(Target))
For t = 0 To 100
If UCase(DatenD(0, t)) = Wort Or UCase(DatenD(1, t)) = Wort Then
Cells(1, 2) = DatenE(0, t)
Cells(1, 3) = DatenE(1, t)
Exit For
Else
If UCase(DatenE(0, t)) = Wort Or UCase(DatenE(1, t)) = Wort Then
Cells(1, 2) = DatenD(0, t)
Cells(1, 3) = DatenD(1, t)
Exit For
End If
End If
Next t
Application.EnableEvents = True
End Sub

Answer 2

Hi Raphael,

verwende SVERWEIS() auf eine Hilfstabelle, in der du die jeweiligen Begriffe paarweise (1. Spalte deutsch, 2. Spalte englisch) nebeneinander schreibst..

Bis später,
Karin

Answer 3

Hallo A.Raphael,

anbei eine Beispielmappe, allerdings als Formellösung.

Download

Gruß
Rainer

Answer 4

Danke Herr Rainer,
ich habe ihre Tabelle probiert, es ist eine einfache und gute beispiel , aber die Macro geht bei mir nicht und welche code haben sie benutzt?
danke für ihre schnelle Antworte

Answer 5

Hallo Karin,
danke für deine schnelle Antworte. ich wollte eigentlich, das die übesetzung von mehere wörten nicht nur aus Englisch sondern auch aus Russich, spanisch. dazu brauche ich eine übersetzung über eine Website, damit der Wort nicht nur aus Englisch ankommt , sondern auch in Russich oder spanisch.

Beispiel: einfache Tabelle: A1(Deutsch) = essen, A2 (Englisch)= ?
A3(Spanisch) = ?

das du anklich auf "essen" und kommt die Ergebnis in A2 "?" und A3"?"

danke für die schnelle Rückmeldung

Answer 6

Hi Raphael,

dann schreibe in die Hilfstabelle in die nächste Spalte das russische und in die übernächste Spalte das spanische Wort. Bei SVERWEIS() kann man vorgeben, aus welcher Spalte eines Bereichs das Ergebnis ausgelesen werden soll. Schau einfach mal in der Excel-Hilfe zu dieser Funktion nach. Viele Informationen dazu erhältst du auch auf dieser Seite: SVERWEIS.

Bis später,
Karin

Answer 7

Hallo Karin,
danke für die schnelle Antworte.
Das Problem.: ich kenne kein Wort in Spanisch oder Russich , ich wollte nur eine plattform für die Übersetzung erstellen, für meine eigene Dictionary.
wo ich kann einfach den Wort übersetzen kann. dh. auf ein Macro anklicken dann komm die Übersetzung.

danke nochmal für deine Große hilfe und freue mich auch bald zu hören

Answer 8

Hi Raphael,

Excel kann doch nicht von sich aus wissen, wie ein Wort in einer anderen Sprache heißt - das musst du Excel schon erst einmal beibringen, indem du es aus einem Wörterbuch heraussuchst und in die Tabelle schreibst und somit selbst ein solches Wörterbuch für Excel erstellst.

Wenn es um die Übersetzung von Webseiten-Texten geht, hilft dir eine solche Tabelle nicht, wenn teilweise haben Wörter ja mehrere Bedeutungen - welche soll Excel dann nehmen? Ich würde dir dann auf jeden Fall empfehlen, die Übersetzungsmöglichkeit von Google zu verwenden.

Bis später,
Karin

Answer 9

Hallo Karin,
ja genau das ist die Lösung. die Frage ist : wie könnten man die daten von Google übersetzung importieren ? welche code müssen wir anpassen?

Answer 10

Hi Raphael,

wenn du den Text einer Webseite nach Excel übernehmen willst, dann versuche es mit einer Webabfrage.

Bis später,
Karin