So:
Private Sub UserForm_Click()
Rows(cboNamen.ListIndex + 2).Select
End Sub
Oder So:
Private Sub UserForm_Change()
Rows(cboNamen.ListIndex + 2).Select
End Sub
Der Code ist nur fast richtig er selectiert mir die ganze Zeile
ich möchte aber nur die Zelle mit den Namen selectieren...
Weiterhin funktioniert das alles nur wenn ich nach der Auswahl der Combobox nochmal die Userform anklicke mit der Maus!?
Wer kann mir helfen?
Hier mein ganzer Code...
Diese Arbeitsmappe
Private Sub cboNamen_Click()
cells(cboNamen.ListIndex + 2,1).Select
txtkommt001 = Cells(ActiveCell.Row, SpalteKommt).Text
txtgeht001 = Cells(ActiveCell.Row, SpalteGeht).Text
End Sub