Microsoft Excel

Herbers Excel/VBA-Archiv

IF - Fomulierung

Betrifft: IF - Fomulierung von: Tomas
Geschrieben am: 02.10.2020 22:03:32

Hallo zusammen!
Ich stehe irgendwie auf dem Schlauch...
Mittel Combobox wähle ich eine Sparte aus.
Um einen weiteren Trainer hinzuzufügen, öffnet sich ein neues Formular, wo ich Trainer 1 bis 6 auswählen kann.
Soweit klappt das auch schon sehr gut.
Nun habe ich nachfolgend zwei Textfelder für den Namen und die E-Mailadresse.

In den Spalten F bis K sind die Trainernamen zu finden. (Spalte F = Trainer1, Spalte G = Trainer2, etc.)
In den SpaltenL bis Q sind die Emailadressen zu finden. (Spalte L = E-Mailadresse T1, Spalte M = E-Mailadresse T2, etc.)

Wie bekomme ich es nun hin, dass sich die beiden Textfelder automatisch anhand der Auswahl der Combobox füllen?

Bisher hatte ich folgenden Ansatz:

Private Sub UserForm_Initialize()
'Datenherkunft der Combobox

Worksheets("Trainer").Unprotect Password:=1

arr = Sheets("Trainer").Range("F" & frmTrainer_auswählen.cbxTrainer_auswählen.ListIndex + 3 & ": _
K" & frmTrainer_auswählen.cbxTrainer_auswählen.ListIndex + 3)
cbxTrainer_aendern.Column = arr

End Sub
---- Bis hierhin funktioniert es Einwandfrei -----
Private Sub cbxTrainer_aendern_Change()

Worksheets("Trainer").Unprotect Password:=1

If cbxTrainer_aendern.ListIndex = Range("F") Then '(Wenn Trainer_aendern.Listindex ist Spalte F  _
dann)

With Worksheets("Trainer")
    Me.txtTrainer = .Cells(Me.cbxTrainer_aendern.ListIndex + 3, "F")
    Me.txtTraineremail = .Cells(Me.cbxTrainer_aendern.ListIndex + 3, "L")

End With
End If

If cbxTrainer_aendern.ListIndex = Range("G") Then

With Worksheets("Trainer")
    Me.txtTrainer = .Cells(Me.cbxTrainer_aendern.ListIndex + 3, "G")
    Me.txtTraineremail = .Cells(Me.cbxTrainer_aendern.ListIndex + 3, "M")

End With
End If

    
End Sub
Weiß einer von euch hier einen Rat?

Liebe Grüße
Tomas

Betrifft: AW: IF - Fomulierung
von: onur
Geschrieben am: 02.10.2020 23:49:32

Poste besse die Datei.