UserForm zur Berechnung von Lotto Tipps in VBA

 Private Sub CommandButton1_Click()
Dim z As Integer [COLOR=Red]' Sollte eine String Variable sein weil der Inhalt der Textbox ein String ist[/COLOR]
Dim i As Integer
Dim strZwischen[COLOR=Red] As String  ' Muß kein Array sein[/COLOR]
Dim ergebnis As Integer '[COLOR=Red]Hier auch[/COLOR] [COLOR=Red]eine String Variable

[/COLOR] If TextBox2.Text = "" Then
    MsgBox ("Geben Sie unten bitte die gewünschte Anzahl der Tipps ein?")
    End ' [COLOR=Red]Aus dem End mach mal ein "Exit sub" dann bleibt die Anwendung offen und man kann dann direkt die Zahl eingeben.[/COLOR]
End If
z = TextBox2.Text
For i = [COLOR=Black]1[/COLOR] To z
    strZwischen = zufallszahlen_1(45)

'[COLOR=Red]Versuch das doch mal mit einer Listbox anstatt einem Textfeld1

list1.AddItem ("Tipp " & i & strZwischen)

[/COLOR]     ergebnis = ergebnis & " Tipp " & i & "--" & strZwischen(i) & Chr(13) & Chr(10) [COLOR=Red]' Wenn du eine Listbox nimmst brauchst du diese Zeile nicht[/COLOR]

Next

TextBox1.Text = ergebnis [COLOR=Red]' Die Zeile würde dann auch wegfallen[/COLOR]
End Sub

Private Sub Command1_Click()
 Dim zahltemp As String
 Dim druchgaenge As Integer
 
 On Error GoTo myErrHandler
 
 List1.Clear
 
 For druchgaenge = 1 To Text3.Text
    zahltemp = Zahlen
    List1.AddItem zahltemp
 Next druchgaenge
 Exit Sub
myErrHandler:
MsgBox ("Fast keine Fehlerbehandlung ;) Bitte Eingaben überprüfen!")
End Sub



Private Sub Command2_Click()
Unload Me
End Sub


Private Function Zahlen()
'Array für die gezogenen Lottozahlen
Dim Lottozahl() As Integer
'Sicherstellen, daß bei jedem Start wirklich
'eine neue Zufallszahl generiert wird
Randomize -Timer

'Insgesamt 6 Zufallszahlen ermitteln
Dim Ziehung As Integer
Dim i As Integer
Dim Result As Boolean
Dim Zahl As Integer

ReDim Lottozahl(Text4.Text)

Ziehung = 0


While Ziehung < Text4.Text
  Ziehung = Ziehung + 1
  Do
    'Zufallszahl 1..49
    Zahl = Int(Text2.Text * Rnd + 1)

    'Prüfen, ob Zufallszahl bereits "gezogen"
    Result = True
    For i = 1 To Ziehung - 1
      If Lottozahl(i) = Zahl Then
        Result = False: Exit For
      End If
    Next i
  Loop Until Result = True

  Lottozahl(Ziehung) = Zahl
Wend

'Lottozahlen anzeigen
Dim Msg As String

Msg = ""
For i = 1 To Text4.Text
  Msg = Msg & Format$(Lottozahl(i)) & "  "
Next i
Zahlen = Msg



End Function

Text1.Text = "Zwei Zeilen" & vbCrLf & "in einem Textfeld"