Kann mir vllt jemand helfen? Ich habe schon diverse Google Suchen hinter mir aber hat mir bisher nicht recht weitergeholfen.
Also ich habe ein Overview-Sheet das Daten von diversen anderen Sheets zusammenfasst. Diese sind einfach per Referenz eingefügt.
Sobald nun in einem der diversen anderen Sheets eine neue Zeile mit einen neuen Eintrag einfüge und diese später wieder lösche, erscheint ein #REF Error im Overview-Sheet.
Nun möchte ich verhindern das dieser Ref Error im Overview auftaucht bzw. die Zeile mit dem Fehler löschen.
Dies habe ich mit einen einfachen Button realisiert.
Per Klick auf den Button wird das Overview-Sheet nach Ref Error's abgesucht.. Nur funktioniert das ganze nicht..
Der Debugger wirft einen Run-time Fehler '13' Type mismatch.
Hier ist mein Code:
Private Sub UpdateButton_Click()
Dim iRow As Long
Dim i As Long
Dim check_txt As String
iRow = ThisWorkbook.Sheets("MGMT-Overview").Cells(Rows.Count, 12).End(xlUp).Row
'Color in the important Content
ThisWorkbook.Sheets("MGMT-Overview").Range("F4:H" & iRow).Interior.Color = RGB(214, 220, 228)
'Search for any false Values in Sheet
For i = 4 To iRow
'Beide Versionen durch Google suchen gefunden und ohne erfolg ausprobiert
If Cells(2, i).Value = CVErr(xlErrRef) Then
'If (Application.IsError(Cells(2, i).Value)) Then
ThisWorkbook.Sheets("MGMT-Overview").Rows(iRow).EntireRow.Delete
i = i - 1
End If
Next i
End Sub