Fehler in Makro
19.01.2016 09:53:33
Peter
benötige nochmals Eure Hilfe. Ich prüfe eine Textbox ob der Wert mit dem Wert einer
Tabelle übereinstimmt. Wenn nun in der Textbox eine gerade Zahl ohne Dezimalstellen steht alles o. k.. Da aber überwiegend Zahlen im Bereich 0,01 und höher existieren
entsteht ein Fehler. Ich weiss nun leider nicht, wie ich die Prüfzahl 1 in 0,.. ändern kann. Vielleicht wisst Ihr Bescheid.
Makro anbei:
Private Sub Eintrag_Briefmarkenwert_prüfen()
Dim X As Integer
Z = Sheets("Hilfstabelle").UsedRange.Rows.Count
'X = TextBox2
X = TextBox9
temp = 0
For i = 2 To Z
If Cells(i, 1) = X Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
'Unload Me
Zeile = i
Label11 = ""
Label11.Caption = Label11.Caption & _
"Briefmarkenwert existiert schon"
'MsgBox "Briefmarkenwert ist bereits vorhanden"
Else
Label11 = ""
Label11.Caption = Label11.Caption & _
"Briefmarkenwert existiert nicht"
'MsgBox "Briefmarkenwert ist nicht vorhanden", vbExclamation
' ComboBox3 = ""
End If
End Sub
Gruss Peter