Thema: Listenfeld Eintrag vergleichen

Hallo Forum,

ich habe mir eine Userform und mit einem Listenfeld gebastelt. Im Listenfeld wähle ich Mitarbeiter aus. Außerdem mache ich Eintragungen über eine Textbox in B1. Funktioniert alles.

Ich möchte jetzt nur die Listbox mit den Mitarbeitern in Spalte vergleichen. (Stehen alle in Spalte A) Den der Eintrag über die Textbox soll immer hinter dem ausgewählten Mitarbeiter zB. B1 erfolgen.

Hat jemand eine Idee?

Viele Grüße
Norbert

dein ablauf ist nochmal wie?

Text in Textbox schreiben
Mitarbeiter auswählen
Text hinter gefundenen Mitarbeiter einfügen
So?

1.)Ich wähle den Mitarbeiter aus.
2.)Dann schreib ich etwas in die Textbox 3.)klicke auf den Button und
4.) dann soll er den eingetragenen Wert in B2 zum Beispiel schreiben, wenn da schon etwas drin steht in C2 usw.

den danke button nicht vergessen :)

Private Sub CommandButton1_Click()

 

 With ActiveSheet

     .Rows(ListBox1.ListIndex + 1).Columns.End(xlToLeft).Offset(, 1) = TextBox1

 End With

 

End Sub