Laufzeitfehler 13 - Typen unverträglich
06.04.2020 17:39:19
Peter
ich weiß nicht voran es liegt, seit kurzem bekomme ich bei meiner Makro einen Laufzeitfehler 13 angezeigt.
Der Debugger zeigt auf den Eintrag: If c.Value "" Then
Da ich in VBA noch ganz am Anfang stehe, bitte ich Euch um Hilfe.
Sub Makro2_leere_Zeilen_ausblenden(Blatt As Worksheet)
Dim c As Range
Blatt.Unprotect ""
For Each c In Blatt.Range("A33:A892")
If c.Value "" Then
c.EntireRow.Hidden = False
Else
c.EntireRow.Hidden = True
End If
Next c
'Application.ScreenUpdating = True 'Schaltet den Bildschirm wieder ein
'Application.Calculation = xlCalculationAutomatic 'Schaltet die automatische Neuberechnung _
ein
' Call Calculate
Blatt.Protect Password:=""
End Sub