Office: (Office 2013) Laufzeitfehler 6

Helfe beim Thema Laufzeitfehler 6 in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo miteinander, bei dem folgenden Code, verursacht die in rot geschriebene Codezeile den Laufzeitfehler 6 Überlauf. Option Explicit Private Sub... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Naddus0207, 8. November 2016.

  1. NADDUS0207
    Naddus0207 Erfahrener User

    Laufzeitfehler 6


    Hallo miteinander,

    bei dem folgenden Code, verursacht die in rot geschriebene Codezeile den Laufzeitfehler 6 Überlauf.

    Code:
    Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address(False, False) = "E5" Then
        If Target = Application.Round(Range("E1") * Range("E2"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E17").Locked = False
            Range("E17").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E17" Then
        If Target = Application.Round(Range("E20") * Range("E2"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E16").Locked = False
            Range("E16").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E16" Then
        If Target = Application.Round(Range("D16") * Range("E17") / (Range("D16") + 1), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E15").Locked = False
            Range("E15").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E15" Then
        If Target = Application.Round(Range("E17") - Range("E16"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E14").Locked = False
            Range("E14").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E14" Then
        If Target = Application.Round(Range("D14") * Range("E15") / (Range("D14") + 1), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E13").Locked = False
            Range("E13").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E13" Then
        If Target = Application.Round(Range("E15") - Range("E14"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E12").Locked = False
            Range("E12").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E12" Then
        If Target = Application.Round(Range("D12") * Range("E13") / (Range("D12") + 1), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E11").Locked = False
            Range("E11").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E11" Then
        If Target = Application.Round(Range("E13") - Range("E12"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E10").Locked = False
            Range("E10").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E10" Then
        If Target = Application.Round(Range("D10"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E9").Locked = False
            Range("E9").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E9" Then
        If Target = Application.Round(Range("E11") - Range("E10"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E8").Locked = False
            Range("E8").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E8" Then
        If Target = Application.Round(Range("D8") * Range("E9") / (1 - Range("D8")), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E7").Locked = False
            Range("E7").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E7" Then
        If Target = Application.Round(Range("E9") + Range("E8"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("E6").Locked = False
            Range("E6").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "E6" Then
        If Target = Application.Round(Range("E5") - Range("E7"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("D6").Locked = False
            Range("D6").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "D6" Then
        [COLOR="#FF0000"]If Target = Application.Round(Range("E6") / Range("E5"), 2) Then[/COLOR]
            ActiveSheet.Unprotect ("123")
            Range("D25").Locked = False
            Range("D25").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "D25" Then
        If Target = Application.Round(Range("E17") / Range("E11"), 4) Then
            ActiveSheet.Unprotect ("123")
            Range("D27").Locked = False
            Range("D27").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "D27" Then
        If Target = Application.Round((Range("E17") - Range("E11")) * 1 / Range("E11"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("D29").Locked = False
            Range("D29").Select
            ActiveSheet.Protect ("123")
        End If
    End If
If Target.Cells(1).Address(False, False) = "D29" Then
        If Target = Application.Round((Range("E17") - Range("E11")) * 1 / Range("E17"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("D31").Locked = False
            Range("D31").Select
            ActiveSheet.Protect ("123")
        End If
    End If
End Sub
    Ich kann mir aber einfach nicht erklären, wo der Fehler liegt. Kann mir jemand weiter helfen?

    Grüße
     
    Zuletzt bearbeitet: 8. November 2016
    Naddus0207, 8. November 2016
    #1
  2. NADDUS0207
    Naddus0207 Erfahrener User
    So ich habe jetzt mal aus

    Code:
    If Target.Cells(1).Address(False, False) = "D6" Then
        If Target = Application.Round(Range("E6") / Range("E5"), 2) Then
            ActiveSheet.Unprotect ("123")
            Range("D25").Locked = False
            Range("D25").Select
            ActiveSheet.Protect ("123")
        End If
    End If
    folgenden Code gemacht:
    Code:
    If Target.Cells(1).Address(False, False) = "T6" Then
        If Target = "R" Then
            ActiveSheet.Unprotect ("edats")
            Range("D25").Locked = False
            Range("D25").Select
            ActiveSheet.Protect ("edats")
        End If
    End If
    Das Problem hierbei ist, dass ich zwar keinen Fehler gemeldet bekomme, aber die Zelle D25 auch nicht entsperrt wird.
    Das "R" aus Zelle T6 ergbibt sich mittels folgender WENN Formel: =WENN(ODER(D6="";D6<>RUNDEN(E6/E5;2));"Q";"R")
    Wo liegt denn nun der Fehler?
     
    Naddus0207, 8. November 2016
    #2
  3. NADDUS0207
    Naddus0207 Erfahrener User
    Thema kann geschlossen werden, hab es selber gelöst.
     
    Naddus0207, 8. November 2016
    #3
Thema:

Laufzeitfehler 6

Die Seite wird geladen...

  1. Laufzeitfehler 6 - Similar Threads - Laufzeitfehler

  2. VBA:Laufzeitfehler beim Einlesen in Variable

    in Microsoft Excel Hilfe
    VBA:Laufzeitfehler beim Einlesen in Variable: Hallo Excel Freaks, ich habe eine Frage, ein Problem wo ich nicht mehr weiter weis.... In eine Exceldatei kopiere ich mir über Makro auf ein Tabellenblatt von anderen Exceldateien das...

  3. Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

    in Microsoft Access Hilfe
    Datenbank bleibt gesperrt - laccdb wird nicht gelöscht: Hallo zusammen, ich betreue eine Datenbank mit getrenntem Back- und Frontend, die in einem Firmennetzwerk auf dem Netzlaufwerk liegt. Ich entwickle sie lokal weiter, ohne vor Ort zu sein, wobei...

  4. Access Laufzeitfehler 3048

    in Microsoft Access Hilfe
    Access Laufzeitfehler 3048: Bevor ihr Euren Code durchrackert, weil Access plötzlich Probleme macht: Die Version 2408 (Build 17928.20114) dürfte ein wenig misslungen sein! Access bleibt nach dem Schließen im Taskmanager...

  5. Laufzeitfehler 9 VBA

    in Microsoft Excel Hilfe
    Laufzeitfehler 9 VBA: Nschdem ich die Office Version von 2010 auf 2019 aktualisiert habe wird mir der Laufzeitfehler 9 ausgegeben. Das ist der Code Sub FiberCollect() Dim NumRows As Long 'letzte celle Dim Counter As...

  6. VBA Laufzeitfehler 9

    in Microsoft Excel Hilfe
    VBA Laufzeitfehler 9: Guten Abende an alle VBA Profi, Ich lerne gerade Programmierung mit VBA und habe fast null Ahnung von Fehlern ich habe folgenden Probleme. ich einen xlsm Datei versuche eine Tabelle mit codename...

  7. [VBA] .Documents.Open -> Laufzeitfehler 91

    in Microsoft Excel Hilfe
    [VBA] .Documents.Open -> Laufzeitfehler 91: Hallo zusammen, bekomme aktuell den Laufzeitfehler 91 an der Codestelle, wo ich versuche ein Word Dokument zu öffnen (Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)), das...

  8. MS Access Lauftzeitfehler "2501"

    in Microsoft Access Hilfe
    MS Access Lauftzeitfehler "2501": Hallo Liebe Office Gemeinde, Ich habe ein Problem mit meinem MS Access, wir haben unsere MA Liste in einer Access DB. Wenn man in unserem Formular auf "Drucken MA" klickt dann wird eine PDF...
  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