Office: Mustervorlage

Hallo,

ich habe ein Datei zur Übersetzung. Es gibt eine Zelle zur Auswahl der Sprache.
In der XLSM Datei geht es. Die ist die Grundlage für die XLTM Datei.
Mache ich ein Doppelklick auf Mustervorlage wird eine neue Datei erstellt. Es steht aber in in D2 #Wert.
Diese Zelle wird übersetzt lt. Tabelle "Übersetzung"
Es ist ein Code in der Datei unter DieseArbeitsmappe

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Calculate
End Sub

Ein Wechsel der Tabelle hat keine Auswirkungen.
Die Übersetzungsliste wurde radikal gekürzt.
Die Mustervorlage konnte ich nicht hochladen. Die Erstellung dürfte kein Problem sein.

Gruß Hajo

 

Hallo,

in Adresse konnte der Tabellename nicht ermittelt werde.
Ich habe den Code in Modul geändert

Code:

Function ATabelle() As String
    ATabelle = ActiveSheet.Name
End Function

und die Formel geändert
=INDEX(Übersetzung!$A:$AA;VERGLEICH(atabelle() & "!"& ADRESSE(ZEILE();SPALTE();4);Übersetzung!$A:$A;0);VERGLEICH($O$4;Übersetzung!$1:$1;1))

Gruß Hajo

 

Hallo Hajo,

das ist ein besch... Beispiel einer Musterdatei. Da gibt es zu jeder Formel nur ein #NV als Ergebnis, ok, ab und zu ein #Bezug. Nirgendwo gibt es ein "#Wert". In D2 steht Name, Vorname!
Vielleicht machst Du Dir selber mal die Mühe eine vernünftige Musterdatei einzustellen.

 

Moin Hajo,

alternativ: Die multilingual-Aufgabe noch einmal völlig neu denken. Ich habe einige ML-Projekte mit einer Tabelle und VBA gebastelt. Formeln brauchte ich dazu nie.

Vielleicht beschreibst Du mal, was Du vorhast?

Grüeß

 

Hallo,

ich habe inzwischen das Problem gelöst, mit Berverly. In Zelle B1 die Formel für den Tabellname und in der anderen Zelle eine Bezug zu B1.
Die Formel für den Tabellename in dieFormel in Zelle B6, führte zu einem Fehler in der Mustervorlage.

Ersatzbeleg

	B
1

Ersatzbeleg

	B	C	D
6	Ort der Aufwendung:

verbundene Zellen

B6: D6

verwendete Formeln
Zelle	Formel	Bereich	N/A
B1	=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;255)
B6	=INDEX(Übersetzung!$A:$AA;VERGLEICH($B$1 & "!"& ADRESSE(ZEILE();SPALTE();4);Übersetzung!$A:$A;0);VERGLEICH($O$4;Übersetzung!$1:$1;1))

Zahlenformate
Zelle	Format	Inhalt
B1	';;;		Ersatzbeleg

Zellen mit Format Standard werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

Gruß Hajo