Office: Name Userform auslesen

Hallo.
ich arbeite gerade an einer Excelauswertung, die auch mit Userformen bestückt ist. Diese Auswertung soll in 3 Sprachen verfügbar sein, aber ich hab verständlicherweise keine Lust 3 Versionen zu pflegen. Deswegen würde ich gerne beim initialisieren der UF die Beschriftung an die gewählte Spracheinstellungen anpassen. Dazu habe ich eine Sheet, wo ich Name der Userform, die zu beschriftenden Objekte und die jeweilige Beschriftung hinterlegt habe. Damit die Sache ganz simpel zum pflegen und erweiteren wird, war mein Plan beim initialisieren die Userform als Objekt an eine in einem Modul definierten Sub zu übergeben, aber die Sache scheitert schon daran, das ich die Eigenschaft "Name" der übergebenen UF nicht auslesen kann. Geht das prinzipiell nicht, oder ist die Eigenschaft nur ne andere?

Danke im voraus und Gruß
Thorsten

:)

 

Hi,

wie versuchst du es denn?

 

Hallo Thorsten,

Frage jemand der neben Dir sitzt der sieht die Datei.

Gruss Hajo

 

Hi Thorsten,

Wozu denn 3 Formulare? Du willst doch nur die beschriftung oder Inhalte des (einen) Formulars ensprechend der Sprachauswahl anpassen.Wie das funktionieren kann, sh. Anhang...

 

Hallo,
viel Dank schon mal.
@ Hajo: Das hab ich jetzt nicht verstanden?

@marco & Ralf:
Also das System das Ralf hier gepostet hat kommt dem Recht nahe, nur das ich das Sub Translate nicht im Formular haben möchte sondern in ein Modul auslagern will. Das hat den Hintergrund, das in der Datei mehrere Formulare vorhanden sind und ich die die Funktion nicht in jeder UF nochmal schreiben möchte, schon allein aus Wartbarkeitsgründen.

Der Code im Modul sieht so aus:
Code:

und auf jeder Userform würde ich halt gerne ins Initialize Ereignis nur

Call UserformTranslation(Me)

schreiben. Weil das UF.name aber wider erwarten nicht funktioniert finde ich in meiner Übersetzungstabelle nicht heraus, welche Elemente neu beschriftet werden müssen. Zur Not muss ich den Namen halt noch mit an die Prozedur übergeben, finde ich aber unschön und eigentlich unnötig, da ich ja schon das Objekt übergebe.
Ich hoffe ich könnte mein (Luxus?) Problem verständlich beschreiben.
Gruß
Thorsten

 

ich schaue nicht auf fremde Rechner und sehe die Datei nicht.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.


Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

 

Ach so, sorry, die originale Datei kann ich leider nicht hochladen, da darin auch Daten vorhanden sind und das Teil recht umfangreich ist was vermutlich noch mehr verwirren würde. Ich kann das Problem aber nachbauen, wenn es hilft.
Ich bin aber auch noch nicht so wirklich mit den Gepflogenheiten und Funktionen im Forum vertraut.
Danke und Gruß
Thorsten

 

Hier hab ich mal ne Testdatei angehängt, die den relevanten Teil enthält.

 

Hier mal mein Ansatz ...

Kann man sicher noch verbessern ...

PS In Deiner Beispieldatei sehe ich überhaupt keinen Ansatz, wie die Objekte
auf der Userform übersetzt werden sollen, nur rudimentären Code und eine leere
Userform. Wozu soll die gut sein?

 

Hi Thorsten,

bei allem Respekt, aber die angehängte Datei ist nicht nur ein Witz, sie ist vorallem eine Zumutung. Da hättest Du gleich ein leeres Dokument anhängen können.
Ich mach mir nicht die Mühe, hier rein auf Vermutungen hin meine Zeit zu opfern um dann am Ende zu hören... nee.... das ist alles ganz anders.
Schau Dir mein 1. Beispiel an und mach was draus.
Das hier ist schließlich kein Dienstleistungs- sondern ein Hilfeforum... Und Hilfe (sprich eine Anleitung, was, wie möglich wäre) hast Du bekommen. Adaptieren musst Du es schon selbst.
Wenn Du es von anderen erledigt haben möchtest, dann bist Du hier richtig.
Aber selbst da wirst Du mit einer solchen Vorlage keine Ergebnisse erwarten dürfen...

 

Hallo,

Witz hin Ansatz her, der Grund für das Problem ist bekannt und wurde bereits weiland von Nepumuk dingfest gemacht...*smashing

Ein Userform an eine Prozedur übergeben - - Office-Loesung.de

In Kurzform: Du mußt den Übergabeparameter der Form in der Proc as Object deklarieren, da das UserForm-Interface die Name.Eigenschaft nicht enthält...*upps *cool.gif*

Gruß, Muller2

 

Richtiger Hinweis, Danke! Damit läßt sich mein Ansatz wesentlich verbessern. Ich war zu sehr auf die generische Klasse Userforms fixiert *frown.gif*

Da der OP sich nicht wiedermeldet, macht er das sicher selber.

 

Sorry für den Unmut, aber ich bin wohl falsch verstanden worden bzw. hab da evtl zu unklar ausgedrückt. Es geht mir gar nicht darum wie die Elementbeschriftung gemacht wird, das bekomm ich hin, es geht mir nur darum, ob bzw. wie man den Namen der Userform feststellen kann, die das Sub aufruft. Mehr nicht. Deswegen ist die Datei auch so rudimentär, weil ich nur das Problem aufzeigen wollte, alles andere war aus meiner Sicht unwichtig für meine Frage. Also ich bitte um Entschuldigung wenn das zu unklar war. Ich würde halt, wenn es geht den Namen nicht mit übergeben wollen, aber das wäre im Zweifel auch kein Beinbruch.
Gruß
Thorsten

Edit: @ Muller2: Exakt das ist die Lösung, vielen Dank. Aber auch die anderen, insbesondere Ralf und Storax, danke, auch wenn ich offensichtlich die Frage unglücklich formuliert habe, so das ihr euch mehr Arbeit als nötig gemacht habt!
Ich versuch es beim nächsten mal klarer zu formulieren.