Hallo Forum ich wollte mit meinem Quellcode überprüfen, ob in einem bestimmten Bereich jede Zelle Zahlen enthält und komme einfach nicht darauf was ich falsch mache und muss auch sagen das vba nich so wirklich meine Sprache ist, ein Denkanstoss und/oder Tipp wäre klasse:



Danke und schönen Tag allen.

Denke das ist der Fehler

Das in deiner Zeile 1 hatte ich ja schon editiert aber das wars wohl nicht.
Cell.Value kann schon eher sein, ich versteh nur nicht, im Direktfenster hab ich folgendes stehen:

1
2
3
4
5
6

8
9
10
11
12

sprich die Zelle in der nix is wird auch übersprungen aber in den Full-Block geht es nicht

Eine leere Zelle bekommt den Wert 0 und dieser ist Numeric.
Evtl. funzt eine Prüfung auf Nothing statt 0.?.

Naja wenn ich prüfen würde:



Könnte ich auch Buchstaben reinschreiben, es soll aber auf Zahlen überprüfen, 0 müssten auch möglich sein.
Verstehe ich dich falsch mit meiner Umsetzung?

DoSchwob schrieb:

Visual Basic-Quellcode

1. Sub Check()
2. With Sheets("Tabelle1")
3. MsgBox "Vollständig? " & Format( _
4. WorksheetFunction.Count(.Range("A1:A12")) = _
5. .Range("A1:A12").Cells.Count, "yes/no")
6. End With
8. End Sub

unkommentierte Sachen bringen mir und andere die das nich verstehen nich wirklich etwas ;), zu mal das so nicht geht.

Is Nothing funzt leider nicht. Aber das hier:


Oder als Funktion:

Alles klar vielen Danke alle, das hat mir sehr geholfen und ich hab was gelernt ^^.