Office: Zufallszahl

Schalom,

ich hab da nen Problem ....
vllt. bzw. wahrscheinlich kann mir einer helfen.
Es dreht sich um folgenedes. Ich möchte eine Zufallszahl generieren, zwischen 1 und 10 liegt. Soweit kein Problem. Egal ist auch ob die Zahl shcon vorhanden ist. Nur möchte ich, das sich die Zufallszahl nur dann verändert wenn ich EINE bestimmte Taste drücke. Im moment kann ich nähmlich die zufallszahl evrändern indem ich drücke:
entf,F9, eine zahl oder buchstabe eingebe und enter drücke.

Hoffe, einer von euch kann mir weiterhelfen.

Lg der Wetterfrosch

 

Schalom imcha,

Du wirst wahrscheinlich in einer Zelle die Formel
=ZUFALLSZAHL()*9+1
stehen haben, die bei Änderungen im Arbeitsblatt eine Neuberechnung bewirkt.
Nur sind Deine speziellen Wünsche in Excel nicht so leicht zu erfüllen, denn Änderungen aufgrund von eingegebenen Daten werden von Excel erst nach Drücken der ENTER-Tasten zur Kenntnis genommen.

Aber behelfsweise ist es schon möglich: man muss ins Arbeitsblatt ein Objekt einfügen, das auf das KeyPress-Ereignis reagiert und in dieses fokussierte Objekt Tasteneingaben machen, die dann per VBA-Makro eine Berechnung des Arbeitsblattes bewirken:

1) Über die Multifunktionsleiste Tabulator 'Entwicklertools', Gruppe 'Steuerelemente', Button 'Einfügen' das ActiveX-Steuerelement für die 'TextBox' auswählen.
Es erscheint ein kleines Fadenkreuz, mit dessen Hilfe das TextBox-Objekt an passender Stelle im Arbeitsblatt gezeichnet werden kann.
2) Es müsste in der Formeleditorzeile die Formel
=EINBETTEN("Forms.TextBox.1";"")
erscheinen, und links davon der Name 'TextBox1'.
Die gerade gezeichnete Textbox müsste noch von den 8 Mausziehpunkten umgeben sein.
3) Auf dieses Objekt einen Rechtsklick mit der Maus machen, im erscheinenden Kontextmenü 'Code anzeigen' auswählen.
Dadurch gelangt man in den VBA-Editor und der Cursor müsste in einer Sub zur Behandlung des Change-Ereignisses des TextBox1-Objektes stehen.
4) Den Cursor unterhalb des letzten Codes positionieren, das folgende Makro mit der Maus markieren, die Tastenkombination Strg+C drücken, um es zu kopieren:

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Application.Calculate
End Sub

Zurück in den VBA-Editor wechseln an vorhin genannte Cursorposition, dort die Tastenkombination Strg+V drücken, um das Makro einzufügen.
5) Daraufhin wieder in Dein Arbeitsblatt wechseln, dort in der Multifunktionsleiste Gruppe 'Steuerelemente' den Button 'Entwurfsmodus' ausschalten. Dadurch kann man das Textbox-Objekt mit der Maus auswählen, sodass der Texteingabe-Cursor im Objekt zu blinken beginnt.
Gibt man jetzt dort beliebigen Text ein, aktualisiert sich bei jedem Tastendruck (Zeichen/Ziffern-Tasten) die Zelle mit der Zufallszahlformel.

 

Danke Danke.
Funzt igr wie trootzdem nich^^
ich versuchs aber weiter :D

Wetterfrosch

 

Hallo!

Tja, welche denn?
Praktischerweise sollte dies ja wohl eine Taste sein, die keine sonstigen (gravierenden) Änderungen nach sich zieht, oder?

Es gibt die sogenannte OnKey-Methode (weiteres in der VBA-Hilfe von Excel):
Diesen Code in ein Modul:

Code:

Sub MachMalZufall()
ActiveSheet.Range("M1") = Rnd * 9 + 1
End Sub

Er ändert den Wert in M1 zu =ZUFALLSZAHL()*9+1
Dann noch diesen Code in "DieseArbeitsmappe":

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnKey "^ü", "MachMalZufall"
End Sub

Beim Drücken von Strg+ü ändert die Zelle ihren Eintrag.

 

fette sache...
geht :D
dange dange an alle helder.....

LG wetterfrosch

 

HELDER????

Soll das nun "HELFER" oder "HELDEN" heißen? :mrgreen: :mrgreen: :mrgreen:

 

etwas von beidem :D

wetterfrosch...