Wie würde man in Vba eine randomize zahl zwischen 1 und 5 bestimmen bzw. wie würde der Quell code lauten?

1 Antwort

Vom Beitragsersteller als hilfreich ausgezeichnet

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

18.11.2021, 10:04

Du kannst die Worksheet-Function nehmen oder die Rnd-Funktion.

Sub optimierer()
  Randomize
  [A1] = Int(Rnd() * 15 + 1)
  [A2] = WorksheetFunction.RandBetween(1, 15)
End Sub

Woher ich das weiß:Berufserfahrung – Programmierer

InfoNeurd

22.05.2023, 23:46

Schaue doch gern mal hier: https://www.docdroid.net/JZTASby/aufgaben-programmiercodes-javascript-mit-losung-pdf

Suboptimierer

23.05.2023, 00:23

@InfoNeurd

Es geht hier doch um VBA und dem Zufallsgenerator. Wo finde ich das denn in deinem Skript?

IchMalWiederXY

18.11.2021, 19:05

Kleiner Tippfehler? Zwischen 1 und 5 nicht 15...

Suboptimierer

18.11.2021, 20:30

@IchMalWiederXY

Das zeigt, dass du es verstanden hast.

Ähnliche Beiträge

Excel VBA -> Spalten- und Zeilenlängen und Schriftgröße bestimmen

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

...zum Beitrag

Excel Datei nicht speicherbar machen Vba?

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

...zum Beitrag

Letzte Ziffer einer Zahl ermitteln?

Ich möchte die letzte Ziffer einer Zahl in einer Zelle ermittel! z.B. 123456789. In dem Bsp. die 9. Dafür brauche ich einen VBA Code.

...zum Beitrag

