funktion nicht definiert bei random

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Alfred,
deine Vermutung "Random mag keine Indizierung !" ist falsch.
Random hat mit Int() gar keine Probleme.
Aber dein Code ist völlig durcheinander.
Erst mal zu deinem Problem


"tip(i) = int....") die Fehlermeldung " sub oder function nicht definiert" daher. Mir ist echt  _
schleierhaft warum

Tja, Alfred, das liegt daram, weil du die Variable tip in der Sub zufall nicht definiert hast!
Ich finde nur in der Sub zu commandButton1_click die Definition Dim tip(7).
Aber lokal gültige Variablen müssen in jeder Sub neu definiert werden!
Das bedeutet, wenn du direkt unterhalb der Zeile


Sub zufall()
Dim tip(?) '?=die Zahl, die du da einsetzen willst

schreibst, kommt es auch nicht mehr zum Fehler "sub oder function nicht definiert".
In deiner sub zufall müsstest du Dim tip(45) schreiben, weil du ja einen Zufallswert aus 45 Zahlen haben willst.
Damit ist es bei deinem ganzen Code aber leider nicht getan.
Nach meiner Korrektur der Variablendefinition an der richtigen Stelle kommt es zu vielen weiteren Fehlermeldungen im Code, was aber eher mit schlechter Programmierung zu tun hat, als das VBA schuld ist :-)
Da es aber echt viele Fehler sind und ich auch dein Gesamtkonzept der Programmierung nicht verstehe, weiß ich leider auch keine Lösung für all deine Probleme in der Bsp-Datei.
Ich würde dir das hier vorschlagen:
1. erstell einen ganz neuen Thread, in dem du erst mal nur die Bsp-Datei MIT den Bsp-Tabellen zeigst, aber VBA-Code komplett! weg lässt
2. als erstes solltets du ganz genau beschreiben, was du erreichen möchtest und bei dem Code noch viel Hilfe benötigst, weil du noch Anfänger bist beim VBA-Programmieren
3. wenn die ersten 2 oder 3 Fragen in dem einen Thread beantwortet sind, erstell einen neuen Thread mit weiteren Fragen
(zumindest ich find es oft dreist, wenn jemand nach Antwort der Erst-Frage immer wieder reagiert mit "ich hab da noch diese Frage...." usw und einfach keine Ruhe gibt im aktuellen Thread)
Wie auch immer: Viel Erfolg weiterhin!!!!
Gib nicht auf - JEDER! hat mal ohne Plan angefangen - ich auch - und irgendwann habe ich dann aus dem "Lager der Fragenden" ins "Lager der Antworter" gewechselt :-)) - du kannst das auch schaffen...jeder kann das schaffen!
Ciao
Thorsten

Sub zufall() Dim tip(3 To 8) As Integer, f1 as Boolean, f2 As Boolean, f3 as Boolean, f4 As Boolean, i As _ Integer f1 = False: f2 = False: f3 = False: f4 = False 'fehlerflags zurÃ¼cksetzen For i = 3 To 8 'Zufallszahlen generieren (eine Zeile) Randomize Timer tip(i) = Int(45 * Rnd + 1) Debug.Print tip(i); Next i End Sub

Beliebteste Forumthreads (12 Monate)

funktion nicht definiert bei random

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

funktion nicht definiert bei random

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread