Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe

Zufallszahlen ermitteln

Das folgende Makro ermittelt Zufallszahlen. Jede Zahl kommt dabei jedoch nur ein einziges Mal vor.
Sie geben beim Programmstart einfach die gewünschte Menge an Zufallszahlen an. Möchten Sie z. B. Zufallszahlen zwischen 1 und 20 ermitteln, dann erfassen Sie in der InputBox die Zahl 20.

Anschließend werden in Spalte B ab der Zelle B1 die Zahlen 1 bis 20 in zufälliger Reihenfolge aufgelistet, wobei jede Ziffer nur ein einziges Mal vorkommt. Es wird also ausgeschlossen, dass sich Zahlen wiederholen.

Public Sub zufallszahl()
Dim zahl(10000) As Integer
Dim zahlneu As Integer

anzahl = InputBox("Wieviele Zufallszahlen sollen ermittelt werden?")

'Zufallszahl 1 bis 28 ermitteln
For i = 1 To anzahl
zahl(i) = Int((anzahl * Rnd) + 1)
zahlneu = zahl(i)

    'Auf doppelte Zahlen prüfen und neue Zahl berechnen
    For n = 1 To i - 1
        If zahl(n) = zahlneu Then
          zahl(i) = Int((anzahl * Rnd) + 1)
          i = i - 1
        End If
    Next n

'Zahlen in Spalte B schreiben
Sheets(1).Cells(i, 2).Value = zahl(i)

Next i

End Sub

Drucken E-Mail

Relevante Artikel

  • Duplikate entfernen - Verschiedene Möglichkeiten

    Eine Häufige Fragestellung im Umgang mit Excel ist das Löschen von Duplikaten aus einer Liste. Im Beispiel liegt eine Liste mit doppelt oder...

  • Text in Kleinbuchstaben umwandeln

    Das folgende Makro wandelt den Text im markierten Bereich in Kleinbuchstaben um. Es werden allso alle Buchstaben als Kleinbuchstaben dargestellt....

  • Autofilter: Gefilterte Datensätze auslesen

    In diesem Artikel erläutern wir, wie sich der über einen Autofilter gefilterte Inhalt aus einer Liste auslesen lässt. Als Ausgangsbasis dient wieder...

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach dem durchlauf des...

  • Cells- zur Range-Schreibweise umwandeln

    Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1") umwandeln.   {code} Sub...

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok