VBA formule werkt niet

[freezitt]

Hallo,

Ik ben op dit moment aan het worstelen met
een formule in VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim f
With Sheets("Spec extern")
For Each f In Range("F43:F67")
If f = "-" Then f.EntireRow.Hidden = True Else f.EntireRow.Hidden = False
Next
End With
With Sheets("Spec extern")
For Each f In Range("F71:F76")
If f = "-" Then f.EntireRow.Hidden = True Else f.EntireRow.Hidden = False
Next
End With
With Sheets("Spec extern")
For Each f In Range("F92:F108")
If f = "-" Then f.EntireRow.Hidden = True Else f.EntireRow.Hidden = False
Next
End With
Dim g
With Sheets("Spec extern")
For Each g In Range("G111:G145")
If g = "-" Then g.EntireRow.Hidden = True Else g.EntireRow.Hidden = False
Next
End With
End Sub

Het probleem is dat hij nu steeds dit gedeelte:
If g = "-" Then
als een fout aangeeft en vervolgens geeft hij bij de g het
volgende : 9 = fout 2042
weet iemand wat het probleem is?

Alvast bedankt voor de tijd en moeite,
mvg

 

[spaarie]

"-" is een waarde en "g" is een object (doordat je deze gebruikt in een 'For - Next'), probeer een "g.value" te gebruiken.
Buiten dat heb je je "Target" niet benoemd dus bij elke wijziging in het tabblad zal Excel bovenstaande code uitvoeren, wat mij niet gewenst lijkt.

Mocht dit niet lukken, plaats dan even een voorbeeldje in Excel.

 

[sylvester-ponte]

heel vreemd bij mij loopt er niets vast . (excel 2010)
en als het bij g fout gaat dan zou het bij f ook fout moeten gaan.
stuur eens een voorbeeldje waarbij het fout gaat.

 

[snb]

Vergeet die dim en gebruik:

For Each rw In [I]Sheets("Spec extern").[/I]Range("G111:G145").rows
  rw.Hidden <> iserror(application.match("-",rw,0))
Next