Listboxeinträge
19.09.2006 16:57:03
Crissi
mit nachfolgendem Code lasse ich eine Listbox Daten einlesen.
Das Problem ist, dass sich die Einträge wenn ich den
CommandButton 3 öffters anclicke die Einträge
folrtlaufen wiederholt werden, das heisst sind in der Tabelle
"Kasse" 3 Einträge verzeichnet, sowerden diese 3 Einträge bei jedem
Click eingelesen
Private Sub CommandButton3_Click()
Dim Monat As String, Art As String
Monat = cboMonate.Text
Art = cboKasseBank.Text
frmEinnahme.lstKasse.Clear
If Monat = "Januar" And Art = "Kasse" Then
If Sheets("Kasse").Cells(5, 1) = "" Then GoTo Ende
iRowL = Sheets("Kasse").Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 5 To iRowL
If Not IsEmpty(Sheets("Kasse").Cells(iRow, 1)) Then
ReDim Preserve arr(0 To 10, 0 To IRowU)
arr(0, IRowU) = Sheets("Kasse").Cells(iRow, 1)
arr(0, IRowU) = Format(arr(0, IRowU), "d")
arr(1, IRowU) = Sheets("Kasse").Cells(iRow, 2)
arr(2, IRowU) = Sheets("Kasse").Cells(iRow, 3)
arr(3, IRowU) = Sheets("Kasse").Cells(iRow, 4)
arr(4, IRowU) = Sheets("Kasse").Cells(iRow, 5)
arr(5, IRowU) = Sheets("Kasse").Cells(iRow, 6)
arr(6, IRowU) = Sheets("Kasse").Cells(iRow, 7)
arr(7, IRowU) = Sheets("Kasse").Cells(iRow, 8)
arr(8, IRowU) = Sheets("Kasse").Cells(iRow, 9)
arr(9, IRowU) = Sheets("Kasse").Cells(iRow, 10)
arr(10, IRowU) = Sheets("Kasse").Cells(iRow, 11)
IRowU = IRowU + 1
End If
Next iRow
frmEinnahme.lstKasse.Column = arr
End If
Ende:
End Sub