Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

IF - Fomulierung

IF - Fomulierung
02.10.2020 22:03:32
Tomas
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IF - Fomulierung
02.10.2020 23:49:32
onur
Poste besse die Datei.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige