Private Sub CommandButton1_Click()
Dim Zeihlenzahl As Integer
Dim Spalte1 As Integer, Spalte2 As Integer
Dim i As Double
With ActiveWorkbook.Worksheets("Vergleich").Activate
Spalte1 = Range("B15").Value
Spalte2 = Range("C15").Value
ZeilenZahl = [A1000000].End(xlUp).Row
For i = 15 To Zeihlenzahl
Cells(i, 4) = Cells(i, Spalte1) + Cells(i, Spalte2)
Next i
Columns("D:D").Select
ActiveWorkbook.Worksheets("Vergleich").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Vergleich").Sort.SortFields.Add Key:=Range("B15"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Vergleich").Sort
.SetRange Range("B15:B21")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With