Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallszahl

Zufallszahl
07.07.2003 16:40:11
Thomas
wie kann ich Farben durch Zufall zuteilen?
A1 gelb
A2 blau
A3 grün
A4 rot
A5 weiß
A6 ? wie kann ich durch Tastendruck durch Zufall die obengenannten Farben in Zelle A6 erscheinen lassen ?

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

Betreff
Datum
Anwender
Anzeige
AW: Zufallszahl
07.07.2003 18:10:22
L.Vira 

Sub Farbe()
Dim F As Byte,Z as long
for Z = 1 to 6
randomize
F = Int((6 * Rnd) + 1)
cells(z,1).Interior.ColorIndex = F
next
End Sub


AW: Zufallszahl
07.07.2003 17:36:46
ChrisL
hi Thomas
Nachstehendes Makro färbt die aktive Zelle zufällig ein. Das Makro kannst du auch einer Tastenkombination zuordnen.
Option Explicit

Sub Zufallsfarbe()
Dim Zahl As Byte
Start:
Zahl = Int((6 * Rnd) + 1)
If Zahl = 1 Then GoTo Start
ActiveCell.Interior.ColorIndex = Zahl
End Sub

Gruss
Chris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige