|
Hallo Ralf
Ich danke dir herzlich für deine Antwort und die Zeit, die du dir genommen hast.
Ich habe es angeschaut, aber leider verstehe ich deine Programierung nicht. Ich bin wirklich ein absoluter Neuling was VBA betrifft.
Wie ich sehe hast du andere Codes verwendet, als ich. (Ich habe meine durch irgendwelche Tutorials im Netz gefunden und etwas zusammengebastelt.
Ich würde gerne den Eintrag löschen können oder wenn ich direkt in die Texboxes schreibe diesen Eintrag ändern und gleich speichern lassen.
Wäre es möglich diese zwei ("Eintrag löschen" und "Änderungen speichern") Programmierungen in mein vorhandenes Projekt einzubinden?
Ich danke tausendmal
LG Diana
Private Sub ComboBox1_Change()
On Error GoTo EERR
Dim AAAZ As Long
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
If ComboBox1.Value <> "" Then
AAAZ = CDbl(Tabelle2.Range("A2:A5002").Cells.Find(What:=ComboBox1.Value, lookat:=xlWhole).Row)
TextBox1.Value = Tabelle2.Cells(AAAZ, 2).Value
TextBox2.Value = Tabelle2.Cells(AAAZ, 3).Value
TextBox3.Value = Tabelle2.Cells(AAAZ, 4).Value
TextBox4.Value = Tabelle2.Cells(AAAZ, 5).Value
TextBox5.Value = Tabelle2.Cells(AAAZ, 6).Value
End If
Exit Sub
EERR:
ComboBox1.Value = ""
End Sub
Private Sub UserForm_Initialize()
On Error GoTo EERR
With UserForm1
.Height = 450
.Width = 650
End With
Tabelle2.Activate
With Tabelle2
ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
Exit Sub
EERR:
End Sub
|