Laufzeitfehler ungenügend Stapelspeicher
23.10.2018 08:53:43
Peter
bei Durchführung von einigen Aufgaben in meiner Datei kam die Fehlermeldung: nicht genügend Stapelspeicher.
Nun habe ich im Archiv gesucht und eine evtl. Lösung von UweD gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Application.EnableEvents = False
If Target.Address = "$B$12" Then Range("C12") = Range("B12") * 1.19
If Target.Address = "$C$12" Then Range("B12") = Range("C12") / 1.19
If Target.Address = "$B$13" Then Range("C13") = Range("B13") * 1.19
If Target.Address = "$C$13" Then Range("B13") = Range("C13") / 1.19
If Target.Address = "$B$15" Then Range("C15") = Range("B15") * 1.19
If Target.Address = "$C$15" Then Range("B15") = Range("C15") / 1.19
If Target.Address = "$B$16" Then Range("C16") = Range("B16") * 1.19
If Target.Address = "$C$16" Then Range("B16") = Range("C16") / 1.19
If Target.Address = "$B$17" Then Range("C17") = Range("B17") * 1.19
If Target.Address = "$C$17" Then Range("B17") = Range("C17") / 1.19
If Target.Address = "$B$18" Then Range("C18") = Range("B18") * 1.19
If Target.Address = "$C$18" Then Range("B18") = Range("C18") / 1.19
If Target.Address = "$B$19" Then Range("C19") = Range("B19") * 1.19
If Target.Address = "$C$19" Then Range("B19") = Range("C19") / 1.19
If Target.Address = "$B$20" Then Range("C20") = Range("B20") * 1.19
If Target.Address = "$C$20" Then Range("B20") = Range("C20") / 1.19
If Target.Address = "$B$21" Then Range("C21") = Range("B21") * 1.19
If Target.Address = "$C$21" Then Range("B21") = Range("C21") / 1.19
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
On Error GoTo Fehler
Application.EnableEvents = False
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Wo muss ich diese überall einbringen, damit kein derartiger Fehler mehr angezeigt wird?
Besten Dank für eure Hilfe.
Gruss
Peter