Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganzzahliger Rest einer 10-stelligen Zah

Forumthread: 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.
Anzeige

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
Anzeige
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.
;

Forumthreads zu verwandten Themen

Alle Zahlen in einem Bereich x 1.04 rechnen
Peter

Guten Tag
Ich muss in verschiedenen Sheets die Zahlen in bestimmten Zellbereichen mal 1.04 rechnen.
Dazu wollte ich mir ein einfaches Makro basteln.
Doch anscheinend habe ich mir das zu einfach vorgestellt.
Ich möchte den Bereich markieren und dann das entsprechende Makro dazu a...
01.04.2009 14:35:10
Thread-ID: 1066013
14 Beiträge
Zeilennummer gerade oder ungerade?
Franz

Hallo Fachleute,
vielleicht nur ne Kleinigkeit, ich weiß nicht: wie kann ich im Worksheet.Change-Ereignis ermitteln, ob die Target.Row gerade oder ungerade ist? Geht das?
Danke schonmal und Grüße
Franz
04.03.2010 08:00:58
Thread-ID: 1143199
5 Beiträge
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
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
Zahlen in Tabellen überprüfen mit VBA
michael

HAllo.
In der Tabelle 3 stehen in jeder Zeile nebeneinander 3 Zahlen. Nun brauche ich ein Programm das zunächst feststellt in wievielen Zeilen diese Zahlen vorhanden sind. Dann soll für jede Zeile überprüft werden ob die 3 Zahlen aufsteigend sortiert sind(kleinste zuerst und dann größte. F...
07.02.2013 10:08:49
Thread-ID: 1298129
2 Beiträge
Zahlen in Tabellen überprüfen mit VBA
michael

HAllo.
In der Tabelle 3 stehen in jeder Zeile nebeneinander 3 Zahlen. Nun brauche ich ein Programm das zunächst feststellt in wievielen Zeilen diese Zahlen vorhanden sind. Dann soll für jede Zeile überprüft werden ob die 3 Zahlen aufsteigend sortiert sind(kleinste zuerst und dann größte. F...
07.02.2013 10:08:58
Thread-ID: 1298130
3 Beiträge
prüfen ob Eingabe Binärzahl ist
Uwe

Hallo zusammen,
hab mir eine UF gebastelt bestehend aus einem Textfeld und einem Command_Button.
Im Textfeld wird ein Binärcode eingegeben. Mit Click auf den CButton wird dieser in eine Dezimalzahl umgewandelt und im Label ausgegeben. Die Prüfung, ob die Eingabe nummerisch ist, hab ich...
12.10.2013 18:09:08
Thread-ID: 1334187
14 Beiträge
Anzeige
VBA Prüfen ob leer
flacus

Hallo,
ich brauche mal wieder Hilfe. Ich habe ein Makro, womit ich einen Seriendruck starte. Das klappt alles ganz gut, jedoch sollte er nicht drucken, wenn es leere Zeilen gibt. In meiner Beispiel Datei ist es das Modul 3, was nicht gedruckt werden soll.
Es soll also geprüft werden, ob...
25.10.2013 11:57:11
Thread-ID: 1335853
3 Beiträge
Anzeige
VBA: Überprüfen ob Zellen leer sind
Hans Egonschmidt
Hallo,
ich habe da eine etwas knifflige Aufgabe und komme nicht so recht weiter:
Ich soll im Zellbereich A1:A20 überprüfen ob die Zellen leer sind und in einer Messagebox dann ausgeben, wie viele Schleifendurchläufe und wieviele leere Zellen es gibt.
Bin bis jetzt so angefangen:
Op...
10.11.2014 17:36:15
Thread-ID: 1391509
5 Beiträge
Zahlen von einem Buchstaben in Excel trennen 200h
einem

Hallo liebe Gemeinde,
ich habe eine Spalte voller Zahlen mit jeweils einem Buchstaben hinten dran:
Beispiel:
200H
600H
650H
540H
95H
2801H
2500H
3250H
3799H
588H
2689H
2799H
Ich möchte aber das die Zahlen von den Buchstaben getrennt we...
18.12.2014 12:15:17
Thread-ID: 1398846
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige