Vorhandene Zeilen aktualisieren
09.03.2004 22:40:10
Norbert
Ich habe da mal wieder ein Problem.
Eine UserForm1 hat eine TextBox1 für Eintragungen, eine ComboBox1 zur Auswahl eine TextBox2 für die Datumseingabe und eine Schaltfläche um die Daten an das Ende einer Tabelle zu schreiben. Der Code zur Übergabe der Daten in die Tabelle sieht als Beispiel etwa so aus:
Private Sub cmdSchaltfläche_Click()
Dim Zelle As Integer
Zelle = Range("A1").End(xlDown).Row + 1
If Zelle > 65000 Then Zelle = 1
Cells(Zelle, 1) = txtEintragungen.Text 'TextBox1
Cells(Zelle, 2) = cboAuswahl.Text 'ComboBox1
Cells(Zelle, 3) = txtDatum.Text 'Textbox2
End Sub
Nach betätigen der Schaltfläche soll geprüft werden, ob eine Zeile mit den gleichen Daten der TextBox1 und der ComboBox1 aber mit ältern Datum aus der TextBox2 schon existiert. Ist das der Fall soll nur das Datum des ältern Eintrages, nach Rückfrage, überschrieben werden.
Kann mir jemand weiterhelfen?
Gruss Norbert
Anzeige