Office: Laufzeitfehler 13 Typen unverträglich

Helfe beim Thema Laufzeitfehler 13 Typen unverträglich in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich bräuchte da mal eure Hilfe :) Wenn ich eine Zeile markiere erhalte ich die Fehlermeldung Laufzeit 13 Typen unverträglich. Was... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von felipepuertes, 16. März 2022.

  1. Laufzeitfehler 13 Typen unverträglich


    Hallo zusammen,

    ich bräuchte da mal eure Hilfe :)

    Wenn ich eine Zeile markiere erhalte ich die Fehlermeldung Laufzeit 13 Typen unverträglich.
    Was mache ich nur falsch? beim debuggen bleibt der Code bei oldValue = Target.Value stehen. Hier der Makrocode dazu:

    Dim oldValue As String
    Dim oldAddress As String


    Public Sub Workbook_Open()
    Sheets("LogDetails").Visible = xlSheetVeryHidden
    End Sub


    Public Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Sheets("LogDetails").Visible = xlSheetVisible Then
    Sheets("LogDetails").Visible = xlSheetVeryHidden
    Else
    Sheets("LogDetails").Visible = xlSheetVisible
    End If
    Target.Offset(1, 1).Select
    End Sub

    Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim sSheetName As String
    sSheetName = "Data"
    If ActiveSheet.Name <> "LogDetails" Then
    Application.EnableEvents = False
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name & " - " & Target.Address(0, 0)
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = oldValue
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Target.Value
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Environ("username")
    Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Now
    Sheets("LogDetails").Hyperlinks.Add Anchor:=Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 5), Address:="", SubAddress:="'" & sSheetName & "'!" & oldAddress, TextToDisplay:=oldAddress

    Sheets("LogDetails").Columns("A:D").AutoFit
    Application.EnableEvents = True
    End If
    End Sub

    Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    oldValue = Target.Value

    oldAddress = Target.Address
    End Sub



    Ich danke euch schon jetzt ganz herzlich.

    LG
     
    felipepuertes, 16. März 2022
    #1
  2. Exl121150 Erfahrener User
    Hallo,

    du hast die Variable "oldValue" als String (=Zeichenkette) deklariert.
    Falls du zB. im aktiven Arbeitsblatt eine Zelle selektierst, die einen Fehlerwert (zB. #NV oder #DIV/0!) enthält, bekommst du bei der Typumwandlung vom Variant-Wert "Target.Value" in den String-Typ "oldValue" genau besagtes Problem.
     
    Exl121150, 16. März 2022
    #2
  3. Exl121150 Erfahrener User
    Hallo,

    Ergänzung zu meinem vorigen Posting:
    Ein Umwandlungsfehler tritt auch auf, falls du mehrere Zellen selektierst, da ja "oldValue" kein Array-Typ ist.
     
    Exl121150, 16. März 2022
    #3
    1 Person gefällt das.
  4. Laufzeitfehler 13 Typen unverträglich

     
    felipepuertes, 16. März 2022
    #4
  5. Exl121150 Erfahrener User
    Hallo,

    da ich nicht wusste, was deine kommentarlose Info im letzten Posting bezwecken sollte, habe ich deinen Code in ergänzter/optimierter Form angefügt:
    Code:
    Option Explicit
    
    Dim oldValue As String
    Dim oldAddress As String
    
    Public Sub Workbook_Open()
       Sheets("LogDetails").Visible = xlSheetVeryHidden
    End Sub
    
    Public Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
       On Error Resume Next
       With Sheets("LogDetail")
          If .Visible = xlSheetVisible Then
             .Visible = xlSheetVeryHidden
          Else
             .Visible = xlSheetVisible
          End If
       End With
       Target.Offset(1, 1).Select
    End Sub
    
    Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
       Dim sSheetName As String, vAnchor As Variant
       sSheetName = "Data"
       If Sh.Name <> "LogDetails" Then
          On Error GoTo End_ShChg
          Application.EnableEvents = False
          With Sheets("LogDetails")
             With .Range("A" & Rows.Count).End(xlUp)
                .Offset(1, 0).Value = Sh.Name & " - " & Target.Address(0, 0)
                .Offset(0, 1).Value = oldValue
                .Offset(0, 2).Value = Target.Value
                .Offset(0, 3).Value = Environ("username")
                .Offset(0, 4).Value = Now
                vAnchor = .Offset(0, 5).Value
             End With
             .Hyperlinks.Add Anchor:=vAnchor, Address:="", _
                             SubAddress:="'" & sSheetName & "'!" & oldAddress, _
                             TextToDisplay:=oldAddress
             .Columns("A:D").AutoFit
          End With
    End_ShChg:
          Application.EnableEvents = True
       End If
    End Sub
    
    Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
       On Error GoTo Err_ShSelChg
       With Target
          oldValue = .Value
    Nxt_ShSelChg:
          oldAddress = .Address
       End With
       Exit Sub
    Err_ShSelChg:
       MsgBox Prompt:="Fehler Nr." & Err.Number & vbNewLine & "(" & Err.Description & ")", _
              Title:="Fehler in SheetSelectionChange"
       oldValue = "Fehler " & Err.Number
       Resume Nxt_ShSelChg
    End Sub
    
     
    Exl121150, 16. März 2022
    #5
Thema:

Laufzeitfehler 13 Typen unverträglich

Die Seite wird geladen...
  1. Laufzeitfehler 13 Typen unverträglich - Similar Threads - Laufzeitfehler Typen unverträglich

  2. Objektvariable Blockvariable Laufzeitfehler 91

    in Microsoft Excel Hilfe
    Objektvariable Blockvariable Laufzeitfehler 91: Moin, bin mit folgendem VB Code etwas ratlos. Hab da auch nicht soviel Ahnung. Ich sammele Veränderungen aus einer Tabelle und will sie dann per Mail versenden. Würde mir jemand eine Lösung...
  3. Laufzeitfehler 424: Objekt erforderlich seit Umstellung auf O365

    in Microsoft Excel Hilfe
    Laufzeitfehler 424: Objekt erforderlich seit Umstellung auf O365: Hallo zusammen, ich habe von einem Arbeitskollegen mal diese Excel bekommen um mir etwas Arbeit zu ersparen. Ich bin nun umgestiegen auf M365 und plötzlich funktioniert die Excel nicht mehr....
  4. Fehlermeldung Laufzeitfehler '13' Typen unverträglich

    in Microsoft Excel Hilfe
    Fehlermeldung Laufzeitfehler '13' Typen unverträglich: Hallo Zusammen, in meiner Excel Tabelle erscheint mir diese Fehlermeldung: Laufzeitfehler '13' Typen unverträglich. Und am Code zeigt mir an der Stelle "If Not Target.Value ="" Then" den Fehler...
  5. Laufzeitfehler '13': Typen unverträglich

    in Microsoft Excel Hilfe
    Laufzeitfehler '13': Typen unverträglich: Hallo, bräuchte bitte noch einmal Eure Hilfe. Möchte mit einem Makro Zeilen oder Spalten ausblenden. wenn ich Rows("15:22").Select eingebe funktioniert es. Code: Sub Makro3()...
  6. Laufzeitfehler 13: Typen unverträglich

    in Microsoft Excel Hilfe
    Laufzeitfehler 13: Typen unverträglich: Hallo Leute, ich habe das Problem, dass mir mein VBA Programm immer den Laufzeitfehler 13 (Typen unverträglich) bringt und ich aber nicht weiß wieso. Hier ist der relevante Auszug aus meinem VBA...
  7. Laufzeitfehler 13 Typen unverträglich

    in Microsoft Access Hilfe
    Laufzeitfehler 13 Typen unverträglich: Hallo zusammen, ich stelle gerade eine Application von 2003 auf 2010 um. Einige Stolpersteine habe ich schon überwunden, aber an dieser Stelle komme ich nicht weiter. Ich muss auch sagen, dass...
  8. VBA Laufzeitfehler 13 Typen unverträglich

    in Microsoft Word Hilfe
    VBA Laufzeitfehler 13 Typen unverträglich: Moin. Ich hatte eine Idee, deren Umsetzung leider nicht so ganz klappt: Ich wollte Code aus UF2 in UF1 einfügen, um die entgültige Bearbeitung dann über einen Button in UF 1 durchzuführen....
Schlagworte:
  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