Sub zahlen_sortieren() Dim k(1 To 4) As Integer Dim z(1 To 4) As Integer Dim zaehler As Integer For zaehler = LBound(z) To UBound(z) z(zaehler) = InputBox("Geben Sie bitte eine Zahl ein") Next zaehler zaehler = 0 k(1) = z(1) For zaehler = 2 To 4 If k(1) > z(zaehler) Then k(1) = z(zaehler) End If Next zaehler zaehler = 0 k(2) = z(2) For zaehler = 1 To 4 If k(2) = k(1) Then k(2) = z(zaehler) End If Next zaehler zaehler = 0 For zaehler = 2 To 4 If k(2) > k(1) And k(1) z(zaehler) And k(2) > z(zaehler) Then k(2) = z(zaehler) End If Next zaehler zaehler = 0 k(3) = z(3) For zaehler = 1 To 4 If k(1) = k(3) Or k(2) = k(3) Then If z(zaehler) k(1) And z(zaehler) k(2) Then k(3) = z(zaehler) End If End If Next zaehler zaehler = 0 For zaehler = 2 To 4 If k(3) > k(1) And k(3) > k(2) And k(1) z(zaehler) And k(2) z(zaehler) And k(3) > z( _ zaehler) Then k(3) = z(zaehler) End If Next zaehler zaehler = 0 For zaehler = 1 To 4 If z(zaehler) k(1) And z(zaehler) k(2) And z(zaehler) k(3) Then k(4) = z(zaehler) End If Next zaehler MsgBox k(1) & "," & k(2) & "," & k(3) & "," & k(4) End Sub
hab dieses versucht mit einer schleife zu verkürzen, was aber nicht funktioniert, bitte helft mir!
Sub zahlen_sortieren()
Dim k(1 To 4) As Integer
Dim z(1 To 4) As Integer
Dim i As Integer
Dim zaehler As Integer
For zaehler = LBound(z) To UBound(z)
z(zaehler) = InputBox("Geben Sie bitte eine Zahl ein")
Next zaehler
i = 0
zaehler = 0
While i
Danke für eure Hilfe!