Thema Datum  Von Nutzer Rating
Antwort
05.12.2017 22:46:25 isabellaferrerowald
NotSolved
Blau  Mit Dropdownliste Sprache in Datenblatt auswählen/übersetzen
 06.12.2017 11:07:47 Gast73357
NotSolved
06.12.2017 12:56:33 Gast49428
NotSolved
06.12.2017 13:16:49 Gast96203
NotSolved
06.12.2017 15:36:24 Gast11121
NotSolved
06.12.2017 11:12:38 Gast35715
NotSolved

Ansicht des Beitrags:
Von:
Gast73357		 Datum:
06.12.2017 11:07:47		 Views:
736		 Rating:
     
Antwort:
  Ja
Thema:
Mit Dropdownliste Sprache in Datenblatt auswählen/übersetzen

Hallo,

eine Möglichkeit wäre folgende:

Sprachdaten:

Formular:

Wechsel der Sprache:

Code (Combobox):

Option Explicit

Private Sub cmbLanguage_Change()
    Dim wksForm As Worksheet
    Dim wksData As Worksheet
    Dim strLanguage As String
    Dim l As Long
    
    strLanguage = Worksheets("Tabelle1").cmbLanguage.Value
    l = 2
    
    Set wksForm = ThisWorkbook.Worksheets("Tabelle1")
    Set wksData = ThisWorkbook.Worksheets("Tabelle2")
    
    Do While Not wksData.Cells(l, 1).Value = vbNullString
        Select Case strLanguage
            Case "Deutsch":
                wksForm.Range(wksData.Cells(l, 1).Value).Value = wksData.Cells(l, 2).Value
            Case "Englisch":
                wksForm.Range(wksData.Cells(l, 1).Value).Value = wksData.Cells(l, 3).Value
            Case Else:
                wksForm.Range(wksData.Cells(l, 1).Value).Value = wksData.Cells(l, 2).Value
        End Select
        l = l + 1
    Loop
    
    Set wksData = Nothing
    Set wksForm = Nothing
End Sub

Viel Erfolg

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.12.2017 22:46:25 isabellaferrerowald
NotSolved
Blau  Mit Dropdownliste Sprache in Datenblatt auswählen/übersetzen
 06.12.2017 11:07:47 Gast73357
NotSolved
06.12.2017 12:56:33 Gast49428
NotSolved
06.12.2017 13:16:49 Gast96203
NotSolved
06.12.2017 15:36:24 Gast11121
NotSolved
06.12.2017 11:12:38 Gast35715
NotSolved