---

Hallo zusammen,

wie kann ich einer Variable beim Start von Excel einen Wert zuweisen?

Vielen Dank für eure Hilfe!

Grüße

Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bei diesen Angaben, bleibt sogar meine Glaskugel blind.

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

"Zwei Dinge sind unendlich: das Universum und die menschliche Dummheit.
Aber beim Universum bin ich mir noch nicht ganz sicher."
Albert Einstein

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bei der Excel Datei handelt es sich um eine Kalkulationsgrundlage für meinen Kunden. Hier kann es über verschiedene Einstellungen eine Anlage bei uns bestellen.

Das geht bisher auch alles ganz gut.

Nun soll ich die Zellen, die Texte enthalten umschaltbar in Abhängigkeit der gewählten Sprache machen. Hier zu gibt es ein Kombinationslistenfeld. Auch das klappt schon.

Nun ist es so, dass ich in dem VBA Makro auf verschiedene Zelle schaue und nach sehe welcher Text dort steht. Hierzu habe ich eine Variable erzeugt in der je nach Sprachwahl die Spalte als Zahl steht.

Wenn ein Start der Datei erfolgt und keine Auswahl der Sprach erfolgt, dann ist diese Variable = 0.

Daher will ich beim Start der Datei quasi die „Default Sprache“ festlegen.

Leider weiß ich nicht, wo und wie ich das machen kann.

Grüße

Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schreib Deinen Defaultwert bspw. in eine Zelle und weise diesen Wert einer VBA-Variable zu.

Code:

---

Variable=cells(Zeile,Spalte)

---

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und wie mach ich es, dass dieser Wert genau einmal beim Start abgeholt wird?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

in einem Modul definierst Du die Variable als "Public". Dann in VBA - Diese Arbeitsmappe - rechts oben: Workbook.Open auswählen. Dort trägst Du den Code von carsten-3m ein.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das kommt drauf an, wie die Ablaufsteuerung in Deinem VBA-Programm gestaltet wurde. So könnte es aussehen:

Code:

---

Sub Sowienoch()
Dim Variable
Variable = cells(Zeile,Spalte)
'Programmschleife zur Ablaufsteuerung
End Sub

---

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke euch beiden!

Problem gelöst!

Grüße

Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder direkt auf die Spracheinstellung schauen - hier nur deutsch und englisch

Code:

---

Sub test()

Nummer = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

Select Case Nummer
        Case 1031, 3079, 5127, 4103, 2055:    MsgBox ("Deutsch")
        Case 1033, 2057, 3081, 10249, 4105, 9225, 15369, 16393, 14345, 6153, 8201, 17417, 5129, 13321, 18441, 7177, 11273, 12297: MsgBox ("English")
        Case Else
                MsgBox "nix"
        End Select

'liste unter http://msdn.microsoft.com/de-de/goglobal/bb964664%28en-us%29.aspx

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP