kombination prüfen
09.10.2006 19:00:38
tina
ich habe hier aus dem forum gestern einen code gelesen der mich auch interessiert hat.
ich möchte diesen code nun zum lottozahlen prüfen benutzen.
und zwar so:
ich gebe in einer UF in 6 textboxen zahlen ein.
in einer liste werden meine 6 zahlen geprpüft wie oft diese schon gezogen worden sind.
es sollen dann alle 3er, 4er, 5er und 6er angezeigt werden.
bei diesem code aus dem forum werden auch alle 1er und 2er angezeigt. die sollen aber wegbleiben.
ausserdem soll das ergebniss ab spalte K1 angezeigt werden.
momentan ist es so, das dass ergebniss ab der ersten freien zelle in spalte A angezeigt wird.
hier der code:
Private Sub CommandButton1_Click()
Dim lz, lr, s, z, tb, wert, ls As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To lz
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
For tb = 1 To 6
For s = 2 To 7
If Controls("TextBox" & CStr(tb)) <> "" Then
wert = Controls("TextBox" & CStr(tb))
If Cells(z, s) = CInt(Controls("TextBox" & CStr(tb))) Then
Cells(lr, 1) = Cells(z, 1)
ls = Cells(lr, 256).End(xlToLeft).Column + 1
Cells(lr, ls) = Cells(z, s)
End If
End If
Next s
Next tb
Next z
End Sub
vielen Dank für eure Hilfe
LG Tin@