VBA Find Methode findet nur Zahlen 1 bis 9, nicht >10 (falscher Datentyp?

Hallo Zusammen,

wieder eine VBA Frage meinerseits:
Ich vermute, dass es bei folgender Zeile zu einem Problem kommt, wenn Zahlen >9 gefunden werden sollen:
stunden = Worksheets("Tabelle2").Cells(ActiveCell.Row, Range("1:1").Find(eingabe).Offset(0, 0).Column)

"stunden" und "eingabe" sind jeweils als double definiert.
Bei den zahlen 1-9 habe ich meinen Code bisher probiert, aber ab 10 kommt es zum Crash und an der Zelle steht, dass folgende Meldung: "ein in der Formel verwendeter wert ist vom falschen Datentyp"

Vielen Dank für jede Antwort bereits im Voraus!
Liebe Grüße Leo

...zum Beitrag

Excel Zufallszahlen ohne Wiederholung mit VBA (Lottogenerator)?

Hallo! Ich probiere mich derzeit an Excel aus und möchte mit VBA einen Zufallsgenerator machen. Nun habe ich das Problem, dass die Zahlen sich manchmal wiederholen. Das würde ich gerne verhindern. Hier mein Code:

Sub ZufallDoppelSort()
  reihe = 1 
  spalte = 1
  Randomize Timer
  For zahlen = 1 To 6 
    zfz = Int((49 * Rnd) + 1) 
    Cells(reihe, spalte) = zfz 
    reihe = reihe + 1 
  Next zahlen
End Sub

Leider finde ich bei Google nichts das mir hilft.

...zum Beitrag

Microsoft Access Umlauten automatisch ändern, auch im Vba Code?

Hallo,

Ich musste von einem Ausgeschiedenen Kollegen eine grosse Access Datenbank mit vielen selbst programmierten Funktionen ändern.

Nun hatten wir das Problem das bei Englisch sprachen Kollegen die Datenbank nur Fehler macht aufgrund der verwendeten Umlaute (in Formulare, Abfragen.... selbst in den Vba Codes sind Umlaute enthalten)

Gibt es eine Möglichkeit diese sozusagen automatisch oder mittels Vba Code oder sonstiges auf ae statt ä zu ändern?

...zum Beitrag

Word VBA bestimmten Text fett anzeigen?

Hallo zusammen,

bei meiner Frage vor einigen Tagen (https://www.gutefrage.net/frage/text-mittels-checkbox-in-word-einblenden-vba-macros) habe ich erfahren, wie man per VBA Text durch Checkboxen anzeigen lassen kann.

Es handelt sich hier allerdings nicht um einzelne Wörter, sondern um ganz Absätze, die einer gewissen Formatierung bedürfen. Gibt es eine Möglichkeit, den Code im VBA-Editor so zu verändern, dass einzelne Worte fett oder unterstrichen angezeigt werden?

Herzlichen Dank im Voraus für hilfreiche Antworten!

...zum Beitrag

Excel Kopfzeile schützen ohne VBA Code zu blockieren?

Hallo zusammen,

will die Kopfzeilen meiner Excel-Tabellen schützen. Das Problem ist, dass ich einen VBA Code laufen haben, der nun nicht mehr funktioniert, wenn ich die Kopfzeile durch ein Passwort schütze. Gibt es eine Möglichkeit dies zu umgehen?

Mein Ziel: Kopfzeilen schützen, aber dennoch VBA Codes nutzen oder beispielsweise Kopfzeilen (Spalten) ein- bzw. ausblenden können.

Hilfe!!!

...zum Beitrag

Excel Vba Selbstzerstörung?

Hallo zusammen,

gibt es einen Vba Code welche eine Selbstzerstörung beinhaltet. Dabei sollen alles was in der excel Datei ist gelöscht werden.

danke im Voraus !

...zum Beitrag

Excel VBA Code in Hyperlink einfügen?

Hi, ich möchte in meiner Excel Liste einen hyperlink erstellen, der beim betätigen eine vba ausführt, ist das möglich?

...zum Beitrag

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zum Beitrag

Excel VBA: Alle Dateien in einem Ordner nacheinander (sequentiell) aktualisieren?

Hallo liebe Excelprofis,

bislang habe ich es nur hingekriegt, via VBA eine Datei zu öffnen, die dortige Datenabfrage zu aktualisieren und wieder zu schließen:

Sub UpdateExcelFile()
  Dim wb As Workbook
   
  Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Desktop\Ordner der Testabfragen\Testabfrage 1.xlsx")
  ActiveWorkbook.RefreshAll
  Application.CalculateUntilAsyncQueriesDone 'VBA-Code warten lassen, bis die Aktualisierung abgeschlossen ist
  wb.Save
  wb.Close
End Sub

Nun habe ich aber nicht nur eine Datei in dem (definierten) Ordner, sondern mehrere, die genauso wie oben geöffnet, aktualisiert und geschlossen werden sollen. Eine exakte Zahl kann ich nicht nennen, da es fortlaufend immer mehr Dateien werden. Allerdings befinden sich in dem Ordner nur xlsx-Dateien.

Aus Performancegründen möchte ich die Dateien hintereinander und nicht gleichzeitig bearbeitet haben. Der Beispielordner bleibt derselbe (Ordner der Testabfragen). Idealerweise folgt eine Mitteilung zum Ende, wenn die letzte Datei im Ordner wieder geschlossen wurde. Wie würde der Code dafür lauten?

Vielen Dank für eure Unterstützung!

...zum Beitrag

Wie erstelle ich einen Prozentwert Rechner in VBA (Excel)?

Moin ich habe ein Problem und zwar ist es so, dass ich einen Rechner erstelle möchte der die Zahl in Textfeld 1 x die Zahl in Textfeld 2 / die Zahl in Textfeld 3 nimmt und das Ergebnis dann in Textfeld 4 schreibt , wenn man auf einen Commandbutton drückt . Also Zahl1 x Zahl2/ Zahl3 = Zahl 4. Die Oberfläche hab ich schon gemacht

...zum Beitrag

Excel VBA -Code für Fortlaufende Nummerierung?

Hallo, ich suche einen Excel VBA-Code der mir eine fortlaufende Nummerierung einfügt. Beginnend bei B8 soll er in der selben spalte bleiben und immer 1 weiter runter zählen. Wäre für jede Hilfe sehr dankbar.

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen