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
. Hier der ganze Code
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
Das Makro hat schon einmal funktioniert, heute geht es plötzlich nicht mehr. Geändert habe ich, dass ich Option explicit aktiviert habe. Kann das zusammen hängen? Oder habe ich versehentlich etwas anderes zerstört? Für Tipps bin ich dankbar!
Regina