Lottozahlen sortieren

[Lycaner]

Hallo,

ich wollte man fragen, ob jemand eine Lösung für die Sortierung von Lottozahlen hat ohne Hilfsspalten und Funktion von kkleinste(). Geht es mit VBA, dass die Zahlen sortiert werden und auf der gleich Position erscheinen? Wenn ja, könnte mir jemand ein Quellcode geben?

Vielen Dank.

Gruß
Lycaner

[lupo1]

Rechts-Klicke auf den Tabellenreiter eines leeren Blatts
Code anzeigen
Folgenden Code dort hineinkopieren

Private Sub Worksheet_Change(ByVal T As Range)
'  Eingabe der 6 Zahlen in beliebiger Reihenfolge in A2:F2
'  nach jeder Eingabe wird sortiert
'  Bei Erreichen von 6 Zahleneingaben wird eine neue Zeile 2 eingefügt
If T.Row = 2 And T.Column < 7 Then
With ActiveSheet.Sort: .SortFields.Clear: .SortFields.Add Key:=[A2:F2]: .SetRange [A2:F2]: .Orientation = xlLeftToRight: .Apply: End With
If WorksheetFunction.Count([A2:F2]) = 6 Then [2:2].Insert
End If
End Sub

[Lycaner]

Vielen Dank Lupo.