kann mir jemand helfen mit dem beschriebenen Problem in der Exceldatei?
https://www.herber.de/bbs/user/111127.xlsx
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K9")) Is Nothing Then
Application.EnableEvents = False
und hier dann die Programmzeile für die Zielwertsuche
Application.EnableEvents = True
End If
End Sub
Gruß Daniel
Option Explicit
Sub g7_iterieren()
Dim ws As Worksheet
Dim i As Double
Dim ziel As Double
Dim ziel_2 As Double
Dim vergleich As Double
i = 0
Set ws = ThisWorkbook.Sheets(1)
With ws
If .Cells(6, 11).Value > .Cells(9, 11).Value Then
.Cells(7, 7).Value = 0
End If
ziel = .Cells(9, 11).Value
ziel_2 = .Cells(6, 11).Value
Do Until ziel_2 >= ziel
vergleich = i
.Cells(7, 7).Value = vergleich
ziel_2 = .Cells(6, 11).Value
i = i + 0.1
Loop
End With
End Sub