3 Blatt Spalten durchsuchen um Sprachtexte in Steuerelmente usw. einzutragen

Wie kann ich den die Sprache damit umschalten?

Machst Du das mit einem durchlauf aller Forms und Tabellen etc.?

Zuerst mal solltest Du wissen das ich dieses AddIn quasi "vom Entwickler für Entwickler" geschrieben habe.

Da ist so viel drin, klar das haut einen erstmal um und man sieht den Wald vor lauter Bäumen nicht.

Und wer braucht schon Sprachumschaltung, ein Hilfesystem, Speichern/Laden aus der Registry, Macro-Recording, Undo...

a) Gar nicht, das passiert automatisch:

LanguageID = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

Schau in modRibbon.GetText die wertet das Language sheet aus und liefert den passenden Text, kannst Du Dir kopieren.

b) Jaein, für Userforms ja, das ist einfacher und man kann quasi den gleichen Code in UserForm_Initialize benutzen (um die Namen und den Typ zu bestimmen) schau einfach mal z.B. in ufShowDuplicates.UserForm_Initialize rein, da findest Du Beispiele wie modRibbon.GetText
aufgerufen wird.

Wenn Du während der Entwicklung in den Controls schon die passenden Texte hinterlegt hast, dann kannst Du das quasi umdrehen und die Controls auslesen, ganz simpel:

  With Me

    For Each c In Me.Controls

      Debug.Print .Name & "." & c.Name, "Caption", c.Caption

      Debug.Print .Name & "." & c.Name, "ControlTipText", c.ControlTipText

    Next

  End With

Nur die speziellen Parts, wie z.B. für Fehlermeldungen die innerhalb des Codes kommen, lege ich mir dann eben sinngemäß von Hand die passenden Einträge an.

Man kann das alles natürlich auch anders machen, aber für mich (und nachdem ich mir viele andere Techniken von anderen Programmierern angeschaut habe) ist das die sinnigste Lösung.

Wichtig ist nur das modRibbon.GetText so schnell wie irgend möglich sein sollte, für den Fall das Du auch einen (großen) Ribbon hast.

Mein älteren AddIns haben noch eine andere Methode und die ist etwas langsamer und bei der Entwicklung dieses AddIns mit dem großen Ribbon bekam ich dann Probleme das dieser nicht mehr richtig dargestellt wurde.

Noch schneller würde modRibbon.GetText werden wenn man das Language sheet in ein Scripting.Dictionary einliest, aber das habe ich bewußt nicht gemacht, weil dieser Code auch für Mac kompatibel sein soll(te).

Alles klar?

Andreas.

Danke! Andreas, hab das AddIn installiert. Allerdings bin ich ziemlich platt von den vielen Funktionen die ich noch nicht verstehe. Den Button Language hat ich zwar gefunden, der sagt auch 1031 für die Landessprache. Wie ich umschalten kann auf englisch
hab ich noch nicht entdeckt. In den div. Modul Funktionen und Subs hab ich es auch noch nicht entdeckt. Wie kann ich den die Sprache damit umschalten?

In dem Blatt sehe ich sehr gut die ID und die Sprachspalten. so ähnlich habe ich das auch, nur sind meine ID mehrspaltig und von Hand eingegeben. Deine sehen nach einer Zusammenführung der richtigen Steuerelemente.Namen aus. Machst Du das mit einem durchlauf
aller Forms und Tabellen etc.?

Lad Dir mal dieses AddIn runter, da kannst Du Dir das abkucken:

https://www.dropbox.com/s/eow60utqq4nf1gr/AK.zip?dl=1

Das macht den Ribbon, Userformen, MsgBox udgl. auf Englisch / Deutsch und ist auch auf andere Sprachen erweiterbar.

Andreas.

Ja primär gehts mir um das Blatt Variantenbewertung.

Obwohl ich das auch schon gerne auf dem Blatt "Paarvergleich hätte" Eigentlich ist es ja nicht nötig. So wie es jetzt gelöst ist gehts auch, idr hat hat man nie mehr als 6-7 Kriterien.

Es wär aber mal schön zu lernen wie es gehen könnte.

Eventuell kann man das Problem mit der Verweisung aufs Blatt "Paarvergleich" umgehen. Ich denke aber nicht, weil ich ja genau das will. Wenn auf Blatt Paarvergleich kein Kriterium steht dann soll Leer sein ............ usw etc.

Du meinst ich muss mit dem Makro die Spalte/Zeile/Zelle/Formel usw. jeweils seperat erstellen. Bedeutet wenn ich Tastenkombination ctrl + ?? drücke erzeugt es neues Kriterium auf Blatt "Paarvergleich" direkt danach auf Blatt Nutzwertanalyse, und dann bei
Variantenbewertung.

Die Anzahl der Beteiligten sollte aber kein Problem darstellen, oder? Was sich "nur" ändert ist die Range der Formel MITTELWERT, die muss erweitert werden um eine Spalte.

Zu Variante X auf dem Blatt "Variantenbewertung", theoretisch kann man die Funktion WENN(ISTLEER)... auch weglassen und einfach nur die Nummerierung erweitern. also wenn ich shortcut drücke erzeugt es variante 2 und wenn nochmal dann variante 3.

Ja, bin ich dann ist es doch aber ein "komplexes Problem", oder nicht?

Beste Grüße

Marcel

und nochmals vielen Dank für deine Zeit und Hilfe

Dann soll er aber automatisch nach
B4 gehen und weiter nach C4, D4, F4 und wieder

B5, nach C5, D5, F5 usw. usw., bis das Blatt abgearbeitet ist.

Trick 1472:

- Markiere Spalte B:F

- Rechte Maustaste, Zellen formatieren, Schutz, Haken bei "Schutz" entfernen, Ok

- Registerkarte Überprüfen, Blatt schützen, Haken bei "Gesperrte Zellen auswählen" entfernen, Ok

Alles andere musst Du mit VBA programmieren.

Andreas.