Makro Fehlermeldung - Typen unverträglich
25.10.2014 12:28:00
D.
hänge mal wieder mit einem Makro, leider versteh ich das Problem nicht:
Habe ein Makro das in einer Excel problemfrei funktioniert und in einer anderen wird die Fehlermeldung "Typen unverträglich" ausgegeben (Code unten).
Habe den Code unten eingefügt und die Zeile die beim Debuggen gelb angezeigt wird unten fett markiert.
Aufbau und Beschriftung der beiden Excelbereiche ist analog. Mit Format übertragen habe ich hoffentlich erfolgreich versucht, auch die Formatierungen analog zu halten.
Da ich mich mit Makros nicht auskenne wäre die Bitte, ob sich das jemand anschauen kann.
Bei Bedarf lade ich die Beispielexcel hoch.
Danke vorab und schöne Grüsse
Daniel
Sub A_Liste_Schritt_1_Keywords_Thematiken_zusammenbringen()
Dim objThema As Object, objThemaID As Object
Dim rngC As Range
Dim arr, arrKeys
Dim i As Long, j As Long
Set objThema = CreateObject("Scripting.Dictionary")
Set objThemaID = CreateObject("Scripting.Dictionary")
For Each rngC In Range(Cells(4, 8), Cells(Rows.Count, 8).End(xlUp))
objThema(rngC.Value) = 0
objThemaID(rngC.Value & "_" & rngC.Offset(, 1).Value) = 0
Next
arr = Cells(3, 1).CurrentRegion
arrKeys = objThema.keys
ReDim Preserve arr(1 To UBound(arr), 1 To objThema.Count + 4)
For i = 0 To UBound(arrKeys)
arr(1, i + 5) = arrKeys(i)
Next
For i = 2 To UBound(arr)
For j = 5 To UBound(arr, 2)
If objThemaID.exists(arr(1, j) & "_" & arr(i, 1)) Then
arr(i, j) = "x"
End If
Next
Next
Cells(3, 13).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub