Range definiëren

[Bert2010]

Beste Helpers

Ik heb het volgende probleem:

Voordat ik ga printen moeten bepaalde cellen ingevuld worden.
In het voorbeeld moet cel AH6 ingevuld zijn

If Range("AH6").Value = "" Then GoTo Fout Else GoTo Start

Maar ook de cellen AH8 en A23 moeten ingevuld zijn. Hoe definieer ik deze Range?

Wie wil mij helpen?

Bert

 

[edmoor]

Even uit het hoofd:

If Range("AH6").Value = "" Or Range("AH8").Value = "" Or Range("A23").Value = "" Then
    GoTo Fout
Else
    GoTo Start
End IF

 

[Wigi]

Ik ben geen voorstander van spaghetti-code (GoTo en zo), maar als jij dat wil:

If WorksheetFunction.CountA(Range("AH6,AH8,A23")) < 3 Then GoTo Fout Else GoTo Start