Office: Langsamer VBA-Code seit Excel 2016

Helfe beim Thema Langsamer VBA-Code seit Excel 2016 in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Forengemeinde, erstmal möchte ich mich kurz vorstellen. Ich heiße Andy und arbeite in der Verwaltung bei der Bundeswehr. Ich habe über viele... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von andyb.82, 7. Mai 2018.

  1. ANDYB.82
    andyb.82

    Langsamer VBA-Code seit Excel 2016


    Hallo Forengemeinde,

    erstmal möchte ich mich kurz vorstellen. Ich heiße Andy und arbeite in der Verwaltung bei der Bundeswehr. Ich habe über viele Jahre mir eine Datei zur Abrechnung diverser Gebührnisse erstellt. Leider bin ich nicht der VBA Profi sondern habe viel durch lesen und probieren dahin gebastelt. Bisher lief auch alles wunderbar. Leider hat mein Rechner jetzt Excel 2016 bekommen (vorher 2010) und jetzt läuft der Code unendlich langsam. Warum nur? Ich hoffe einer von euch kann mir helfen. Ich stelle den Code mal hier rein. Er ist sehr lang. Grundsätzlich soll durch den Code bei Eingabe in die Zelle E8 viele andere Blätter gelöscht und bearbeitet werden. Vielleicht erkennt einer warum es so langsam ist während es in Excel 2010 knapp 2 sek gebraucht hat sind es jetzt bestimmt 30 sek.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E8")) Is Nothing Then
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    [A108] = ClearContents
    [A109] = ClearContents
    [A111] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Berechnung TG § 3").[G4] = ClearContents
    Sheets("Berechnung TG § 3").[G5] = ClearContents
    Sheets("Berechnung TG § 3").[G7] = ClearContents
    Sheets("Berechnung TG § 3").[h4] = ClearContents
    Sheets("Berechnung TG § 3").[h5] = ClearContents
    Sheets("Berechnung TG § 3").[h7] = ClearContents
    Sheets("Berechnung TG § 3").[i4] = ClearContents
    Sheets("Berechnung TG § 3").[i5] = ClearContents
    Sheets("TG § 3").OptionButton21.Value = False
    Sheets("TG § 3").OptionButton24.Value = False
    Sheets("TG § 3").OptionButton22.Value = False
    Sheets("TG § 3").OptionButton25.Value = False
    Sheets("TG § 3").OptionButton23.Value = False
    Sheets("TG § 3").OptionButton26.Value = False
    Sheets("TG § 3").OptionButton27.Value = False
    Sheets("TG § 3").OptionButton28.Value = False
    Sheets("TG § 3").[AU1] = ClearContents
    Sheets("TG § 3").ComboBox21.Value = ClearContents

    Sheets("TG § 3").[A6] = ClearContents

    Sheets("TG § 3").[W8] = ClearContents
    Sheets("TG § 3").[AP8] = ClearContents
    Sheets("TG § 3").[U10] = ClearContents
    Sheets("TG § 3").[AE10] = ClearContents
    Sheets("TG § 3").[S16] = ClearContents
    Sheets("TG § 3").[S18] = ClearContents
    Sheets("TG § 3").[AV18] = ClearContents

    Sheets("TG § 3").[J23] = ClearContents
    Sheets("TG § 3").[J24] = ClearContents
    Sheets("TG § 3").[J25] = ClearContents
    Sheets("TG § 3").[J26] = ClearContents
    Sheets("TG § 3").[J27] = ClearContents
    Sheets("TG § 3").[J28] = ClearContents
    Sheets("TG § 3").[J29] = ClearContents
    Sheets("TG § 3").[J30] = ClearContents
    Sheets("TG § 3").[J31] = ClearContents
    Sheets("TG § 3").[J32] = ClearContents
    Sheets("TG § 3").[J33] = ClearContents
    Sheets("TG § 3").[AB23] = ClearContents
    Sheets("TG § 3").[AB24] = ClearContents
    Sheets("TG § 3").[AB25] = ClearContents
    Sheets("TG § 3").[AB26] = ClearContents
    Sheets("TG § 3").[AB27] = ClearContents
    Sheets("TG § 3").[AB28] = ClearContents
    Sheets("TG § 3").[AB29] = ClearContents
    Sheets("TG § 3").[AB30] = ClearContents
    Sheets("TG § 3").[AB31] = ClearContents
    Sheets("TG § 3").[AB32] = ClearContents
    Sheets("TG § 3").[AT23] = ClearContents
    Sheets("TG § 3").[AT24] = ClearContents
    Sheets("TG § 3").[AT25] = ClearContents
    Sheets("TG § 3").[AT26] = ClearContents
    Sheets("TG § 3").[AT27] = ClearContents
    Sheets("TG § 3").[AT28] = ClearContents
    Sheets("TG § 3").[AT29] = ClearContents
    Sheets("TG § 3").[AT30] = ClearContents
    Sheets("TG § 3").[AT31] = ClearContents
    Sheets("TG § 3").[AT32] = ClearContents
    Sheets("TG § 3").[AD39] = ClearContents
    Sheets("TG § 3").[U42] = ClearContents
    Sheets("TG § 3").[AD42] = ClearContents
    Sheets("TG § 3").[U44] = ClearContents
    Sheets("TG § 3").[AD44] = ClearContents
    Sheets("TG § 3").[I48] = ClearContents
    Sheets("TG § 3").[AD48] = ClearContents
    Sheets("TG § 3").[K56] = ClearContents
    Sheets("TG § 3").[R56] = ClearContents
    Sheets("TG § 3").[AA56] = ClearContents
    Sheets("TG § 3").[K58] = ClearContents
    Sheets("TG § 3").[R58] = ClearContents
    Sheets("TG § 3").[AA58] = ClearContents
    Sheets("TG § 3").[K60] = ClearContents
    Sheets("TG § 3").[R60] = ClearContents
    Sheets("TG § 3").[AA60] = ClearContents
    Sheets("TG § 3").[AA62] = ClearContents
    Sheets("TG § 3").[R64] = ClearContents
    Sheets("TG § 3").[AA64] = ClearContents
    Sheets("TG § 3").[X68] = ClearContents
    Sheets("TG § 3").[AD68] = ClearContents
    Sheets("TG § 3").[J70] = ClearContents
    Sheets("TG § 3").[X70] = ClearContents
    Sheets("TG § 3").[AD70] = ClearContents
    Sheets("TG § 3").[J72] = ClearContents
    Sheets("TG § 3").[A83] = ClearContents
    Sheets("TG § 3").CheckBox1.Value = False
    Sheets("TG § 3").CheckBox2.Value = False
    Sheets("TG § 3").CheckBox3.Value = False
    Sheets("TG § 3").CheckBox4.Value = False
    Sheets("TG § 3").CheckBox5.Value = False
    Sheets("TG § 3").CheckBox5.Value = True

    Sheets("TG § 3").[AU76] = 0
    Sheets("TG § 3").[AU77] = 0
    Sheets("TG § 3").[AU78] = 0
    Sheets("TG § 3").[AU79] = 0
    Sheets("TG § 3").[X88] = "rechnerisch richtig"

    Sheets("TG § 3").[A105] = ClearContents
    Sheets("TG § 3").[A106] = ClearContents
    Sheets("TG § 3").[A108] = ClearContents

    If Sheets("TG § 3").[AE74] = "davon 80%" Then
    Call Abschlag3
    End If
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("RBH").[B11] = ClearContents
    Sheets("RBH").[B15] = ClearContents

    Sheets("RBH").[B18] = ClearContents

    Worksheets("RBH").Visible = xlSheetVeryHidden
    Sheets("RBH").[J15] = ClearContents
    Sheets("RBH").[Z15] = ClearContents
    Sheets("RBH").[O19].Value = "0"
    Sheets("RBH").[O22].Value = "0"
    Sheets("RBH").[O25].Value = "0"
    Sheets("RBH").[O28].Value = "0"
    Sheets("RBH").[O31].Value = "0"
    Sheets("RBH").[O34].Value = "0"
    Sheets("RBH").[O37].Value = "0"
    Sheets("RBH").[O40].Value = "0"
    Sheets("RBH").[O47].Value = "0"
    Sheets("RBH").[AB19] = ClearContents
    Sheets("RBH").[AB22] = ClearContents
    Sheets("RBH").[AB25] = ClearContents
    Sheets("RBH").[AB28] = ClearContents
    Sheets("RBH").[AB31] = ClearContents
    Sheets("RBH").[AB34] = ClearContents
    Sheets("RBH").[AB37] = ClearContents
    Sheets("RBH").[AB40] = ClearContents
    Sheets("RBH").[AE59] = "rechnerisch richtig"

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Berechnung TG § 6").[G4] = ClearContents
    Sheets("Berechnung TG § 6").[G5] = ClearContents
    Sheets("Berechnung TG § 6").[G7] = ClearContents
    Sheets("Berechnung TG § 6").[h4] = ClearContents
    Sheets("Berechnung TG § 6").[h5] = ClearContents
    Sheets("Berechnung TG § 6").[h7] = ClearContents
    Sheets("Berechnung TG § 6").[i4] = ClearContents
    Sheets("Berechnung TG § 6").[i5] = ClearContents
    Sheets("TG § 6").OptionButton29.Value = False
    Sheets("TG § 6").OptionButton32.Value = False
    Sheets("TG § 6").OptionButton30.Value = False
    Sheets("TG § 6").OptionButton33.Value = False
    Sheets("TG § 6").OptionButton31.Value = False
    Sheets("TG § 6").OptionButton34.Value = False
    Sheets("TG § 6").OptionButton35.Value = False
    Sheets("TG § 6").OptionButton36.Value = False
    Sheets("TG § 6").[AU1] = ClearContents
    Sheets("TG § 6").ComboBox21.Value = ClearContents

    Sheets("TG § 6").[A6] = ClearContents

    Sheets("TG § 6").[W8] = ClearContents
    Sheets("TG § 6").[AP8] = ClearContents
    Sheets("TG § 6").[U10] = ClearContents
    Sheets("TG § 6").[AE10] = ClearContents
    Sheets("TG § 6").HBNein.Value = True
    Sheets("TG § 6").HBJa.Value = True
    Sheets("TG § 6").TRJa.Value = True
    Sheets("TG § 6").TRNein.Value = True

    Sheets("TG § 6").[U16] = ClearContents
    Sheets("TG § 6").[U18] = ClearContents
    Sheets("TG § 6").[U20] = ClearContents
    Sheets("TG § 6").[J25] = ClearContents
    Sheets("TG § 6").[J26] = ClearContents
    Sheets("TG § 6").[J27] = ClearContents
    Sheets("TG § 6").[J28] = ClearContents
    Sheets("TG § 6").[J29] = ClearContents
    Sheets("TG § 6").[J30] = ClearContents
    Sheets("TG § 6").[J31] = ClearContents
    Sheets("TG § 6").[J32] = ClearContents
    Sheets("TG § 6").[J33] = ClearContents
    Sheets("TG § 6").[J34] = ClearContents
    Sheets("TG § 6").[J35] = ClearContents
    Sheets("TG § 6").[AB25] = ClearContents
    Sheets("TG § 6").[AB26] = ClearContents
    Sheets("TG § 6").[AB27] = ClearContents
    Sheets("TG § 6").[AB28] = ClearContents
    Sheets("TG § 6").[AB29] = ClearContents
    Sheets("TG § 6").[AB30] = ClearContents
    Sheets("TG § 6").[AB31] = ClearContents
    Sheets("TG § 6").[AB32] = ClearContents
    Sheets("TG § 6").[AB33] = ClearContents
    Sheets("TG § 6").[AB34] = ClearContents
    Sheets("TG § 6").[AT25] = ClearContents
    Sheets("TG § 6").[AT26] = ClearContents
    Sheets("TG § 6").[AT27] = ClearContents
    Sheets("TG § 6").[AT28] = ClearContents
    Sheets("TG § 6").[AT29] = ClearContents
    Sheets("TG § 6").[AT30] = ClearContents
    Sheets("TG § 6").[AT31] = ClearContents
    Sheets("TG § 6").[AT32] = ClearContents
    Sheets("TG § 6").[AT33] = ClearContents
    Sheets("TG § 6").[AT34] = ClearContents
    Sheets("TG § 6").[Y38] = ClearContents
    Sheets("TG § 6").[Y40] = ClearContents
    Sheets("TG § 6").[Y42] = ClearContents
    Sheets("TG § 6").[AA46] = ClearContents
    Sheets("TG § 6").[AL46] = ClearContents
    Sheets("TG § 6").[AA49] = ClearContents
    Sheets("TG § 6").[AA51] = ClearContents
    Sheets("TG § 6").[AA53] = ClearContents
    Sheets("TG § 6").[AA55] = ClearContents
    Sheets("TG § 6").[AA58] = ClearContents
    Sheets("TG § 6").[AA59] = ClearContents
    Sheets("TG § 6").[AA60] = ClearContents
    Sheets("TG § 6").[AA61] = ClearContents
    Sheets("TG § 6").[Al58] = ClearContents
    Sheets("TG § 6").[AL59] = ClearContents
    Sheets("TG § 6").[AL60] = ClearContents
    Sheets("TG § 6").[AL61] = ClearContents
    Sheets("TG § 6").[AB65] = ClearContents
    Sheets("TG § 6").[A77] = ClearContents
    Sheets("TG § 6").OptionButton23.Value = True

    Sheets("TG § 6").[T74] = 0
    Sheets("TG § 6").[X82] = "rechnerisch richtig"

    Sheets("TG § 6").[A99] = ClearContents
    Sheets("TG § 6").[A100] = ClearContents
    Sheets("TG § 6").[A102] = ClearContents

    If Sheets("TG § 6").[A74] = "davon 80% (abgerundet)" Then
    Call Abschlag6
    End If
    Worksheets("Steuer I").Visible = xlSheetVeryHidden
    Worksheets("Steuer II").Visible = xlSheetVeryHidden
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("KTHB").[F1] = ClearContents
    Sheets("KTHB").[C5] = ClearContents
    Sheets("KTHB").ComboBox21.Value = ClearContents

    Sheets("KTHB").[B9:B17] = ClearContents
    Sheets("KTHB").[C9:C17] = ClearContents
    Sheets("KTHB").[H9:H17] = ClearContents
    Sheets("KTHB").[B9:B17].Locked = True
    Sheets("KTHB").[C9*biggrin.gif*17].Locked = True
    Sheets("KTHB").[H9:H17].Locked = True
    Sheets("KTHB").[C18*biggrin.gif*18].Locked = False
    Sheets("KTHB").[E18].Locked = False
    Sheets("KTHB").[F18].Locked = False
    Sheets("KTHB").[C18*biggrin.gif*18] = ClearContents
    Sheets("KTHB").[E18] = ClearContents
    Sheets("KTHB").[F18] = ClearContents
    Sheets("KTHB").[H18] = ClearContents
    Sheets("KTHB").[C18*biggrin.gif*18].Locked = True
    Sheets("KTHB").[E18].Locked = True
    Sheets("KTHB").[F18].Locked = True
    Sheets("KTHB").[H18].Locked = True
    Sheets("KTHB").[A27:B27].Locked = False
    Sheets("KTHB").[E27].Locked = False
    Sheets("KTHB").[C27*biggrin.gif*27].Locked = False
    Sheets("KTHB").[F27].Locked = False
    Sheets("KTHB").[A27] = ClearContents
    Sheets("KTHB").[E27] = ClearContents
    Sheets("KTHB").[C27] = ClearContents
    Sheets("KTHB").[F27] = ClearContents

    Sheets("KTHB").[A27:B27].Locked = True
    Sheets("KTHB").[E27].Locked = True
    Sheets("KTHB").[C27*biggrin.gif*27].Locked = True
    Sheets("KTHB").[F27].Locked = True
    Sheets("KTHB").[C21] = ClearContents
    Sheets("KTHB").[C22] = ClearContents
    Sheets("KTHB").[C23] = ClearContents
    Sheets("KTHB").[A24] = ClearContents
    Sheets("KTHB").[A25] = ClearContents
    Sheets("KTHB").[D25] = ClearContents

    Sheets("KTHB").[C24] = ClearContents
    Sheets("KTHB").[C25] = ClearContents
    Sheets("KTHB").[E25] = ClearContents
    Sheets("KTHB").[C24:F24].Locked = True
    Sheets("KTHB").[C25].Locked = True
    Sheets("KTHB").[E25:F25].Locked = True
    Sheets("KTHB").[C33] = ClearContents
    Sheets("KTHB").[C34] = ClearContents
    Sheets("KTHB").[C40] = ClearContents
    Sheets("KTHB").[C43] = ClearContents
    Sheets("KTHB").CheckBox1.Value = False
    Sheets("KTHB").CheckBox2.Value = False
    Sheets("KTHB").CheckBox3.Value = False
    Sheets("KTHB").CheckBox4.Value = False
    Sheets("KTHB").CheckBox5.Value = False

    Sheets("KTHB").[C4].FormulaLocal = "=WENN(H19>=0;""EINE AUSZAHLUNG"";""EINE ANNAHME"")"
    Sheets("KTHB").[J9] = ClearContents
    Sheets("KTHB").[J10] = ClearContents
    Sheets("KTHB").[J11] = ClearContents
    Sheets("KTHB").[C7] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Steuer I").[C8] = ClearContents
    Sheets("Steuer I").[F8] = ClearContents
    Sheets("Steuer I").[C10] = ClearContents
    Sheets("Steuer I").[F10] = ClearContents
    Sheets("Steuer I").[I7] = ClearContents
    Sheets("Steuer I").[L7] = ClearContents
    Sheets("Steuer I").[W8] = ClearContents
    Sheets("Steuer I").[Z8] = ClearContents
    Sheets("Steuer I").[W10] = ClearContents
    Sheets("Steuer I").[Z10] = ClearContents
    Sheets("Steuer I").[AC7] = ClearContents
    Sheets("Steuer I").[C13] = ClearContents
    Sheets("Steuer I").[I13] = ClearContents
    Sheets("Steuer I").[M13] = ClearContents
    Sheets("Steuer I").[N13] = ClearContents
    Sheets("Steuer I").[S13] = ClearContents
    Sheets("Steuer I").[W13] = ClearContents
    Sheets("Steuer I").[X13] = ClearContents
    Sheets("Steuer I").[C18] = ClearContents
    Sheets("Steuer I").[C22] = ClearContents
    Sheets("Steuer I").[C26] = ClearContents
    Sheets("Steuer I").[C30] = ClearContents
    Sheets("Steuer I").[C34] = ClearContents
    Sheets("Steuer I").[C38] = ClearContents
    Sheets("Steuer I").[C42] = ClearContents
    Sheets("Steuer I").[C46] = ClearContents
    Sheets("Steuer I").[C50] = ClearContents
    Sheets("Steuer I").[M18] = ClearContents
    Sheets("Steuer I").[O26] = ClearContents
    Sheets("Steuer I").[O30] = ClearContents
    Sheets("Steuer I").[O34] = ClearContents
    Sheets("Steuer I").[O38] = ClearContents
    Sheets("Steuer I").[O42] = ClearContents
    Sheets("Steuer I").[O46] = ClearContents
    Sheets("Steuer I").[O50] = ClearContents
    Sheets("Steuer I").[U26] = ClearContents
    Sheets("Steuer I").[U30] = ClearContents
    Sheets("Steuer I").[U34] = ClearContents
    Sheets("Steuer I").[U38] = ClearContents
    Sheets("Steuer I").[U42] = ClearContents
    Sheets("Steuer I").[U46] = ClearContents
    Sheets("Steuer I").[U50] = ClearContents
    Sheets("Steuer I").[D22] = ClearContents
    Sheets("Steuer I").[D30] = ClearContents
    Sheets("Steuer I").[D34] = ClearContents
    Sheets("Steuer I").[D38] = ClearContents
    Sheets("Steuer I").[D42] = ClearContents
    Sheets("Steuer I").[D46] = ClearContents
    Sheets("Steuer I").[C54] = ClearContents
    Sheets("Steuer I").[E58] = ClearContents
    Sheets("Steuer I").[P59] = ClearContents
    Sheets("Steuer I").[Z59] = ClearContents

    Sheets("Steuer I").[AK26] = ClearContents
    Sheets("Steuer I").[AL26] = ClearContents
    Sheets("Steuer I").[AK30] = ClearContents
    Sheets("Steuer I").[AL30] = ClearContents
    Sheets("Steuer I").[AK34] = ClearContents
    Sheets("Steuer I").[AL34] = ClearContents
    Sheets("Steuer I").[AK38] = ClearContents
    Sheets("Steuer I").[AL38] = ClearContents
    Sheets("Steuer I").[AK42] = ClearContents
    Sheets("Steuer I").[AL42] = ClearContents
    Sheets("Steuer I").[AK46] = ClearContents
    Sheets("Steuer I").[AL46] = ClearContents
    Sheets("Steuer I").[AK50] = ClearContents
    Sheets("Steuer I").[AL50] = ClearContents
    Sheets("Steuer I").[Q54] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("Steuer II").[G7] = ClearContents
    Sheets("Steuer II").[O7] = ClearContents
    Sheets("Steuer II").[AA7] = ClearContents
    Sheets("Steuer II").[AC7] = ClearContents
    Sheets("Steuer II").[AC9] = ClearContents
    Sheets("Steuer II").[B11] = ClearContents
    Sheets("Steuer II").[B14] = ClearContents
    Sheets("Steuer II").[M14] = ClearContents
    Sheets("Steuer II").[D18] = ClearContents
    Sheets("Steuer II").[D20*biggrin.gif*26] = ClearContents
    Sheets("Steuer II").[O20:O26] = ClearContents
    Sheets("Steuer II").[B55] = ClearContents
    Sheets("Steuer II").[B59] = ClearContents
    Sheets("Steuer II").[V59] = ClearContents

    Sheets("Steuer II").[AC59] = ClearContents

    Sheets("Steuer II").[AM20] = ClearContents
    Sheets("Steuer II").[AN20] = ClearContents
    Sheets("Steuer II").[AM21] = ClearContents
    Sheets("Steuer II").[AN21] = ClearContents
    Sheets("Steuer II").[AM22] = ClearContents
    Sheets("Steuer II").[AN22] = ClearContents
    Sheets("Steuer II").[AM23] = ClearContents
    Sheets("Steuer II").[AN23] = ClearContents
    Sheets("Steuer II").[AM24] = ClearContents
    Sheets("Steuer II").[AN24] = ClearContents
    Sheets("Steuer II").[AM25] = ClearContents
    Sheets("Steuer II").[AN25] = ClearContents
    Sheets("Steuer II").[AM26] = ClearContents
    Sheets("Steuer II").[AN26] = ClearContents
    Sheets("Steuer II").[G28] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Höchstbetragsberechnung").ComboBox21.Value = ClearContents
    Sheets("Höchstbetragsberechnung").[A6] = ClearContents
    Sheets("Höchstbetragsberechnung").[E8] = ClearContents
    Sheets("Höchstbetragsberechnung").[W8] = ClearContents
    Sheets("Höchstbetragsberechnung").[AP8] = ClearContents
    Sheets("Höchstbetragsberechnung").[A10] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC10] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC13] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC15] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC21] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC23] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC25] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC27] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC29] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC31] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC33] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC35] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC41] = ClearContents
    Sheets("Höchstbetragsberechnung").[AC43] = ClearContents
    Sheets("Höchstbetragsberechnung").[A64] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Zumutbarkeitsprüfung").ComboBox21.Value = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AU1] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[A6] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[E8] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[W8] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AP8] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[A10] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC10] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC13] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC15] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC21] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC23] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC25] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC27] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC29] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC31] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC33] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[AC35] = ClearContents
    Sheets("Zumutbarkeitsprüfung").[A50] = ClearContents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Amortisation BahnCard").ComboBox21.Value = ClearContents
    Sheets("Amortisation BahnCard").[A6] = ClearContents
    Sheets("Amortisation BahnCard").[E8] = ClearContents
    Sheets("Amortisation BahnCard").[W8] = ClearContents
    Sheets("Amortisation BahnCard").[AP8] = ClearContents
    Sheets("Amortisation BahnCard").[M10] = ClearContents
    Sheets("Amortisation BahnCard").[M12] = ClearContents
    Sheets("Amortisation BahnCard").[M14] = ClearContents
    Sheets("Amortisation BahnCard").[M16] = ClearContents
    Sheets("Amortisation BahnCard").[M18] = ClearContents
    Sheets("Amortisation BahnCard").[M20] = ClearContents
    Sheets("Amortisation BahnCard").[M24] = ClearContents
    Sheets("Amortisation BahnCard").[M26] = ClearContents
    Sheets("Amortisation BahnCard").[M28] = ClearContents
    Sheets("Amortisation BahnCard").[M30] = ClearContents
    Sheets("Amortisation BahnCard").[M43] = ClearContents
    Sheets("Amortisation BahnCard").[M45] = ClearContents
    Sheets("Amortisation BahnCard").[AO43] = ClearContents
    Sheets("Amortisation BahnCard").[AO45] = ClearContents
    Sheets("Amortisation BahnCard").[A63] = ClearContents
    Sheets("Amortisation BahnCard").[A68] = "rechnerisch richtig"

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Sheets("Stammblatt").[A5] = ClearContents
    Sheets("Stammblatt").[AE5] = ClearContents
    Sheets("Stammblatt").[AM5] = ClearContents
    Sheets("Stammblatt").[AS5] = ClearContents
    Sheets("Stammblatt").[AE8] = ClearContents
    Sheets("Stammblatt").[A12] = ClearContents
    Sheets("Stammblatt").[AA12] = ClearContents
    Sheets("Stammblatt").[AQ12] = ClearContents
    Sheets("Stammblatt").[A16] = ClearContents
    Sheets("Stammblatt").[J16] = ClearContents
    Sheets("Stammblatt").[V16] = ClearContents
    Sheets("Stammblatt").[AF16] = ClearContents
    Sheets("Stammblatt").[A20:AN24] = ClearContents
    Sheets("Stammblatt").[F28:AM50] = ClearContents
    Sheets("Stammblatt").[A60:AG100] = ClearContents
    Sheets("Stammblatt").[AL60] = ClearContents
    Sheets("Stammblatt").[AL64] = ClearContents
    Sheets("Stammblatt").[AL69] = ClearContents
    Sheets("Stammblatt").[AR69] = ClearContents
    Sheets("Stammblatt").[AL73] = ClearContents
    Sheets("Stammblatt").[AL76] = ClearContents
    Sheets("Stammblatt").[AK80:AQ86] = ClearContents
    Sheets("Stammblatt").[AK90] = ClearContents
    Worksheets("TG § 3").Visible = xlSheetVeryHidden
    Worksheets("TG § 6").Visible = xlSheetVeryHidden
    Worksheets("KTHB").Visible = xlSheetVeryHidden

    Application.Calculation = xlCalculationAutomatic
    If [AO87] = "davon 80%" Then
    Call AbschlagRK
    End If
    End If
    End Sub

    :)
     
    andyb.82, 7. Mai 2018
    #1
  2. EARLFRED
    EarlFred
    Hallo,

    hinter welchem Blatt steht der Code?
    Wie ist ClearContents definiert? Welchen Inhalt hat die Variable?
    Die Schreibweise [AL73] ist die langsamste Bereichsansprache. Schneller ist Range("AL73")

    Grüße
    EarlFred
     
    EarlFred, 9. Mai 2018
    #2
  3. LUSCHI
    Luschi
    Hallo andyb.82,

    ergänze zu Beginn des Codes neben diesen beiden Einstellungen
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    noch mit
    Application.EnableEvents = False
    (siehe Vba-Hilfe)

    Am Ende stellt Du alle 3 Einstellungen wieder um auf Standard:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    Beschreibe doch mal, daß dieser Befehl eigentlich macht:
    Sheets("Berechnung TG § 3").[G4] = ClearContents
    Soll die Zelle 'G4' im Tabellenblatt 'Berechnung TG § 3' geleert werden, dann muß der Befehl so lauten:
    Sheets("Berechnung TG § 3").[G4].ClearContents
    Sollte dagegen ClearContents eine von Dir definierte definierte Variable/Funktion sein , dann ist das äußerst ungünstig, denn 'ClearContents' ist eine Vba-Methode zum Leeren von Zellbereichen.

    Gruß von Luschi
    aus klein-Paris
     
    Luschi, 9. Mai 2018
    #3
  4. ANDYB.82
    andyb.82

    Langsamer VBA-Code seit Excel 2016

    Hallo. Vielen Dank für deine Antwort. Also der Code ist in einen ganz normalen Tabellenblatt welches sich Reisekosten nennt. Ändert man den Name (Zelle E8) in diesem Blatt soll alles was sonst aufgeblendet ist gelöscht und geschlossen werden um einen neuen Fall bearbeiten zu können.
    Wie gesagt ich bin leider kein Profi und habe das nie gelernt. Was meinst du mit ClearContents definiert? Ich dachte mit ClearContents werde die Inhalte der Zellen gelöscht? Auch das mit der Variable versteh ich nicht. Sorry tut mir echt leid. Der Code steht genauso im VBA wie hier abgebildet.

    Denkst du wenn ich alles auf Range("AL73") ändere wird es schneller?

    Gruß Andy
     
    andyb.82, 9. Mai 2018
    #4
  5. ANDYB.82
    andyb.82
    Danke Luschi. Werde ich nachher gleich probieren. Das mit ClearContents ist tatsächlich falsch geschrieben. Werde es auf [G4].ClearContents ändern. Es soll ja wirklich nur der Zellinhalt aus G4 gelöscht werden.
     
    andyb.82, 9. Mai 2018
    #5
  6. LUPO1
    lupo1
    Grausame Daten, by the way!

    Normalerweise designt man zusammenhängend oder nach einer Regel.

    Man kann (sich) auch in ein Variant-Array hinein übergeben, dort alles noch viel schneller behandeln, und am Ende zurück in die Tabelle.

    Menschen müssen den Computerbedürfnissen dienen. Nicht umgekehrt.

    Nachtrag: Man kann auch eine leere Vorlage über die gefüllte kopieren, um letztere wieder zu leeren. Das dauert anstelle Deiner 18 Minuten nur 0,002.
     
    lupo1, 9. Mai 2018
    #6
  7. EARLFRED
    EarlFred
    Mahlzeit.
     
    EarlFred, 9. Mai 2018
    #7
  8. MISTERBURNS
    MisterBurns

    Langsamer VBA-Code seit Excel 2016

    Und du kannst auch gewisse Zeilen einsparen, weil die Zellen direkt nebeneinander liegen. So zB

    Code:
    Könnte auch so lauten

    Code:
    Weiters kannst du die Übersichtlichkeit etwas verbessern, indem du nicht in jeder Zeile "Sheets("Blattname").Range..." schreibst, sondern mit einer With-Anweisung arbeitest:

    Code:
     
    MisterBurns, 9. Mai 2018
    #8
  9. WERNER.M
    Werner.M
    Hallo,

    einige Hinweise hast du jetzt ja schon bekommen. Du solltest den kompletten Code überarbeiten (das wird dir hier sicher keiner machen).

    -Range("A1").ClearContents und nicht [A1].ClearContents
    -zusammenhängende Bereiche auch als zusammenhängenden Bereich ansprechen und nicht jede Zelle einzeln
    -manche Sachen ließen sich mit Schleifen lösen, sind zwar auch nicht schneller, spart aber Schreiberei
    -Aktionen die auf einem bestimmtem Blatt ablaufen in ein With - End With packen, da sparst du dir die ständige schreiberei des Blattnamens. Wichtig ist dabei dann nur, dass vor den jeweiligen Range-Objekten z.B.: Range("A1") ein Punkt vor dem Range gesetzt werden muss. Damit wird dann auf das bei With angegebene Blatt referenziert.

    Ich habe mal einen Teil des Codes angepasst. Der Teil in deinem Originalcode der dadurch wegfallen kann ist auskommentiert, damit du mal siehst, was eingespart werden kann.
    Code:
    Gruß Werner
     
    Werner.M, 9. Mai 2018
    #9
  10. LUSCHI
    Luschi
    Hallo Excel-Fan's

    Vielleicht sollte die Bundesverteidigungsministerin Computer-/Softwareschulungen ansetzen, während Pannzer nicht rollen, Flugzeuge/Hubschrauber nicht fliegen und Kanonen nicht schießen!

    Gruß von Luschi
    aus klein-Paris
     
    Luschi, 9. Mai 2018
    #10
  11. RPP63
    RPP63
    Mahlzeit!
    Auch muss mich fast übergeben (und nicht in/an ein Array) …
    Wozu gibt es eigentlich Vorlagen (ich meine nicht die aus dem Drogeriemarkt mit Namen Always Ultra, sondern die aus dem Excel-Universum mit "Namen" .xltm oder .xltx)?

    Zweifelnd,
    Ralf
     
    RPP63, 9. Mai 2018
    #11
  12. ANDYB.82
    andyb.82
    Hey Leute,

    super vielen Dank für die schnelle und gute Hilfe. Ich hab mal einiges probiert was ihr geschrieben habt und es funzt. Klasse danke danke danke.

    Und ja ich werde ein bissl den Code aufräumen. Dank euch wieder was gelernt.

    Ja nicht nur unsere Panzer, Hubschrauber und Schiffe haben Probleme. Die Bundeswehr stellt für unsere Arbeit keine Software zur Verfügung. Jeder ist seines Glückes Schmied. Traurig aber wahr. Deswegen ist es für einen Anfänger sehr schwer sich neben der vielen Arbeit auch das selbst anzueignen.
     
    andyb.82, 9. Mai 2018
    #12
  13. LUSCHI
    Luschi

    Langsamer VBA-Code seit Excel 2016

    Hallo Excel-Fan's

    Vielleicht sollte die Bundesverteidigungsministerin Computer-/Softwareschulungen ansetzen, während Panzer nicht rollen, Flugzeuge/Hubschrauber nicht fliegen und Kanonen nicht schießen!

    Gruß von Luschi
    aus klein-Paris
     
    Luschi, 9. Mai 2018
    #13
