VBA: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros
Hallöchen,
ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.
HIer mein bereits geschriebener Code:
Private Sub CommandButton1_Click()
' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung
If TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox "Bitte geben Sie eine Lastspitze ein!"
Else
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value
Set wks = ActiveWorkbook.Worksheets("Vergleich")
With wks
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub
With .Range("D15:D" & lngLetzteZeile)
'berechne: D := B + C
.FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
'Formeln durch deren Ergebnis ersetzen
.Value = .Value
End With
With .Range("B15:D" & lngLetzteZeile)
.Sort Key1:=.Cells(2), Order1:=xlDescending, _
DataOption1:=xlSortTextAsNumbers, _
SortMethod:=xlPinYin
End With
End With
End If
End Sub
Microsoft Excel,
Makro,
VBA