Ich hab einen seltsamen Fehler. Vielleicht könnt ihr mir auf die Sprünge helfen.
In Zelle D8 im Worksheet "Übersicht" wird über diese Formel die Anzahl berechnet:
=ANZAHL(Andorra:Vatikan!F6:F150;Andorra:Vatikan!X6:X150;Andorra:Vatikan!AQ6:AQ150)
In einem UserForm-Code möchte ich nun prüfen, ob die Eingabe in einer TextBox größer ist als die Anzahl in Übersicht/D8. Das mach ich hiermit:
If VKBox1.Text > Worksheets("Übersicht").Cells(8, 4) Then
Mldg = MsgBox("Gibts nicht.", _
vbOKOnly + vbInformation, "Hinweis", "", 0)
If Mldg = 1 Then
Unload VKForm01
VKForm01.Show
End If
End If
Funktioniert eigentlich. Bei Zahlen größer D8 kommt die MsgBox.
Problem: Bei allen Zahlen kleiner 10 bekomm ich ebenfals die MsgBox.
Kann mir vielleicht jemand sagen warum? Das wär echt klasse...
Sonnige Grüße
Chris