Nummer beim Formularöffnen generieren?
10.06.2004 19:15:36
Studentissimo
brauche Hilfe bei meiner Studiums Hausarbeit in VBA.
Beim öffnen meines Formulares soll automatisch eine (Kunden)Nummer generiert werden, die noch nicht vorhanden ist.
Zur Zeit gebe ich noch selber Kundennummern ein, die dann in Spalte A auftauchen.
Wäre super wenn mir jemand helfen könnte, bin als BWL Student etwas überfordert mit VBA!!!
Mein Code fürs entsprechende Formular:
"
Private Sub btKunden_Click()
Dim Zeile As Range
Set Zeile = ZeileSuchen(Range("Kunden!A2:E2"))
Zeile.Cells(1) = tbKunde
Zeile.Cells(2) = tbKundennr
Zeile.Cells(3) = tbName
Zeile.Cells(4) = tbAnschrift
Zeile.Cells(5) = tbTelefonnr
tbKunde = ""
tbKundennr = ""
tbName = ""
tbAnschrift = ""
tbTelefonnr = ""
tbKunde.SetFocus
End Sub
Function ZeileSuchen(Start As Range) As Range
Dim Verschiebung As Integer
Verschiebung = 0
Do
Set ZeileSuchen = Start.Offset(Verschiebung, 0)
Verschiebung = Verschiebung + 1
Dim Inhalt As String
Inhalt = ""
Dim zelle As Range
For Each zelle In ZeileSuchen
Inhalt = Inhalt & zelle.Formula
Next
Loop Until (Inhalt = "")
End Function "