Office: 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

 

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.

 

Hallo,

Ergänzung zu meinem vorigen Posting:
Ein Umwandlungsfehler tritt auch auf, falls du mehrere Zellen selektierst, da ja "oldValue" kein Array-Typ ist.

 

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