Werte aus Listbox in Textbox übertragen

Hallo zsm,
Die Listbox bereitet mir noch echt Probleme... :/
Ich habe mir eine Userform erstellt mit einer Listbox die mir die Monate anzeigt, sowie 2 Textboxen (von - bis). 2 Buttons zum Übernehmen und Abbrechen.
von in zelle AQ4
bis in Zelle AR4
Monatsliste im Breich AQ6:AQ19
Die Textboxen lesen beim starten der Userform das aktuell gewählte Datum aus. Die Listbox hab ich auch gefüllt bekommen. Das Auslesen ist aber sicherlich falsch für das wie ich es gern verwenden wollte.
Jetzt hätte ich noch gerne, das wenn man den Monat über die Listbox auswählt er das Anfangsdatum in AQ4 und das Enddatum in AR4 schreibt. Das ganze soll quasi als Vorlag dienen. Man soll in die Textboxen immer noch einen eigenen Zeitraum wählen können.
In dem Bereich AR6:AS19 stehen schon die Anfangs- und Enddaten.
Mein Code bisher^^

Private Sub UserForm_Initialize()
TextBox1.Value = Worksheets("Monatsübersicht").Range("Aq4")
TextBox2.Value = Worksheets("Monatsübersicht").Range("Ar4")
ListBox1.RowSource = "Aq6:Aq19"
End Sub

Private Sub cmbÜbernehmen_Click()
Unload UserForm5
End Sub

Private Sub cmbAbbrechen_Click()
Unload UserForm5
End Sub

Wäre schön wenn ihr mir helfen könntet!
Danke schon mal und ein frohes Fest

Hey, Danke für den Einsatz!!
Also es ist so, der Kalender überschneidet sich 3 Wochen mit dem Vor- bzw. Folgejahr. Aus Betriebsinternen gründen. Mein Problem könnte ich mittlerweile sogar losen. Siehe Code...
Nur jetzt ist mein Problem das er den:
Laufzeitfehler'381':
Eigenschaft Column könnte nicht abgerufen werden. Index des Eigenschaftenfelds ungültig bringt.
Das tut er aber nur wenn ich die Listbox vorher nicht angeklickt habe. Klicke ich sie an und geh dann auf übernehmen zickt er nicht rum.
https://www.dropbox.com/s/ciqrfi6u8g37trk/zeitraumw%C3%A4hlen.JPG
Aber dank dir schon mal für deine Bemühung!!!
Option Explicit

Private Sub UserForm_Initialize()
TextBox1.Text = Worksheets("Monatsübersicht").Range("Aq4")
TextBox2.Text = Worksheets("Monatsübersicht").Range("Ar4")
ListBoxFuellen ListBox1, ThisWorkbook.Worksheets("Monatsübersicht").Range("aq6:as19")
End Sub


Private Sub ListBoxFuellen(DieListbox As MSForms.ListBox, DerRange As Range)
With DieListbox
.ColumnCount = DerRange.Columns.Count
.List = DerRange.Value
End With
End Sub

Private Sub cmbÜbernehmen_Click()
TextBox1.Value = ListBox1.Column(1, ListBox1.ListIndex)
TextBox2.Value = ListBox1.Column(2, ListBox1.ListIndex)
Worksheets("Monatsübersicht").Range("Aq4") = TextBox1.Text
Worksheets("Monatsübersicht").Range("Ar4") = TextBox2.Text
Unload UserForm5
End Sub

Private Sub cmbAbbrechen_Click()
Unload UserForm5
End Sub

Werte aus Listbox in Textbox übertragen

Forumthread: Werte aus Listbox in Textbox übertragen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial