Function zähler()
'Autor: Heiko Hommes
'Datum:
'Beschr: hier wird ein feld fortlaufend gefüllt
'        entweder aufsteigend 1  oder absteigend 2
'        Startwert eingebbar und ebenfalls die Schrittweite

Dim db As Database
Dim rs As Recordset
Dim feld As Field
Dim zaehler%
Dim i%
Dim tabname$
Dim feldname$
Dim start%
Dim schritt%
Dim updownkz$

On Error GoTo fehler:

tabname = InputBox("Bitte Tabellenname eingeben (Groß/Klein- Schreibung beachten!!): ")
feldname = InputBox("Bitte Feldnamen eingeben (Groß/Klein- Schreibung beachten!!): ")
start = InputBox("Bitte Startwert eingeben: ")
schritt = InputBox("Bitte Schrittweite eingeben: ")
updownkz = InputBox(" 1 = für vorwärts     2 = für rückwärts")

Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset(tabname)
Set feld = rs.Fields(feldname)
i = start

If updownkz = 1 Then
    rs.MoveFirst
    Do While Not rs.EOF
        rs.Edit
        rs.Fields(feldname).Value = i
        i = i + schritt
        rs.Update
        rs.MoveNext
    Loop
Else
    If updownkz = 2 Then
        rs.MoveFirst
        Do While Not rs.EOF
            rs.Edit
            rs.Fields(feldname).Value = i
            i = i - schritt
            rs.Update
            rs.MoveNext
        Loop
    Else
    msgbox ("Falsches KZ einegebn:")
    Exit Function
    End If
    
End If
msgbox ("Habe fertig!!!!!!!!!!!!!")
Exit Function

fehler:
    msgbox ("Fehler")
    Exit Function
End Function