Kalkulation in Zeile
10.04.2018 18:59:05
Jakob
Hat mir jemand eine einfachere und schönere Lösung für meinen Fall.
Sub Kalkulation_definitiv()
Application.ScreenUpdating = False
Dim s_zelle1 As Double
Dim s_zelle2 As Double
Dim s_zelle3 As Double
Dim s_zelle4 As Double
Dim S As Double
Dim zähler1 As String
S = InputBox("Eingabefeld", "Tagespreis eingeben")
Range("K1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value >= 1 Then
ActiveCell.Offset(0, -3).Activate
s_zelle1 = ActiveCell.Value
ActiveCell.Offset(0, -4).Select
s_zelle2 = ActiveCell.Value
ActiveCell.Offset(0, -1).Select
s_zelle3 = ActiveCell.Value
ActiveCell.Offset(0, 9).Select
ActiveCell.Value = (s_zelle1 + s_zelle2) + S
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, -1).Select
s_zelle4 = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = s_zelle3 * s_zelle4
ActiveCell.Offset(1, -2).Select
End If
Loop
Application.ScreenUpdating = True
End Sub
Irgendwie sollte es doch einfacher gehen Zeile um Zeile mit immer der gleichen Kalkulation abzuarbeiten.
Kalkulation pro Zeile in Kürze. Spalte L = D + H + Wert von Inputbox
Spalte M = L *C
Dieses sollte es machen bis zur letzten beschriebenen Zeile (Referenzspalte ist K, beginnend bei Zeile 1)
Es muss VBA Lösung sein!
FG Kurt