Thema Datum  Von Nutzer Rating
Antwort
Rot Datenbank mit Userform pflegen
 30.06.2022 09:06:35 Kim
NotSolved
30.06.2022 21:07:04 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Kim		 Datum:
30.06.2022 09:06:35		 Views:
357		 Rating:
     
Antwort:
  Ja
Thema:
Datenbank mit Userform pflegen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datenbank mit Userform pflegen
 30.06.2022 09:06:35 Kim
NotSolved
30.06.2022 21:07:04 ralf_b
NotSolved