bin in Sachen VBA nicht so fit und suche hier Hilfe
Ich gebe in einer Form mit 8 TextBoxen werte ein, die in Tabelle1 später übertragen werden.
In Textbox1 gebe ich ein Datum ein...alle anderen TextBoxen bekommen ganze Zahlen.
Das Übertragen der Werte klappt.
Nun möchte ich aber verhindern, das ein schon vorhandenes Datum noch einmal in der Tabelle gespeichert wird.
Es müsste also ein Prüfung in meinem Code, wo vorab geprüft wird ob in der Tabelle1 das Datum schon vorhanden ist und ich das speichern so abbrechen kann oder ein neues Datum eingeben kann?
mein Code ohne diese Funktion sieht so aus:
Private Sub CommandButton1_Click()
'Daten in Tabelle schreiben
Dim source As Variant, destination As Variant
source = Array(CDate(TextBox1.Text), CDbl(TextBox2.Text), CDbl(TextBox3.Text), CDbl( _
TextBox4.Text), CDbl(TextBox5.Text), CDbl(TextBox6.Text), CDbl(TextBox7.Text), CDbl(TextBox8. _
Text))
'IsError(Value(TextBox1.Text), -1)
Set destination = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, _
UBound(source) + 1)
destination.Value = source
MsgBox "Daten gespeichert.", vbInformation, Tag
End Sub
Ich hoffe es hat hier jemand eine Lösung für mich?
Danke vorab.
Gruß Michael