Datum

Titel

23.04.2024 11:26:57

Probleme mit tbl.Listrows.add

23.04.2024 10:55:14

Zeilen sortieren

23.04.2024 10:23:52

Tabelle 90° drehen + Filteroptionen

23.04.2024 10:11:03

Dateiname plus Wenn vorhanden dann "(1)" anhängen.

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1160to1164

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Prüfung auf ganze Zahl

Forumthread: Prüfung auf ganze Zahl
9 Beiträge zu diesem Forumthread
Anzeige
306 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Holger

Guten Morgen,
wenn ich eine Eingabe auf einen numerischen Wert prüfen will, verwende ich z. B. "If IsNumeric() ..." in meiner Prozedur. Aber was kann ich für die Prüfung nach einer Ganzzahl benutzen, wenn ich z. B. eine Dezimalzahl ausschließen will?
Im Archiv und in der VBA-Hilfe finde ich nichts brauchbares.
Gruß Holger

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Aber in meinen Programmen...

Luc:-?
AW: Aber in meinen Programmen...

Holger
Das rundet aber leider auf,...

Luc:-?
Bei mir nicht ;-)

Holger
Das kommt immer darauf an wie man's...

Luc:-?
Versteh ich nicht ...

xr8k2
Richtig! Ist nur 'ne Gewohnheit, die...

Luc:-?
@Luc : Kennt Dein PC kein INT(...) ;-) ?_oT

NoNet
Man muss auch mal auf etwas verzichten...

Luc:-?

Aber in meinen Programmen...

14.06.2010 09:48:12

Luc:-?

…Holger… ;-)
If xyz = CLng(xyz) Then oder besser If xyz = (xyz * 10) \ 10 Then…
Gruß Luc :-?

AW: Aber in meinen Programmen...

14.06.2010 10:04:35

Holger

Hallo Luc:-?,
auf CLng hätte ich auch selbst kommen können ;-)
Danke!
Gruß Holger

Das rundet aber leider auf,...

14.06.2010 13:50:09

Luc:-?

…Holger;
also besser die anderen Varianten oder 'ne entsprechende Worksheetfunction wie zB .RoundDown verwenden.
Gruß Luc :-?

Bei mir nicht ;-)

14.06.2010 13:56:10

Holger

Also "If Zahl = CLng(Zahl)" rundet bei mir nicht auf, sondern prüft nur. Aber ich habe trotzdem jetzt die Variante "If Zahl = Zahl \ 1" gewählt.
Gruß Holger

Das kommt immer darauf an wie man's...

14.06.2010 14:33:53

Luc:-?

…braucht, Holger,
beim Vgl spielt's sicher keine Rolle, denn da ist das Aufrunden egal. Alternativ wäre natürlich auch noch If (Zahl *10) Mod 10 = 0 Then bzw andersherum If CBool((Zahl *10) Mod 10) Then gegangen. Daran hatte ich wohl unterbewusst bei meinem Alternativvorschlag gedacht… ;-)
Gruß Luc :-?

Versteh ich nicht ...

14.06.2010 10:10:34

xr8k2

... warum so umständlich Luc?

If xyz = xyz \ 1 Then

wäre doch viel "durchsichtiger" ^^
Gruß,
xr8k2

Richtig! Ist nur 'ne Gewohnheit, die...

14.06.2010 13:47:25

Luc:-?

…Mod zusammenhängt, xr8k2,
das liefert im Ggsatz zu REST bzw MOD stets einen ganzzahligen Rest. Da wäre dann teilen durch 1 sinnlos. Habe ich dann auch auf andere Ganzzahl-Operationen übertragen…
Gruß Luc :-?

@Luc : Kennt Dein PC kein INT(...) ;-) ?_oT

14.06.2010 11:11:58

NoNet

_oT

Man muss auch mal auf etwas verzichten...

14.06.2010 14:09:39

Luc:-?

…können, NoNet… ;-)
Meine Methode ist universeller, denn Int fkt zwar auch mit Datum-/Zeit-Werten, wandelt die aber nicht um! Und an so etwas arbeite ich gerade…
Bsp: Eine in eine als Datum formatierte Zelle eingegebene 1 wird von VBA erst als 31.12.1899 interpretiert und dann auf den xlüblichen 1.1.1900 transferiert. Durch INT ändert sich daran nichts. Ich brauche aber die 1, um sie mit aktuellem Monat und Jahr zu ergänzen. Also bleibt nur CLng. Int wäre dann allerdings bei Now nützlich, wenn ich nur das Datum benötige. Daran erinnere ich mich dann aber nicht mehr immer, weil's ja \ auch tut.
Reicht das…? ;-)
Gruß Luc :-?