|
Hallo Gast53867,
leider kann/darf ich die Datei nich öffentlich stellen (aufgrund Datenschutz), dennoch hoffe ich, dass du mir weiter helfen kannst, mit dem folgenden Code:
Private Sub Weiter_Button_Click()
'Meine Userform heitst Personhinzufügen
Personhinzufügen.Hide
Dim Person, Name As String
Name = TextBox9
Person = ListBox1
Einfuegen = (Cells(1, Columns.Count).End(xlToLeft).Column - 6)
Cells(1, Einfuegen + 1) = Person & " " & Name
End Sub
Mein Ziel ist es also, den aktuellen ausgewählten Wert aus der Listbox zusammen mit dem eingegebenen Wert aus der TextBox9 in eine Zelle zu schreiben.
Das wärs dann auch schon :)
Sorry für die Formatierung hier, allerdings weiß ich nicht, wie ich die Formatierung genauso hinbekomme, als wäre es in Excel selbst.
Vielen Dank für die Rückmeldung.
|