ich komme mit einem Problem nicht weiter und hoffe ihr könnt mir helfen.
Ich habe eine Tabelle mit drei Spalten. in der ersten sind deutsche Wörter, in der zweiten die englische Übersetzung davon und in der dritten die Adresse in Form von: Tabelle1.Range("P20").Value. Tabellenblätter gibt es 15 Stück und auf jedem gibt es Wörter die zu übersetzen sind.
Ich dachte jetzt, ich kann mit einer Schleife jede Zeile durchgehen, mir die Adresse auf eine Variable schreiben und im nächsten Schritt, trägt er mir das deutsche, oder englische Wort in die richtige Zelle.
Leider passiert genau das nicht... :-(
Anbei mein Code.
Dim Adstr As Range
Call INI 'hier wird geschaut, ob deutsch, oder englisch benötigt wird. (Variable Alsp ist dann Zeile 1 oder 2)
For z = 2 To 15
Set Adstr = Tabelle98.Range("E2").Value 'Auf dem Blatt stehen die Übersetzungen
Adstr = Tabelle98.Cells(z, Alsp).Value
Next z
Für jede Hilfe bin ich dankbar, auch für Anregungen solch eine Übersetzung anders zu realisieren.
Danke im Voraus und viele Grüße
Christoph