ich habe folgendes Modul:
Sub Zahl()
Application.ScreenUpdating = False
Dim Zahl(6)
Range("A3:A52").Select
With Selection
.Borders(xlLeft).LineStyle = xlNone
.Borders(xlRight).LineStyle = xlNone
.Borders(xlTop).LineStyle = xlNone
.Borders(xlBottom).LineStyle = xlNone
.BorderAround LineStyle:=xlNone
.Interior.ColorIndex = xlNone
End With
Range("A1").Select
For zähler% = 1 To 1
Randomize Timer
nochmal:
Zahl(zähler%) = Int((50) * Rnd + 1)
Cells.Find(What:=Zahl(zähler%)).Activate
Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
If Selection.Interior.ColorIndex = 35 Then GoTo nochmal
With Selection.Interior
.ColorIndex = 17
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next zähler%
End Sub
Ich möchte dieses Modul jetzt mi einer Schaltfläche auf dem Tabellenblatt 1
starten können.
Die Zahlen 1 bis 50 liegen aber auf dem Tabellenblatt 2 in Zelle A3 bis A52.
Die zufällig ermittelte Zahl möchte ich dann in einer Textbox auf der ersten Tabelle angezeigt bekommen. Wie ist das möglich? Leider habe ich kaum Ahnung
Gruss
roneburger