Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zahlengenrator

zahlengenrator
04.07.2002 15:00:42
micha.xls
hallo,
ich würde mich eher als fortgeschrittenen Excel-Laien bezeichnen. VBA-Programmierung beherrsche ich (noch) nicht. Was ich brauche, ist ein Zahlengenerator, der mir z.B. siebenstelige Zahlen nach Vorgabe generiert. 2 Vorgaben sind: letzte Stelle muß einer bestimmten Zahl entsprechen, die Quersumme der generierten Zahl muß einem bestimmten Ergebnis entsprechen.
Kann mir irgendjemand helfen??

Herzlichen Dank im voraus!!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zahlengenrator
04.07.2002 18:15:19
Coach
Hallo Micha,

mit folgenden Funktionen kannst Du das beliebige Zahlen nach diesem Schema erzeugen:
Public Function zme(ByVal Start, Ende, LetzteZiffer, Zielquersumme) As Variant
Dim help As Long
If (Start >= Ende) Or (LetzteZiffer > 9) Or (LetzteZiffer < 0) Then
zme = "Fehlerhafte Vorgabe"
Exit Function
End If
Do
help = CLng((Start + Rnd * (Ende - Start)) / 10) * 10 + LetzteZiffer
Loop Until (qs(help) = Zielquersumme)
zme = help
End Function
Function qs(ByVal zahl As Long) As Long
Dim i, Erg As Long
Dim s As String
Erg = 0
s = CStr(zahl)
For i = 1 To Len(s)
Erg = Erg + CInt(Mid(s, i, 1))
Next
qs = Erg
End Function

Aufruf z.B. mit =zme(1000000,9999999,5,35)

Wenn die Zahl bei jeder Berechnung neu erzeugt werden soll,
einfach nach der Functionzeile application.volatile ergänzen.

Gruß Coach

PS: Die Funktion beinhaltet keine Überprüfung, ob die Zielquersumme machbar ist mit den Vorgaben, kann deshalb "ewig" laufen.


Anzeige
Re: zahlengenrator
05.07.2002 16:56:01
micha.xls
hallo coach,

der Zahlengenrator funktioniert noch nicht. Gibt ein Problem entweder mit der Funktion ODER meiner Eingabe. Wäre Dir dankbar, wenn Du Dich mal unter michael-henters@web.de melden würdest!!

DAnke

Gruß micha.xls

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige