UF Controls in Tabelle

[Klaus-Dieter]

Hallo Florian,

ich vermute du meinst die For Each Schleife. Was soll die denn bewirken?

[Florian20]

Ja genau.

Sie liest die Daten aus Tabelle 1 aus

und setzt die Daten in die UserForm.controls ein

Also caption & controlTipText

[Klaus-Dieter]

Hallo Florian,

und der Fehler ist, dass sie das nicht macht?

[Florian20]

Ja genau.

[Klaus-Dieter]

Hallo Florian,

um dich mal auf die richtige Spur zu setzen:

Code:

Private Sub ComboBox3_Change()
'ändert je nach auswahl die Sprache der Controls im Editor
   If ComboBox3.Text = "English" Then
       CommandButton1.Caption = "Save project"
   Else
       CommandButton1.Caption = "Speichern"
   End If

[Florian20]

Hallo und guten morgen,

Ja soweit wahr Ich auch schon, aber bei 167 Controls ist diese liste zu lang.
Da Ich ja Caption & ControlTipText ändern möchte.

deswegen die schleife und das Tabellenblatt.

lg flo

[Steffl]

Hallo Florian,

das ist keine optimale Tabellenstruktur die Du hast. André und Klaus-Dieter beziehen sich auf eine optimalere Tabellenstruktur.

[Florian20]

Hallo und wie sollte die Tabelle aussehen?

[Klaus-Dieter]

Hallo Florian,

Ja soweit wahr Ich auch schon, aber bei 167 Controls ist diese liste zu lang.

das klingt nach einem suboptimalen Aufbau. Stelle die Datei doch mal ein. Oder schicke sie mir per Mail, die Adresse findest du im Impressum von excelwelt.eu.

[Florian20]

Ich habe es hinbekommen, danke an alle für die antworten

Hier mein Code:

Code:

Private Sub ComboBox3_Change()
'ändert je nach auswahl die Sprache der Controls im Editor
Dim arry As Variant, ctl As Control
Dim letzte As Long, i As Long

'Hier werden die Daten aus der Tabelle gelesen / gestzt / überprüft
If ComboBox3.Text = "Select language" Then Exit Sub
letzte = Tabelle4.Cells(Rows.Count, 2).End(xlUp).Row
arry = Tabelle4.Range("A1:D" & letzte).Value
'==================================================================================
If ComboBox3.Text = "Deutsch" Then
   i = 1
   For Each ctl In Me.Controls
       On Error Resume Next
       If arry(i, 1) = "English" Then Exit For
       ctl.ControlTipText = arry(i, 3)
       ctl.Caption = arry(i, 4)
       i = i + 1
   Next ctl
End If
'==================================================================================
If ComboBox3.Text = "English" Then
   i = 75
   For Each ctl In Me.Controls
       On Error Resume Next
       ctl.ControlTipText = arry(i, 3)
       ctl.Caption = arry(i, 4)
       i = i + 1
   Next ctl
End If
End Sub