Office: Laufzeitfehler 13

Helfe beim Thema Laufzeitfehler 13 in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo , bräuchte kurz hilfe bei dieser Formel : Sub Worksheet_Change(ByVal Target As Range) Dim a a = ActiveSheet.Range("$H$6").Value Set Target =... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von xSettix, 13. August 2022.

  1. xSettix Neuer User

    Laufzeitfehler 13


    Hallo , bräuchte kurz hilfe bei dieser Formel :


    Sub Worksheet_Change(ByVal Target As Range)
    Dim a
    a = ActiveSheet.Range("$H$6").Value
    Set Target = Intersect(Target, Range("$H$8:$H$332,$S$8:$S$332"))
    If Not Target Is Nothing Then
    Application.EnableEvents = False
    Target.Value = (a - Target.Value) / 60
    End If
    Application.EnableEvents = True
    End Sub


    Wenn jemand ausversehen mehere Zeilen mit entf. löscht bekomme ich einen Laufzeitfehler 13 .

    Bitte um Hilfe

    Danke
     
    xSettix, 13. August 2022
    #1
  2. d'r Bastler
    d'r Bastler hat Ahnung
    Moin xSettix,
    grundsätzlich kann man das verhindern, indem man die Zeilen schützt: (Überprüfen > Blatt schützen). Wenn in der Tabelle aber herumgespielt werden soll, vergib für H6 einen Namen (Formeln > Namen definieren) und nutze den im Code.

    Ansonsten:
    Ein Worksheet_Change kann nur im Code eines Worksheets abgefangen werden. ActiveSheet brauchst Du also nicht. a = cells(6,8) genügt. Wenn Du den Code noch erweitern willst, solltest Du die Application symmetrisch anordnen, also innerhalb der if/endif, wobei ich nicht verstehen, wozu Du die Events überhaupt abschaltest.
    Grüße
     
    d'r Bastler, 13. August 2022
    #2
  3. Beverly
    Beverly Erfahrener User
    Hi,

    so sollte es funktionieren:

    Code:
    Sub Worksheet_Change(ByVal Target As Range)
        Dim a
        a = Range("$H$6").Value
        Set Target = Intersect(Target, Range("$H$8:$H$332,$S$8:$S$332"))
        If Not Target Is Nothing Then
            Application.EnableEvents = False
            Target.Value = (a - Target.Cells(1).Value) / 60
        End If
        Application.EnableEvents = True
    End Sub
    


    Laufzeitfehler 13 GrußformelLaufzeitfehler 13 Beverly's Excel - Inn
     
    Beverly, 13. August 2022
    #3
    1 Person gefällt das.
  4. xSettix Neuer User

    Laufzeitfehler 13

    Vielen Dank. Funktioniert Super :)

    Gruß
     
    xSettix, 14. August 2022
    #4
Thema:

Laufzeitfehler 13

Die Seite wird geladen...
  1. Laufzeitfehler 13 - Similar Threads - Laufzeitfehler

  2. 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...
  3. 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...
  4. [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...
  5. 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...
  6. Excel VBA Laufzeitfehler 424 Objekt erforderlich

    in Microsoft Excel Hilfe
    Excel VBA Laufzeitfehler 424 Objekt erforderlich: Hallo zusammen, ich habe schon verschiedene Antworten zum Laufzeitfehler 424 gefunden, komme aber leider damit doch irgendwie nicht weiter (bin absoluter VBA-Neuling). Folgendes Makro habe ich...
  7. Laufzeitfehler "424" Objekt erforderlich Selenium VBA

    in Microsoft Excel Hilfe
    Laufzeitfehler "424" Objekt erforderlich Selenium VBA: Hallo Zusammen, ich möchte mithilfe von Selenium in VBA eine Tabelle auf einer Webseite in eine Excel Tabelle kopieren. Allerdings bekomme ich den Fehler "Laufzeitfehler "424" Objekt...
  8. Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

    in Microsoft Excel Hilfe
    Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".: Hallo Leute,*:)* nachdem ich in die "addIn 1.2.4" ein Sheet RKL eine Dropdownliste und ein Togglebutton hinzugefügt habe bekomme ich beim aufruf der UF die Fehlermeldung "Laufzeitfehler 1004 "Die...
  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.
    Information ausblenden