InvalidOperationException Multithreading bei TreeView? Wo finde ich den Thread?

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von Roro.

    InvalidOperationException Multithreading bei TreeView? Wo finde ich den Thread?

    Hallo,

    Ich erstelle einen Treeview und bekomme den Fehler:
    InvalidOperationException wurde nicht behandelt. Ungültiger threadübergrifender Vorgang: Der Zugriff auf das Steuerelement frmSpielen erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.

    VB.NET-Quellcode

    1. Private Sub TreeViewSpielen_AfterSelect(ByVal eventSender As Object, ByVal eventArgs As TreeViewEventArgs) Handles TreeViewSpielen.AfterSelect
    2. Dim Node As TreeNode = eventArgs.Node
    3. frmSpielen.DefInstance.Close()
    4. frmBerichte.DefInstance.Close()
    5. frmAbsatzGesamt.DefInstance.Close()
    6. [...]
    7. frmPeriodeBeenden.DefInstance.Close()
    9. If Node.Name = "A1" Then frmSpielen.DefInstance.Show() 'Hier tritt der Fehler auf
    10. If Node.Name = "B1" Then frmBerichte.DefInstance.Show()
    11. If Node.Name = "C11" Then frmAbsatzGesamt.DefInstance.Show()
    12. [...]
    13. If Node.Name = "A2" Then frmPeriodeBeenden.DefInstance.Show()
    14. End Sub


    Ich hab auch schon in der Microsoft Hilfe nachgelesen, verstehe aber nicht wirklich was ein Thread ist und wie das funktioniert. Kann ich irgendwie herausfinden welcher andere Thread darauf zugreift oder ähnliches?
    mfg,
    Roman

    hmm, Deine DefInstance verwirren mich etwas, was soll denn das sein ?

    Ich gehe mal dem Namen nach aus, dass alles was bei Dir mit frm anfängt auch Forms sein sollen. Mit Form.Close wird eine Form nicht nur geschlössen, sondern inclusive aller seiner Resourcen disposed. Du kannst also nicht später versuchen es mit Form.Show wieder anzuzeigen.

    Wenn Du die Form nur verbergen aber nicht disposen willst solltest Du Form.Hide verwenden.

    Das DefInstance hab ich auch nicht verstanden. Das hat der Upgrade Wizard gemacht. Also es ist ein vb 6 to net upgrade gewesen.
    So sah der Code vorher aus:

    VB.NET-Quellcode

    1. Private Sub TreeViewSpielen_NodeClick(ByVal Node As ComctlLib.Node)
    2. Unload frmSpielen
    3. Unload frmBerichte
    4. Unload frmAbsatzGesamt
    5. Unload frmAbsatzStrom
    6. Unload frmAbsatzWaerme
    7. Unload frmBeschaffungProduktionGesamt
    8. [...]
    9. Unload frmPeriodeBeenden
    10. If Node.Key = "A1" Then frmSpielen.Show
    11. If Node.Key = "B1" Then frmBerichte.Show
    12. If Node.Key = "C11" Then frmAbsatzGesamt.Show
    13. If Node.Key = "D111" Then frmAbsatzStrom.Show
    14. If Node.Key = "D112" Then frmAbsatzWaerme.Show
    15. If Node.Key = "C12" Then frmBeschaffungProduktionGesamt.Show
    16. [...]
    17. If Node.Key = "A2" Then frmPeriodeBeenden.Show
    18. End Sub

    viel schöner. Wenn ich das close durch Hide ersetze bekomme ich nun ein "Win32 Exception wurde nicht behandelt. Fehler beim erstellen des Fensterhandles"
    Soll ich das DefInstance einfach mal wegnehmen?

    Hab ich gemacht. Dann kommt: InvalidOperationException wurde nicht behandelt. Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Fehler beim Erstellen des Fensterhandles..

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Roro“ ()

    DefInstance kannst du da eigt. rauslöschen, außerdem lösch dann bitte noch die Property DefInstance(sollte im jeweiligen Formular zu finden sein), da macht der UpdateWizard etwas mist, da .Net das ja direkt kann...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Was heißt das, die Property?

    VB.NET-Quellcode

    1. 'UPGRADE_WARNING: (2080) Form_Load event wurde auf Form_Load event aktualisiert und weist ein neues Verhalten auf. Weitere Informationen: http://www.vbtonet.com/ewis/ewi2080.aspx
    2. Private Sub frmSpielen_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
    3. 'Extras-Menu deaktivieren
    4. MenuEintragAusNeueSim()
    5. MenuEintragAusOeffnen()
    7. 'Formulargröße einstellen
    8. 'frmSpielen.Width = 11945
    9. Me.Text = "Spielperiode " & Periode
    11. Me.Left = VB6.TwipsToPixelsX(3735)
    12. Me.Top = 0
    13. Me.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(MDIfrmStart.DefInstance.Width) - VB6.PixelsToTwipsX(frmTree.DefInstance.Width) - 200)
    14. Me.Height = frmTree.DefInstance.Height
    16. 'den TreeView aktualisieren
    17. frmTree.DefInstance.TreeViewSpielen.SelectedNode = frmTree.DefInstance.TreeViewSpielen.Nodes.Item("B1")
    21. If Periode > 12 Then cmdGoEntscheidung.Visible = False
    23. End Sub
    24. End Class



    Soll ich hier alle DefInstance löschen?

    EDIT:

    oder meinst du eher das hier?

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class frmSpielen
    3. #Region "Upgradeunterstützung "
    4. Private Shared m_vb6FormDefInstance As frmSpielen
    5. Private Shared m_InitializingDefInstance As Boolean
    6. Public Shared Property DefInstance() As frmSpielen
    7. Get
    8. If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
    9. m_InitializingDefInstance = True
    10. m_vb6FormDefInstance = New frmSpielen()
    11. m_InitializingDefInstance = False
    12. End If
    13. Return m_vb6FormDefInstance
    14. End Get
    15. Set
    16. m_vb6FormDefInstance = Value
    17. End Set
    18. End Property
    19. #End Region

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Roro“ ()

    Ich hab das zweite auskommentiert und dann an einigen Stellen DefInstance für frmSpielen gelöscht, da der Debugger gemeckert hat. Jetzt bekomme ich leider immernoch:

    VB.NET-Quellcode

    1. If Node.Name = "A1" Then frmSpielen.Show()


    "Win32 Exception wurde nicht behandelt. Fehler beim erstellen des Fensterhandles"

    Ja genau, so siehts aus jetzt:

    VB.NET-Quellcode

    1. Private Sub TreeViewSpielen_AfterSelect(ByVal eventSender As Object, ByVal eventArgs As TreeViewEventArgs) Handles TreeViewSpielen.AfterSelect
    2. Dim Node As TreeNode = eventArgs.Node
    3. frmSpielen.Hide() 'Hide war vorher Close, dadurch wurde aber die Form disposed. frmspielen.Definstance.hide gelöscht
    4. frmBerichte.Hide()
    5. frmAbsatzGesamt.Hide()
    6. frmAbsatzStrom.Hide()
    7. frmAbsatzWaerme.Hide()
    8. frmBeschaffungProduktionGesamt.Hide()
    9. frmBeschaffungProduktionStrom.Hide()
    10. frmBeschaffungProduktionWaerme.Hide()
    11. frmBeschaffungKostenGesamt.Hide()
    12. frmBeschaffungKostenStrom.Hide()
    13. frmBeschaffungKostenWaerme.Hide()
    14. frmRechnungswesen.Hide()
    15. frmGuV.Hide()
    16. frmGewinnverwendung.Hide()
    17. frmBilanz.Hide()
    18. frmFinanzfluss.Hide()
    19. frmEntscheidung.Hide()
    20. frmVorhAnlagen.Hide()
    21. frmAnlageBauen.Hide()
    22. frmKapitalAufnehmen.Hide()
    23. frmKapitalAnlegen.Hide()
    24. frmPeriodeBeenden.Hide()
    25. If Node.Name = "A1" Then frmSpielen.Show() 'Definstance weggenommen?!
    26. If Node.Name = "B1" Then frmBerichte.Show()
    27. If Node.Name = "C11" Then frmAbsatzGesamt.Show()
    28. If Node.Name = "D111" Then frmAbsatzStrom.Show()
    29. If Node.Name = "D112" Then frmAbsatzWaerme.Show()
    30. If Node.Name = "C12" Then frmBeschaffungProduktionGesamt.Show()
    31. If Node.Name = "D121" Then frmBeschaffungProduktionStrom.Show()
    32. If Node.Name = "D122" Then frmBeschaffungProduktionWaerme.Show()
    33. If Node.Name = "C13" Then frmBeschaffungKostenGesamt.Show()
    34. If Node.Name = "D131" Then frmBeschaffungKostenStrom.Show()
    35. If Node.Name = "D132" Then frmBeschaffungKostenWaerme.Show()
    36. If Node.Name = "B2" Then frmRechnungswesen.Show()
    37. If Node.Name = "C21" Then frmGuV.Show()
    38. If Node.Name = "C22" Then frmGewinnverwendung.Show()
    39. If Node.Name = "C23" Then frmBilanz.Show()
    40. If Node.Name = "C24" Then frmFinanzfluss.Show()
    41. If Node.Name = "B4" Then frmEntscheidung.Show()
    42. If Node.Name = "C41" Then frmVorhAnlagen.Show()
    43. If Node.Name = "C42" Then frmAnlageBauen.Show()
    44. If Node.Name = "C43" Then frmKapitalAufnehmen.Show()
    45. If Node.Name = "C44" Then frmKapitalAnlegen.Show()
    46. If Node.Name = "A2" Then frmPeriodeBeenden.Show()
    48. End Sub
    49. End Class

    Ich hab jetzt mal alle 85 DefInstance von frmTree gelöscht. Auf den wird in jeder frm zugegriffen weil der Tree dann immer aktualisiert wird.

    Jetzt bekomme ich wenn ich auf den Button für frmTree.Show() klicke folgende Fehlermeldung:

    System.InvalidOperationException wurde nicht behandelt.
    Message=Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Das Formular hat während der Erstellung ausgehend von einer Standardinstanz auf sich selbst verwiesen. Dies führte zu einer Endlosschleife. Verweisen Sie im Konstruktor des Formulars mithilfe von "Me" auf das Formular...


    Wie finde ich weitere Informationen in Exception.Innerexcpetion?

    Roro schrieb:

    Das Formular hat während der Erstellung ausgehend von einer Standardinstanz auf sich selbst verwiesen

    Erstmal scheint der Upgrade Wizard hier mal kräftig daneben gegriffen zu haben. Wie weit er auch in der Designer-VB Mist gebaut hat kann man hier ja soweit noch garnicht sehen.

    Die Fehlermeldung oben kommt normalerweise dann, wenn man z.B. in der Form1 eigene Methoden nicht mit Me.methodenname anspricht , sondern mit Form1.methodenname. Schau Dir an wo soetwas vorkommt und ändere es in ME.

    Innere Exception erhälst Du in der Fehlermeldung wenn Du auf Details gehst und die Plus-Zeichen anclickst.

    Ja, danke damit hab ich es irgendwie gelöst. Allerdings verzweifle ich jetzt einfach wieder an diesem dreckigen InitializeComponent(). Dabei hab ich GARNICHTS geändert und aufeinmal kommt es wieder. Hier hatte ich das schonmal.
    Allerdings glaub ich jetzt zu wissen woran es liegt. Das ganze spielt sich hier ab:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict Off
    2. Option Explicit On
    3. Imports Artinsoft.VB6.Utils
    4. Imports System
    5. Imports System.Windows.Forms
    6. Friend Partial Class frmBeschaffungProduktionStrom
    7. Inherits System.Windows.Forms.Form
    8. Private Sub cmdWeiterC12_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdWeiterC12.Click
    9. frmBeschaffungProduktionWaerme.DefInstance.Show()
    10. Me.Hide()
    11. End Sub
    13. 'UPGRADE_WARNING: (2080) Form_Load event wurde auf Form_Load event aktualisiert und weist ein neues Verhalten auf. Weitere Informationen: http://www.vbtonet.com/ewis/ewi2080.aspx
    14. Private Sub frmBeschaffungProduktionStrom_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
    15. Dim SummeLeistung As Object
    16. Dim LiItem As ListViewItem 'wird für die SubItems der ListView benötigt
    17. 'Formulargröße einstellen
    18. Me.Left = VB6.TwipsToPixelsX(3735)
    19. Me.Top = 0
    20. Me.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(MDIfrmStart.DefInstance.Width) - VB6.PixelsToTwipsX(frmTree.Width) - 200)
    21. Me.Height = frmTree.DefInstance.Height
    23. 'den TreeView aktualisieren
    24. frmTree.DefInstance.TreeViewSpielen.SelectedNode = frmTree.DefInstance.TreeViewSpielen.Nodes.Item("D121")
    27. 'Werte in die Textfelder einstellen
    28. txtPeriode.Text = CStr(Periode - 1)
    30. 'Die WärmeKW's speisen auch Strom ein und werden daher mit aufgelistet
    31. 'TODO Alle Subitems 0 macht keinen Sinn?! Alles wird überschrieben, checken was da wirklich steht!
    32. For Lauf As Integer = 1 To AnzahlWaermeKW
    33. If WaermeKW(Lauf).EinspeisungStromGWH > 0 Then
    34. LiItem = ListViewKW.Items.Add(WaermeKW(Lauf).Name)
    35. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).EinspeisungStromGWH / 1000, "#,##0")
    36. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100, "#,##0")
    37. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit / 100 * Periodenlänge, "#,##0")
    38. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit, "#,##0")
    39. End If
    40. ' ***********************
    41. Next Lauf
    42. For Lauf As Integer = 1 To AnzahlKW
    43. ' Neu !!!!!!!!!!!!!!!
    44. If KWEinspeisung(Lauf) > 0 Then
    45. LiItem = ListViewKW.Items.Add(KWName(Lauf))
    46. LiItem.SubItems(0).Text = StringsHelper.Format(KWEinspeisung(Lauf) / 1000, "#,##0")
    47. LiItem.SubItems(0).Text = StringsHelper.Format(KWLeistung(Lauf), "#,##0")
    48. LiItem.SubItems(0).Text = StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0")
    49. LiItem.SubItems(0).Text = StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf), "#,##0")
    50. End If
    51. ' ***********************
    52. Next Lauf
    54. LiItem = ListViewKW.Items.Add("Hilfsbezug")
    55. LiItem.SubItems(0).Text = StringsHelper.Format(GesamtHilfsbezug / 1000, "#,##0")
    56. 'LiItem.SubItems(2) = Format(KWLeistung(Lauf), "#,##0")
    57. 'LiItem.SubItems(3) = Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0")
    58. LiItem.SubItems(0).Text = StringsHelper.Format(100, "#,##0")
    61. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    62. SummeLeistung = 0
    63. For Lauf As Integer = 1 To AnzahlWaermeKW
    64. If WaermeKW(Lauf).Aktiv Then
    65. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    66. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    67. SummeLeistung = CDbl(SummeLeistung) + (WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100)
    68. End If
    69. Next Lauf
    70. For Lauf As Integer = 1 To AnzahlKW
    71. If KWAktiv(Periode - 1, Lauf) Then
    72. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    73. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    74. SummeLeistung = CDbl(SummeLeistung) + KWLeistung(Lauf)
    75. End If
    76. Next Lauf
    77. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Scalar erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    78. txtLeistungGesamt.Text = StringsHelper.Format(SummeLeistung, "#,##0")
    79. txtEinspeisungGesamt.Text = StringsHelper.Format((GesamtEinspeisung + GesamtHilfsbezug) / 1000, "#,##0")
    80. LiItem = Nothing
    81. End Sub
    83. End Class



    aber wichtig ist nur der Teil:

    VB.NET-Quellcode

    1. 'Werte in die Textfelder einstellen
    2. txtPeriode.Text = CStr(Periode - 1)
    4. 'Die WärmeKW's speisen auch Strom ein und werden daher mit aufgelistet
    5. 'TODO Alle Subitems 0 macht keinen Sinn?! Alles wird überschrieben, checken was da wirklich steht!
    6. For Lauf As Integer = 1 To AnzahlWaermeKW
    7. If WaermeKW(Lauf).EinspeisungStromGWH > 0 Then
    8. LiItem = ListViewKW.Items.Add(WaermeKW(Lauf).Name)
    9. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).EinspeisungStromGWH / 1000, "#,##0")
    10. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100, "#,##0")
    11. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit / 100 * Periodenlänge, "#,##0")
    12. LiItem.SubItems(0).Text = StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit, "#,##0")
    13. End If
    14. ' ***********************
    15. Next Lauf
    16. For Lauf As Integer = 1 To AnzahlKW
    17. ' Neu !!!!!!!!!!!!!!!
    18. If KWEinspeisung(Lauf) > 0 Then
    19. LiItem = ListViewKW.Items.Add(KWName(Lauf))
    20. LiItem.SubItems(0).Text = StringsHelper.Format(KWEinspeisung(Lauf) / 1000, "#,##0")
    21. LiItem.SubItems(0).Text = StringsHelper.Format(KWLeistung(Lauf), "#,##0")
    22. LiItem.SubItems(0).Text = StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0")
    23. LiItem.SubItems(0).Text = StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf), "#,##0")
    24. End If
    25. ' ***********************
    26. Next Lauf
    28. LiItem = ListViewKW.Items.Add("Hilfsbezug")
    29. LiItem.SubItems(0).Text = StringsHelper.Format(GesamtHilfsbezug / 1000, "#,##0")
    30. 'LiItem.SubItems(2) = Format(KWLeistung(Lauf), "#,##0")
    31. 'LiItem.SubItems(3) = Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0")
    32. LiItem.SubItems(0).Text = StringsHelper.Format(100, "#,##0")


    Ich habe alle Werte der LiItem.Subitems auf 0 gesetzt weil er immer meckert wenn ich Ihn auf irgendeine andere Zahl setze dass diese für den Index nicht gültig ist. Dann lief es auch alles, die Werte standen halt alle in der ersten Zeile. Das soll natürlich nicht so sein.
    Ist die Formulierung irgendwie falsch oder so? Ich hab es in 2 Büchern nachgelesen und da werden der Index auch von 0 an hochgezählt einfach?!
    Komischerweise kommt der InitializeComponent() jetzt auch wenn ich alles auf 0 setze... Aber wenn ich das richtig code, kommt auch der InitializeComponent() nicht mehr... hoffe/glaube ich :cursing:

    Hab ich gemacht, hat leider nicht geklappt. Es ist so bitter da es eben ja einfach lief.

    EDIT: ich habe mal alle frms (2) mit listviews einfach weggekommentiert, komplett auch den Designer Code... dann lässt es sich starten und der Treeview wird angezeigt. Es liegt also aufjedenfall irgendwie an diesem listview X(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Roro“ ()

    Alle Schleifen? also die beiden LiItem ja sowieso, aber die beiden hier auch? (hab ich jetzt schonmal gemacht)

    VB.NET-Quellcode

    1. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    2. SummeLeistung = 0
    3. For Lauf As Integer = 0 To AnzahlWaermeKW - 1
    4. If WaermeKW(Lauf).Aktiv Then
    5. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    6. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    7. SummeLeistung = CDbl(SummeLeistung) + (WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100)
    8. End If
    9. Next Lauf
    10. For Lauf As Integer = 0 To AnzahlKW - 1
    11. If KWAktiv(Periode - 1, Lauf) Then
    12. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    13. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    14. SummeLeistung = CDbl(SummeLeistung) + KWLeistung(Lauf)
    15. End If
    16. Next Lauf


    Leider klappt es damit immernoch nicht...