Eingabemaske Datumsproblem
14.11.2006 17:43:36
Achi
vielleicht kann mir jemand Helfen, ich sitze seit 3 Tage fest und komme nicht weiter.
Habe eine eigene Eingabemaske, sie besteht aus 7 Eingabefelders. Das erste Eingabefeld ist ein Dropdownfeld und übernimmt das Datum aus der festgelegten Datumsspalte A2 bis A366. Im 2 Feld, wird das ausgewählte Datum übernommen, in den restlichen Feldern werden die eigentliche Werte eingegeben. Die Eingabe funktioniert problemlos, aber beim abspeichern werden die eingegebenen Werte nicht in die Zeile die dem Datum zugewiesen worden sind, sondern am Ende des Tabellenblatts angefügt, außerdem wir das Datum in Normalen Textformat konvertiert.
Habe den Code mal angegeben, vielleicht schafft es einer den Fehler zu finden und ev. korrigieren,
ich wäre sehr dankbar dafür
Gruß Achi
Option Explicit
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
UserForm_Initialize
End If
End Sub
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1) = TextBox1
Cells(xZeile, 2) = TextBox2
Cells(xZeile, 3) = TextBox3
Cells(xZeile, 4) = TextBox4
Cells(xZeile, 5) = TextBox5
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Columns("B:F").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
UserForm_Initialize
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "neue Person hinzufügen"
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub
Anzeige