AddItem Problem
05.07.2004 07:58:44
Rainer
Mit nachfolgendem Code (eigentlich nur die unteren 10 Zeilen) möchte ich bei jedem Click auf den Button cmdEingabe die Werte der Spalten A bis E der letzten Zeile aus dem Sheet "Umsatz" in ein Listenfeld in einer Userform übertragen. So wie der Code im Moment ist überschreibt er mir aber jedesmal den vorherigen Eintrag. Irgendwo müßte da ein AddItem untergebracht werden. Wenn ich eingebe:
.AddItem.RowSource = "Umsatz!A" & i & ":E" & i
dann meckert er mich zwar nicht an und fügt auch jeweils einen Eintrag dem Listenfeld hinzu schreibt aber nur eine 0 hinein.
Private Sub cmdEingabe_Click()
Dim i As Integer
'Hilfszähler zur Ermittlung der Zeile in Tabelle Umsatz
Sheets("Kennzahlen").Activate
Set ZelleGleich = ActiveSheet.Cells(Text1 + 1, 1)
'Zelle mit eingegebener Kennzahl anspringen
Artikel = ZelleGleich.Offset(0, 1)
Menge = ZelleGleich.Offset(0, 2)
E_Preis = ZelleGleich.Offset(0, 3)
Sheets("Umsatz").Activate
Set ZelleLeer = ActiveSheet.Cells(1, 1)
i = 1
Do
i = i + 1
'Hilfszähler erhöhen
Set ZelleLeer = ZelleLeer.Offset(1, 0)
Loop Until IsEmpty(ZelleLeer)
'Erste leere Zelle in Spalte A finden
ZelleLeer.Select
ArtNr = Text1
Anzahl = Text2
ZelleLeer = ArtNr
'Werte in Sheet Umsatz eintragen
ZelleLeer.Offset(0, 1) = Artikel
'Werte in Sheet Umsatz eintragen
ZelleLeer.Offset(0, 2) = Text2
'Werte in Sheet Umsatz eintragen
ZelleLeer.Offset(0, 3) = E_Preis
'Werte in Sheet Umsatz eintragen
ZelleLeer.Offset(0, 4) = Text2 * E_Preis
'Werte in Sheet Umsatz eintragen
ZelleLeer.Offset(0, 6) = Date & " , " & Time
'Werte in Sheet Umsatz eintragen
With lstEingabe
.ColumnCount = 5
'Listenfeld in 5 Spalten aufteilen
.ColumnHeads = False
'Keine Überschriften im Listenfeld
.RowSource = "Umsatz!A" & i & ":E" & i
'Werte aus den Spalten A bis E der Zeile i
.ColumnWidths = "2cm;7cm;2cm;2cm;2cm"
End With
End Sub
Kann mir da bitte mal jemand auf die Sprünge helfen ?
Wenn ich nicht sofort antworte, liegt es daran das ich zwischendurch öfters nicht in der Nähe des Rechners bin.
Gruß aus Mainhatten
Rainer