aus einer Userform muss ich Daten aus 3 CboBoxen, 1 Listbox, die sich aus dem Text von drei nebeneinander stehenden Spalten zusammensetzt und aus einer TextBox als ein Datensatz in eine Datei übertragen.
Im Laufe eines Monats sind es bis zu 80 Datensätze ich da übernehmen muss. Das Problem ist nur, wie ich in VBA diese Datensätze schön untereinander in das als Datenspeicher dienende Arbeitsblatt übertragen kann. Bei jedem neuen Datensatz muss ja berücksichtigt werden, dass der neue Datensatz immer eine Zeile tiefer eingetragen werden muss.
Bei der Übernahme des Textes über die Listbox in ein Arbeitsblatt gibt es auch ein Problem. Der Text aus 3 direkt nebeneinander liegenden Spalten muss in der Userform als ein Satz gezeigt werden. In der Formatierung der Userform habe ich das wie folgt gelöst:
With UserForm5.ListBox1
.ColumnCount = 3
.ColumnHeads = False
.RowSource = "Favoriten!A6:C40"
.ColumnWidths = "2,5cm;2,5cm;2,5cm"
End With~f~
Leider klappt die Übernahme nicht immer. Es kann aber auch an der Übernahme "Listbox-Arbeitsblatt" liegen, wo mein Prg.Text wie folgt aussieht:
~f~With Worksheets(c_wsBerichtName)
.Cells(1, 4).Value = Me.CboMitarbeiter <ist OK
.Cells(4, 5).Value = CboBoxStd.Value * 1 <ist OK
.Cells(4, 6).Value = Me.CboBoxDat.Value <ist OK
.Cells(4, 4).Value = TextBox1.Text <ist OK
.Cells(4, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) ?
.Cells(4, 2).Value = ListBox1.List(ListBox1.ListIndex, 1) ?
.Cells(4, 3).Value = ListBox1.List(ListBox1.ListIndex, 2) ?
End With
Ich hoffe, dass mir jemand helfen kann.
Frdl. Gruß Laguna