Laufzeitfehler 438 bei countif
11.02.2015 08:43:29
Chris
ich hab schon gegoogelt und ein paar andere Sachen probiert. Nach einer Stunde geb ich auf. In meiner Spalte H stehen "Ja" "Nein" und auch leere Zellen. Im Prinzip möchte ich nachsehen ob noch ein "Nein" über ist und dann das Tabellenblatt einfärben.
Ich hab absolut keine Ahnung wo der Fehler ist. Eigentlich ist der Syntax doch richtig..
===========================================
Private Sub Worksheet_Selectionchange(ByVal Target As Range)
'Abfrage für einfärben des Blattes bei alles erledigt
Dim i As Integer
Dim lrow As Integer
Dim Anzahl As Integer
lrow = Cells(Rows.Count, 8).End(xlUp).Row
Anzahl = Application.WorksheetFunktion.CountIf(Range("H11:H" & lrow), "Nein")
'If Anzahl