Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UF Probleme

UF Probleme
22.07.2008 06: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
Anzeige
AW: UF Probleme
22.07.2008 08: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


Anzeige
AW: UF Probleme
22.07.2008 14:50:42
Klausi
Hallo Christian
danke für deine schnelle hilfe. Klappt super.
Gruß Klausi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige