wer hat einen guten Tipp für mich? Möchte in einen code folgendes einbinden:
Die Berechnung soll gestartet werden, sobald sich die Eingangswerte ändern. Im Moment muß ich die Neuberechnung immer manuell durch einen button starten.
grüße
nadine
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C8:E8"), Target) Is Nothing Then
Call die_anweisung
End If
End Sub
Public Sub spot()
Range("B1").Select
Dim L As Long
For L = 10 To 1000000 Step 24
With Sheets("Spotmarkt").Cells(L, 1)
If .Offset(0, 0) = "" Then GoTo Ende
.Offset(0, 2).Resize([c8]).Formula = "=SMALL(" & .Resize(24).Address & ",Row(A1))"
.Offset(0, 4).Resize([e8]).Formula = "=LARGE(" & .Resize(24).Address & ",Row(A1))"
End With
Next
Ende:
End Sub
Private Sub Worksheet_Calculate()
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Call Name_des_Makros_mit_Schleifen
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub