Option Explicit

Private Sub CommandButton1_Click()
DokuNr.Hide

End Sub

Sub Hinzufuegen_Click()

'Erste freie Zeile ausfindig machen
Dim last As Integer
Worksheets("Tabelle2").Activate
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Dim Doku As Integer

'4stellige Nr
Cells(last, 1).Value = Nr

'Text1
Cells(last, 3).Value = Text1

'Text2
Cells(last, 2).Value = Text2

'Text3
Cells(last, 4).Value = Text3

Text1= ""
Text2= ""
Text3= ""


 ActiveWorkbook.Worksheets("Tabelle2").ListObjects("TAB1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Tabelle2").ListObjects("TAB1").Sort.SortFields. _
        Add2 Key:=Range("TAB1[[#All],[Nummer]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle2").ListObjects("TAB1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub

Hallo zusammen,

ich muss hier eine Datenbank mithilfe einer Userform pflegen. In der Userform habe ich 4 Textboxen eingefügt. Dort soll eine 4 stellige Nummer eingegeben werden, und drei Texte in Textboxen. Danach soll die Datenbank nach der 4 stelligen Nummer sortiert werden. Wenn ich dann alles eintrage und auf Hinzufügen klicke, wird auch alles eingetragen in die Datenbank. Allerdings steht bei der 4 stelligen Nummer in der Datenbank immer 0, anstatt der eingegebenen Zahl. Anschließend werden die Textboxen geleert.

Ich füge hier den Code ein: 

Hat jemand eine Idee woran das liegen könnte?