MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 15.11.2016, 12:11   #1
94Term
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Messagebox

Guten Tag zusammen,

ich habe eine MsgBox programmiert die sich beim öffnen des Excel Dokuments automatisch öffnet und einen deutschen Text anzeigt. Nun möchte ich diesen Text auch in Englisch anzeigen lassen.
Daher würde ich gerne in Abhängigkeit von der eingestellten Systemsprache von Excel den Text auf Englisch oder eben Deutsch anzeigen lassen.

Ist dies überhaupt möglich?

Code:

Private Sub Workbook_Open()

'Meldung die beim öffnen des Dokuments auf geht

Dim Meldung As String

Meldung = "???"

MsgBox Meldung, vbExclamation + vbSystemModal, "Datenschutz-Hinweis"
94Term ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.11.2016, 14:13   #2
immelmann
MOF Meister
MOF Meister
Standard

da Du hier im reinen VB Forum fragst, gibt es die Antwort für VB6
http://www.vbarchiv.net/tipps/tipp_6...ermitteln.html

__________________

Gruss Torsten

Win 7 SP1, O2010, VB6 Pro SP6, VB2010 SP1
immelmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.11.2016, 15:21   #3
_anton_
MOF User
MOF User
Standard

Hallo ,

oder so:
Code:

Sub b()
  Dim objWMIService As Object, colItems As Object  
  Dim sSprache As String, objItem As Object    
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")  
  Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem", , 48)  
  For Each objItem In colItems  
    sSprache = objItem.locale
  Next
  Set colItems = Nothing  
  Set objWMIService = Nothing  
  Select Case sSprache  
    Case "0407"
      MsgBox "Deutsch(DE)"
    Case "0409"
      MsgBox "Englisch(US)"
    Case "0809"
      MsgBox "Englisch(GB)"
  End Select  
End Sub  




mfg Anton
_anton_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:15 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.