smog
Bekanntes Mitglied
- Dabei seit
- 04.10.2002
- Beiträge
- 116
- Reaktionspunkte
- 0
Hy Volks,
habe wieder mal ein Problem mit VBA, bin noch ein Anfänger also bitte nicht lachen.
Folgendes: Ich möchte eine UserForm erstellen bei der ich in ein Textfeld die Anzahl der gewünschten Lotto Tips eingebe und mir nach klick auf die Schaltfläche 6 aus 45 (Das is in Ö so) im Textfeld1 z.B 7. Tipps angezeigt werden.
Hab auch schon einen Code:
Private Sub CommandButton1_Click()
Dim z As Integer
Dim i As Integer
Dim strZwischen() As String
Dim ergebnis As Integer
If TextBox2.Text = "" Then
MsgBox ("Geben Sie unten bitte die gewünschte Anzahl der Tipps ein?")
End
End If
z = TextBox2.Text
For i = 1 To z
strZwischen(i) = zufallszahlen_1(45)
ergebnis = ergebnis & " Tipp " & i & "--" & strZwischen(i) & Chr(13) & Chr(10)
Next
TextBox1.Text = ergebnis
End Sub
zufallszahlen_1 ist eine Funktion die 6. verschiedene Zahlen von 1 bis 45 berechnet. Diese Funktion funktioniert auch.
Habe noch ein .jpeg angehängt damit man sieht wie es ungefähr aussehen soll.
Bitte nicht zu harte Kritik, wie gesagt bin noch ein Anfänger
Wenn jemand noch was wissen muss bitte fragen.
thx
mfg
habe wieder mal ein Problem mit VBA, bin noch ein Anfänger also bitte nicht lachen.
Folgendes: Ich möchte eine UserForm erstellen bei der ich in ein Textfeld die Anzahl der gewünschten Lotto Tips eingebe und mir nach klick auf die Schaltfläche 6 aus 45 (Das is in Ö so) im Textfeld1 z.B 7. Tipps angezeigt werden.
Hab auch schon einen Code:
Private Sub CommandButton1_Click()
Dim z As Integer
Dim i As Integer
Dim strZwischen() As String
Dim ergebnis As Integer
If TextBox2.Text = "" Then
MsgBox ("Geben Sie unten bitte die gewünschte Anzahl der Tipps ein?")
End
End If
z = TextBox2.Text
For i = 1 To z
strZwischen(i) = zufallszahlen_1(45)
ergebnis = ergebnis & " Tipp " & i & "--" & strZwischen(i) & Chr(13) & Chr(10)
Next
TextBox1.Text = ergebnis
End Sub
zufallszahlen_1 ist eine Funktion die 6. verschiedene Zahlen von 1 bis 45 berechnet. Diese Funktion funktioniert auch.
Habe noch ein .jpeg angehängt damit man sieht wie es ungefähr aussehen soll.
Bitte nicht zu harte Kritik, wie gesagt bin noch ein Anfänger
Wenn jemand noch was wissen muss bitte fragen.
thx
mfg