UF Probleme

Forumthread: UF Probleme
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: UF Probleme

UF Probleme

22.07.2008 08:54:09

Klausi

Hallo Profis
ich habe hier im Forum einen Lottozahlengenerator grfunden. Jetzt wollte ich das Teil in eine UF einbinden und das ist voll daneben gegangen. In der Tabelle klappt alles. Ich hoffe ihr könnt mir helfen.
Gruß Klausi
https://www.herber.de/bbs/user/54046.xls

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UF Probleme

22.07.2008 10:12:00

ChristianM
AW: UF Probleme

22.07.2008 16:50:42

Klausi

AW: UF Probleme

22.07.2008 10:12:00

ChristianM

Hallo Klaus,
hier ein Beispiel für den Code der UF.
Gruß
Christian


Option Explicit
Private Sub CommandButton1_Click()
Dim iRnd As Integer, i As Integer
Dim iRes(6) As Integer
Randomize
For i = 1 To 7
iRnd = Int(49 * Rnd + 1)
Do Until IsError(Application.Match(iRnd, iRes, 0))
iRnd = Int(49 * Rnd + 1)
Loop
iRes(i - 1) = iRnd
Me.Controls("TextBox" & i) = iRnd
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Dim i as Integer
For i = 1 To 7
Sheets("Tabelle1").Cells(10, i) = Me.Controls("TextBox" & i).Value
Next
Unload Me
End Sub