Private Sub bla()
ReDim feld(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
For a = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
feld(a) = Cells(a, 1)
Next a
Call QuickSort(LBound(feld), UBound(feld))
Cells(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = UBound(feld)
End Sub
Private Sub QuickSort(ByVal LB As Long, ByVal UB As Long)
Dim P1 As Long, P2 As Long, Ref As String, TEMP As String
P1 = LB
P2 = UB
Ref = feld((P1 + P2) / 2)
Do
Do While (feld(P1) < Ref)
P1 = P1 + 1
Loop
Do While (feld(P2) > Ref)
P2 = P2 - 1
Loop
If P1 <= P2 Then
TEMP = feld(P1)
feld(P1) = feld(P2)
feld(P2) = TEMP
P1 = P1 + 1
P2 = P2 - 1
End If
Loop Until (P1 > P2)
If LB < P2 Then Call QuickSort(LB, P2)
If P1 < UB Then Call QuickSort(P1, UB)
End Sub
Private Sub rein()
ReDim feld(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
For a = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
feld(a) = Cells(a, 1)
Next a
Call QuickSort(LBound(feld), UBound(feld))
Cells(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = feld(UBound(feld)) + 1
End Sub
Private Sub QuickSort(ByVal LB As Long, ByVal UB As Long)
Dim P1 As Long, P2 As Long, Ref As String, TEMP As String
P1 = LB
P2 = UB
Ref = feld((P1 + P2) / 2)
Do
Do While (feld(P1) < Ref)
P1 = P1 + 1
Loop
Do While (feld(P2) > Ref)
P2 = P2 - 1
Loop
If P1 <= P2 Then
TEMP = feld(P1)
feld(P1) = feld(P2)
feld(P2) = TEMP
P1 = P1 + 1
P2 = P2 - 1
End If
Loop Until (P1 > P2)
If LB < P2 Then Call QuickSort(LB, P2)
If P1 < UB Then Call QuickSort(P1, UB)
End Sub
Die Datei https://www.herber.de/bbs/user/29107.xls wurde aus Datenschutzgründen gelöscht
Option Explicit
Private Sub CommandButton2_Click()
Dim zei As Long
zei = Range("A65536").End(xlUp).Row
Range("A" & zei + 1) = Application.WorksheetFunction.Max(Range("A1:A" & zei)) + 1
End Sub