Application.Worksheetfunction.CountBlank(..
Markus
ich habe eine Tabelle in der in einer Zelle eine laufende Nummer steht.
Dann habe ich noch eine Tabelle in der fortlaufend die nummern gespeichert werden. Jetzt möchte ich ein Makro, welches überprüft ob die laufende Nummer schon einmal da war, und wenn ja, eine Fehlermeldung erscheint.
mein Ansatz
....
a = Range("laufendeNummer").Value - 996 ' lfn Nr = 1000 entspricht Zeile 4
MsgBox a '4
Workbooks("Datenbank.xls").Worksheets("Datenbank 2004").Select
u = Application.WorksheetFunction.CountBlank(Range("B" & a & ":" & "O" & a))
MsgBox u 'er soll mir die leeren zellen zählen
If u < 14 Then
MsgBox "Die laufende Nummer ist schon vergeben!", vbCritical, "Fehler"
Exit Sub
End If
...
Jetzt sagt er aber immer u = 14 obwohl in den Zellen von B4:O4 werte enthalten sind. WARUM? Ich versteh es nicht!
Gruß
Markus