Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 10:11:19
Nur aktuelle und direkte Unterordnen durchsuchen
28.04.2024 10:01:02
Rang aus zwei Datumsspalten ermitteln
28.04.2024 09:02:18
Dateiordner auslesen
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganzzahliger Rest einer 10-stelligen Zah

Ganzzahliger Rest einer 10-stelligen Zah
25.06.2022 10:01:27
Rainer
Guten Tag,
bei folgender Berechnung erhalte ich die Fehlermeldung "Überlauf".
intRest = 6283131400 Mod 97
Wobei VBA mir nach der Eingabe der 10-stelligen Zahl die letzte Ziffer automatisch durch ein # ersetzt.
Der Restwert einer 9-stelligen Zahl läst sich mit dem "Mod-Operator" berechnen.
Ich nutze Excel365 mit 64 Bit.
Wo ist der Fehler?
Vielen Dank für hilfreiche Tipps.
Gruß Rainer H.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganzzahliger Rest einer 10-stelligen Zah
25.06.2022 10:36:44
Sigi.21
Hallo Rainer,
da stolperst du über den Datentyp "Long", denn MOD kann nur Longdaten (von -2.147.483.648 bis 2.147.483.647) verarbeiten!
Wenn du dies für größere Zahlen benötigst musst du was in VBA programmieren:
Bsp. bis Double:

Function Modulo(Zahl As Double, Div As Double) As Double
Application.Volatile
Modulo = Zahl - Div * Int(Zahl / Div)
End Function
Gruß Sigi
Anderer Ansatz
25.06.2022 11:14:44
RPP63
Moin!
Evaluiere die entsprechende Excel-Funktion:

intRest = [MOD(6283131400, 97)]
Willst Du den Modulo mit Variablen zusammenbauen, darfst Du [] nicht nutzen.
Dann lieber gleich die entsprechende VBA-Funktion:

inRest = Evaluate("=MOD(" & Zahl & "," & div & ")")
Gruß Ralf
und noch ein Zusatz:
Bei "richtig" großen Zahlen, bspw. 348^15, die die Rechengenauigkeit von Excel weit übersteigen, muss man Umwege gehen:

Function BigModulo&(Basis&, Exponent&, ModOp&)
Dim i&
BigModulo = 1
For i = 1 To Exponent
BigModulo = (BigModulo * Basis) Mod ModOp
Next
End Function
Sub Modulo()
MsgBox BigModulo(348, 15, 1357)
End Sub

Anzeige
AW: Anderer Ansatz
25.06.2022 12:13:08
Rainer
Hallo Ralf,
auch dir vielen Dank. Ich habe heute wieder sehr viel gelernt.
Liebe Grüße Rainer H.

65 Forumthreads zu ähnlichen Themen

VBA: gerade - ungerade Zahlen
Franz

Guten Morgen Fachleute,
nur ne kurze Frage: wie lautet bitte für VBA die Anweisung "gerade" bzw. "ungerade"? Ich muss abfragen, ob gerade in einer Zeile mit gerader bzw. ungerader Zeilennummer gearbeitet wird.
Danke schon mal und beste Grüße
Franz
18.12.2008 09:43:16
Thread-ID: 1033769
4 Beiträge
Anzeige
Wenn Zahl ungerade dann in Spalte B eine 1
Josef

Hallo!
Ich habe in der Spalte AF ca. 47000 gerade und ungerade Zahlen stehen. Ich möchte nun bei allen ungeraden Zahlen in der spalte rechts daneben eine 1 eintragen lassen. wie würde hier bitte eine VBA Lösung oder eine formel lauten?
Danke
Josef
14.07.2009 15:05:45
Thread-ID: 1088520
8 Beiträge
perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
Prüfen ob erste Zahl im Textbox eine 0
urmila

Hallo zusammen,
ich bitte um eure Hilfe.
Es soll in einer TextBox geprüft werden, ob die erste Zahl eine Null (0) ist, wenn nein, soll eine 0 und dann die restlichen Zahle eingefügt werden.
z.B gebe ich eine "7" ein, so soll automatisch die 0 hinzugefügt werden....also dann "07"
...
11.11.2010 13:39:15
Thread-ID: 1186288
4 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
VBA - Prüfen ob Schaltfläche vorhanden
WalterK

Hallo,
ich möchte prüfen, ob die Formularschaltfläche "WAHR" bereits vorhanden ist und dementsprechend eine MsgBox ausgeben. Irgendetwas klappt nicht, weiß aber nicht wo der Fehler ist. Option Explicit Sub Testmodul() Dim shShape As Shape With ActiveSheet If shShape.Name = "WAHR" Then MsgBo...
11.03.2012 15:44:26
Thread-ID: 1254585
8 Beiträge
0 oder 00 vor einer Zahl
Jäger

Hallo liebe Excelgemeinde,
ich versuche ein txt-File in Excel zu importieren.
In Spate D stehen "Zahlen", die aber mit 0 oder 00 beginnen.
Excel lässt die 0 weg was ja auch richtig ist es gibt keine Zahl die mit 0 beginnt.
Ich habe versucht die Spalte als Text zu formatieren...
27.06.2012 20:43:09
Thread-ID: 1269230
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
13
7
5
4
3
3
3
7
8
1
1
2
13
2
2
4
2
5
2
2
7
3
4
8