Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Lycaner am Juli 21, 2017, 14:29:24 Nachmittag

Titel: Lottozahlen sortieren
Beitrag von: Lycaner am Juli 21, 2017, 14:29:24 Nachmittag

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

Titel: Antw: Lottozahlen sortieren
Beitrag von: lupo1 am Juli 22, 2017, 15:14:29 Nachmittag

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

Titel: Antw: Lottozahlen sortieren
Beitrag von: Lycaner am August 02, 2017, 15:53:53 Nachmittag

Vielen Dank Lupo.