ich sitze nun bereits eine Weile an einer Excel und da ich VBA-Neuling bin, kommen natürlich für mich vollkommen unverständliche Fehler auf. Ein Beispiel hierzu ist dieses hier:
Ich möchte hiermit im Worksheet "Cache" nach Differenzen zu "Ranks" suchen und diese Differenzen dann im Sheet Ranks hervorheben. Ich habe das Gefühl, dass die Suche funktionieren dürfte, da ich sie in einem anderen Beitrag gefunden habe.
Was jedoch einen Fehler ausspuckt, ist die Färbung des Rahmens der jeweiligen Zellen.
Jemand eine Idee woran das liegen könnte? Ich kann nicht herausfinden, woran es liegen mag.
Und das ist derzeit einer von mehreren Fehlern in meiner Excel.
Sub Search()
Dim ws As Worksheet
Dim i As Integer
Dim c As Range
Dim RowCacheH As Integer
Dim RowRanksH As Integer
Dim Material As String
RowRanksH = Sheets("Hofer-Ranks").Range("B65536").End(xlUp).Row
RowCacheH = Sheets("Hofer-Cache").Range("B65536").End(xlUp).Row
Set ws = Worksheets("Hofer-Cache")
For i = 2 To RowRanksH
Material = Sheets("Hofer-Ranks").Cells(i, "B")
Set c = ws.Range("B65536").End(xlUp).Find(Material, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
GoTo Skip
Else
Sheets("Hofer-Ranks").Cells(i, "B").Borders.Color = vbRed
End If
Skip:
Next i
End Sub
Ich bedanke mich bereits im Vorfeld. Ich nehme an, dass es ein sehr offensichtlicher Fehler ist, ich nur leider unfähig bin, ihn zu erkennen.
VG
Jacek