|
Hallo,
ich habe ein kleines Problem mit meinem Programmcode. Er zeigt zwar kein Fehler an, aber er berechnet und sortiert auch leider nichts.
Hier mal mein bereits geschriebener Code:
Private Sub CommandButton1_Click()
Dim Zeihlenzahl As Integer
Dim Spalte1 As Integer, Spalte2 As Integer
Dim i As Double
With ActiveWorkbook.Worksheets("Vergleich").Activate
'Variablen deklarieren
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
Zur Erklärung:
Also die beiden Zeilen die ich berechnet haben möchte, fangen in Zeile B15 und C15 an. Deswegen starte mein i auch erst bei 15, richtig oder? Die Ergebnis Spalte soll D sein. auch hier sollen die Werte ab Zeile D15 eingetragen werden...
Ich habe schon viel rumprobiert, aber es immer nur schlimmer gemacht. Ich wäre über jede Hilfe dankbar.
Besten Dank im Voraus!
|