ich trage über eine Userform die Kundendaten in eine Tabelle ein. Wenn dort der Kunde 'Albert Einstein' schon drinnen steht, möchte ich eine Meldung bekommen. Dazu habe ich eine Suchfunktion mit eingebunden (Danke nochmal an Gerd). Leider sucht die Funktion überhaupt nichts, bzw. ich bekomme keine Meldung (nicht einmal einen Fehler). Was hab ich denn nun schon wieder falsch gemacht?
Danke
Henri
Private Sub cmdEintragen_Click()
Dim fehler
Dim count, test
Dim var As Variant
Dim intRow As Integer
Sheets("Daten").Select
fehler = 0
var = Application.Match(TextBox7.Text, Columns(1), 0)
If (TextBox2 = "") Then
MsgBox ("Kein Ort eingetragen.")
fehler = 1
End If
If (TextBox6 = "") Then
MsgBox ("Kein Vorname eingetragen.")
fehler = 1
End If
If (TextBox7 = "") Then
MsgBox ("Kein Name eingetragen.")
fehler = 1
End If
If (TextBox8 = "") Then
MsgBox ("Keine Straße eingetragen.")
fehler = 1
End If
If (TextBox9 = "") Then
MsgBox ("Keine Postleitzahl eingetragen.")
fehler = 1
End If
If (fehler = 1) Then
Else
var = Application.Match(TextBox7.Text, Columns(1), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
count = 1
test = 0
While (test = 0)
If ((Cells((count + 3), 1)) = "") Then
test = 1
End If
count = count + 1
Wend
count = count - 1
Cells(count + 3, 1) = count
Cells(count + 3, 2) = TextBox6
Cells(count + 3, 3) = TextBox7
Cells(count + 3, 4) = TextBox8
Cells(count + 3, 5) = TextBox9
Cells(count + 3, 6) = TextBox2
End If
End If
Sheets("Eingabe Maske").Select
Unload Me
End Sub