AW: Mit RND doppelte Einträge möglich oder nicht?
01.03.2005 23:08:23
Drazen
Hi,
ist nix Weltbewegendes, nur ein einfacher ZeileEintrag:
Private Sub cmdEintragen_Click()
Sheets("BESTELLUNG").Activate
Dim xZeile As Long
xZeile = Range("A65536").End(xlUp).Row + 1
Cells(xZeile, 1) = lblKundeI.Caption
Cells(xZeile, 2) = lblArtikelI.Caption
Cells(xZeile, 26) = Val(txtBestellNummer)
Cells(xZeile, 27) = CDate(txtBestellDatum)
If txtDelNotiz = "" Then
Cells(xZeile, 21) = 0
Else
Cells(xZeile, 21) = CDbl(txtDelNotiz)
End If
If txtMenge = "" Then Exit Sub
Cells(xZeile, 23) = CDbl(txtMenge)
Cells(xZeile, 24) = txtMassEinheit
Cells(xZeile, 25) = CDate(txtLieferTermin)
Cells(xZeile, 22) = txtAnmerkung
Cells(xZeile, 28) = Int((99999 - 1 + 1) * Rnd + 1)
txtMenge = ""
txtMassEinheit = ""
txtAnmerkung = ""
txtLieferTermin = ""
lblArtikelNummer = ""
lblArtikel = ""
lstArtikel.ListIndex = -1
cboKunde.Enabled = False
End Sub