|
Hallo zusammen,
ich bin der Threadersteller, die Formel funktioniert jetzt perfekt, jedoch gibt es einen Fehler wenn sich die Input-Werte aktualisieren. Und zwar bei:
i = i + 1
Anbei der Code in dem Sheet, indem sich die Inputs verändern und was dann zu einem Fehler führt, falss es was hilft:
Private Sub Worksheet_Deactivate()
Application.DisplayAlerts = False
ThisWorkbook.RefreshAll
End Sub
In einem anderen Sheet ist noch folgender Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund I").Name = Range("C11").Value
End If
If Not Intersect(Target, Range("C12")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund II").Name = Range("C12").Value
End If
If Not Intersect(Target, Range("C13")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund III").Name = Range("C13").Value
End If
If Not Intersect(Target, Range("C14")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund IV").Name = Range("C14").Value
End If
If Not Intersect(Target, Range("C15")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund V").Name = Range("C15").Value
End If
End Sub
Danke für eure Hilfe!!
Opportunity_Cost
|