doppelte suchen
22.01.2014 18:08:15
Dieter_B
Ich brauche mal Euere Hilfe:
Ich möchte in einer Tabelle prüfen, ob ein Wert schon enthalten ist.Hierzu kann ich folgendes Makro benutzen.
Private Sub cmdOK_Click()
Dim var As Variant
Dim intRow As Integer
var = Application.Match(CDbl(txtValue.Text), Columns(1), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = txtValue.Text
End If
End Sub
Mein Problem stellt sich in meier Vorgabe des Wertes, er besteht aus Zahlen und Sonderzeichen (Muster 123-456) hier bekomme Ich die Meldung "Laufzeitfehler 13"
Vielleicht kann jemand mein Problem beheben!
Vielen Dank im Voraus
DieterB
Anzeige