Compleet maken formule

[CRUZ2]

Beste Forumleden,

Met de volgende formule laat ik door rBereik een sheet aanmaken.
Nou wil ik iets aanpassen om de formule compleet te maken.

De volgende functies moeten erin gemaakt worden en ik weet echt niet hoe

• Als B = leeg of 0 dan volgende
• Als Range(B).Value >= rBereik.Value dan melding sheet is aanwezig
• De melding dat de sheet(s) aangemaakt zijn pas aan het einde

Sub sheetsaanmaken()

Dim rBereik As Range
Dim A  As Integer
Dim B As String
Dim C As Integer



For Each rBereik In Range("D64: D68")
A = rBereik.Value
B = rBereik.Offset(0, -2)


If Not Range(B).Value >= rBereik.Value Then
C = rBereik.Value - Range(B).Value
Range(B).Value = A
    For numtimes = 1 To C
    Worksheets(B).Visible = True
    Worksheets(B).Copy After:=Worksheets(B)
    Worksheets(B).Visible = False
    Next
MsgBox "Loadcell sheet(s) word(en) aangemaakt"
Else
If Range(B).Value = "0" Or Empty Then

Else
If Not Range(B).Value >= rBereik.Value Then
MsgBox "Loadcellsheet reeds aanwezig"
End If
End If
End If
Next
End Sub

Kan iemand mij helpen >?

Alvast bedankt,