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?
|