Laufzeitfehler beim Finden leerer Zellen
22.11.2022 11:50:08
rr
darf ich Euch nochmal um einen Rat bitten: Mein Makro soll all die Zellen zu finden, deren Formeln einen leeren String ausgeben oder die leer sind.
Ich bekomme jedoch den "Laufzeitfehler 13 Typen unverträglich" in der Zeile
If myC.Value = "" Then
Sub checkCells()
Dim chkRange As Range, myC As Range
Dim msg As String
'Hier die Zellen eintragen die geprüft werden sollen
Set chkRange = Range("TabelleMetadaten")
msg = ""
For Each myC In chkRange
If myC.Value = "" Then
msg = msg & myC.Address & vbCrLf
End If
Next
If msg = "" Then
Call XLS_nach_TXT_Export
Else
MsgBox "Folgende Zellen sind leer:" & vbCrLf & msg, vbInformation + vbOKOnly, "Prüfergebnis"
End If
End Sub
Für Tipps bin ich dankbar!
Regina
Anzeige