vieles durfte ich bereits lernen in diesem forum und vieles ist noch unbekannt...
nachstehenden code habe ich in einer userform. nun möchte ich bevor die werte in die betreffenden spalten eingetragen werden eine überprüfung ob die neu eingegebene (in die userform) wert-konstellation bereits vorhanden ist. ist dies der fall soll der eintrag nicht übernommen werden stattdessen eine meldung erscheinen.
kann mir jemand weiterhelfen? wäre super.
Gruss Andreas
Private Sub CommandButton1_Click()
'vor dem eintragen der daten wird nachgefragt, ob alles richtig ist'
Dim mldg, stil, titel, grc
mldg = "Alles richtig eingetragen ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
'daten werden ins tabellenblatt eingetragen'
Sheets.Select
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Value = TextBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox5.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox4.Text
ActiveCell.Offset(0, 1).Range("A1").Select
'textbox wieder leeren
TextBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Call UserForm_Initialize
End Sub