Thema:

Langsamer VBA-Code seit Excel 2016

Die Seite wird geladen...

  1. Langsamer VBA-Code seit Excel 2016 - Similar Threads - Langsamer VBA Code

  2. langsames schließen - neu starten

    in Microsoft Excel Hilfe
    langsames schließen - neu starten: Hallo Experten! Seit kurzem dauert das Schließen einer EXCEL-Datei extrem lange. Im Anschluß wird sie dann neu geöffnet. Wenn sie dann nach erneutem Schließen geöffnet wird, kommt die Meldung,...

  3. Excels Langsamkeit trotz viel RAM

    in Microsoft Excel Hilfe
    Excels Langsamkeit trotz viel RAM: Hallo Liebe Leute, ich dachte mir heute nach vielen vielen Jahren Excel, ich checke mal ob ich nicht selbst das Problem (vor dem Rechner) bin. Für mein uraltHobby Statistik ist Excel natürlich...

  4. Excel Datei langsam

    in Microsoft Excel Hilfe
    Excel Datei langsam: Hallo zusammen, leider ist meine Datei seit einigen Daten sehr langsam geworden. Ich habe in den VBA mal was geändert, was das automatische aktualisieren der Pivot Tabellen angeht. Ich kenne...

  5. Langsame Animation weiterlaufen lassen trotz Klick in die Präsentation?

    in Microsoft PowerPoint Hilfe
    Langsame Animation weiterlaufen lassen trotz Klick in die Präsentation?: Hallo zusammen, ich habe eine Grafik in meiner Präsentation, die über einige Minuten ganz langsam verblassen soll. Währenddessen soll die Präsentation ganz normal weiterlaufen, gesteuert per...

  6. MATRIX-Formel über VBA -> zu langsam

    in Microsoft Excel Hilfe
    MATRIX-Formel über VBA -> zu langsam: Hallo allerseits, bräuchte mal bitte euren fachmännischen Rat *Smilie Also, habe folgende MATRIX-Formel Code: {=WENNFEHLER(INDEX(sollzeit!$E:$E;VERGLEICH(A2&D2;sollzeit!A:A&sollzeit!C:C;0));0)}...

  7. Per VBA in Zellen schreiben = sehr langsam?

    in Microsoft Excel Hilfe
    Per VBA in Zellen schreiben = sehr langsam?: Hallo, ich habe einen kurzen VBA code geschrieben, der die Werte etlicher Zellen neu setzt. Dies geht allerdings relativ langsam. An den Berechnungen liegt es nicht, denn selbst wenn ich eine...

  8. Langsames Makro

    in Microsoft Excel Hilfe
    Langsames Makro: Hallo ihr Lieben, habe ein Makro, welches zwar gut funktioniert, aber sehr langsam ist. Die üblichen Standards wie Screenupdate ausschalten habe ich bereits eingefügt. Ich habe in einem Blog...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden