Office: Werte überprüfen ob natürliche Zahl

Hallo.

Ich will überprüfen ob der Wert in Zelle D2 und E2 eine natürliche Zahl ist.
Bisher mache ich das folgender Abfrage:
Code:

Da ich aber diese Abfrage für ca. 50.000 Werte machen muss, dauert das ziemlich lange.
Nun meine Frage:
Kann man diese Abfrage auch schneller ohne Rechenoperation machen?

Danke!

:)

 

HAllo

Das sieht doch schlüssig aus.
Warum willst du das ändern?

Theoretisch (weil ungetestet) müsste auch sowas gehn.
Teste du mal:

ransi

 

Hallo roll4ever,

lies die Daten in ein Datenfeld ein und prüfe im Datenfeld, statt in den Zellen.

Deine Prüfung lässt aber auch negative Zahlen und die 0 zu, nicht nur die Natürlichen Zahlen. Eine Prüfung auf Natürliche Zahlen könnte zum Bespiel so aussehen (Beispiel anhand von B2):

Code:

Gruß Ingolf

 

Danke erstmal für eure Antworten.

Da ich von VBA nicht soooo viel Ahnung habe:
Wie funktioniert das mit dem Datenfeld?

Danke euch!

 

HAllo
Ich sehe grade das du deinen Eingangsost editiert hast.
Damit erübrigt sich meine Frage nach dem Warum.

If Bedingung1 And Bedingung2 And Bedingung3 And Bedingung4 Then mach was

ist immer langsamer als sowas:



If Bedingung1 Then
If Bedingung2 Then
If Bedingung3 Then
If Bedingung4 Then
Mach was
End If
End If
End If
End If


ransi

 

Habe es jetzt so probiert, ist immer noch erschreckend langsam.
Wie fnktioniert das denn mit der Prüfung im ARRAY?

Danke!

 

HAllo

Der Code ist eigentlich recht flott.

Das Problem liegt bestimmt hier:

.Range("E" & H).Value = .Range("B2").Value

Weil jedes mal wenn diese Zeile abgearbeitet wird, wird ausgelöst:

1 Neuberechnung
1 Bildschirmaktualisierung
wenn vorhanden:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_Calculate()


DAgegen kannst du nz.B so angehen:
Option Explicit

Public Sub test()
'Deklarationsteil
Dim AppCalc
Dim AppScreen
Dim AppEvent
On Error GoTo ende
With Application
'Einstellungen merken
AppCalc = .Calculation 'Berechnungsmodus
AppScreen = .ScreenUpdating 'Bidschirmaktualisierung
AppEvent = .EnableEvents 'Ereignissmakros
'Bremsen Abschalten
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
'##################################
'Hier dein Code rein
'##################################
ende:
'Einstellungen auf die gemerkten Werte zurücksetzen
With Application
.Calculation = AppCalc
.EnableEvents = AppEvent
.ScreenUpdating = AppScreen
End With
End Sub

KAnnst du uns mal eine anonymisierte Beispieltabelle zukommen lassen ?

ransi

 

Klar,
bitte schön.

In A2 sollen die Werte von 10 bis 60 in 0,01 Schritten (oder noch kleiner) geschrieben werden.
In B2 wird mit A2 ein Wert berechnet, der dann in C2 und D2 für Berechnung verwendet wird.
in E2 - E? sollen dann Werte (entsprechende A2-Wert) geschrieben werden die die Bedingung:
C2 und D2 sind ganze Zahlen!
Das kopieren macht er auch nicht, hab da wohl nicht nur einen Fehler.

Danke für eure Mühe.

 

Hallo roll4ever,

wozu überhaupt die Ausgabe in A2, B2 und C2. Rechne doch gleich in VBA. Folgendes Makro läuft im Bruchteil einer Sekunde durch. Allerdings wird bei 5000 Schleifendurchläufen weder für die Teilungszahl nb noch für die Teilungszahl nh auch nur ein einziges Mal ein ganzzahliger Wert ermittelt, so dass in Spalte E kein einziger Wert ausgegeben wird. Das ist auch nicht weiter verwunderlich, schließlich fließt bei beiden Werten die Kreiszahl Pi mit ein. Ich fürchte, da steckt noch ein Denkfehler deinerseits drin.

 

Erstmal vielen Dank für den Code!

Es reicht mir schon wenn die Zahl auf zwei Nachkommastellen gerundet ganzzahlig ist, hab nicht dran gedacht das ich das auch beachten muss.
Wie kann ich das denn vor der "Kontrolle" noch erreichen?

Danke!

 

Hallo roll4ever,

ok, mit Prüfung bis zur 2. Nachkommastelle habe ich jetzt 3 Werte ausgewiesen bekommen. Hier das Makro:

 

Vielen Dank Ingolf,

hab ich auch, allerdings habe ich wohl noch einen "ordinären" Rechenfehler da drin, wobei das so simpel ist das ich nicht weiß wo.
Aber ansonsten ist das genau das was ich brauche.

Vielen Dank!*Smilie

PS: Wenn noch wer ein paar gute Tipps zu Comboboxen hat (*frown.gif* ), her damit!

Schönes Wochenende!

 

Glaube das ich meinen Fehler gefunden habe!!!

Melde mich gleich.

 

Ich habe mir die falsche Spalte ausgeben lassen!*mad.gif*
Hoffentlich kommt das Wochenende schnell!

Vielen Dank für eure Hilfe!!!!!!!