VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:30:24	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:53:49	Gast1825
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:19:55	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:32	Gast3025
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:24:16	Gast85132
... vermutlich ist da Problem...	18.07.2022 10:29:18	Gast85132
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:06	Gast32759
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:23:09	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 14:13:22	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 16:10:07	Gast15075
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 21:22:31	Gast15772
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 09:29:54	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 14:12:27	Gast94377
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 17:24:09	Opportunity_Cost

Ansicht des Beitrags:

Von:
Opportunity_Cost

Datum:
25.07.2022 14:13:22

Views:
829

Rating:

Antwort:

Thema:
XIRR Funktion, beginnend mit dem ersten Wert <>0

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:

1	`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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:30:24	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 09:53:49	Gast1825
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:19:55	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:32	Gast3025
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:24:16	Gast85132
... vermutlich ist da Problem...	18.07.2022 10:29:18	Gast85132
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:20:06	Gast32759
XIRR Funktion, beginnend mit dem ersten Wert <>0	18.07.2022 10:23:09	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 14:13:22	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 16:10:07	Gast15075
XIRR Funktion, beginnend mit dem ersten Wert <>0	25.07.2022 21:22:31	Gast15772
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 09:29:54	Opportunity_Cost
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 14:12:27	Gast94377
XIRR Funktion, beginnend mit dem ersten Wert <>0	26.07.2022 17:24:09	Opportunity_Cost