Excel cellen +1 optellen mits er een getal in staat

[kokkie20]

Hallo,
Ik heb een erg kleine excel sheet met een paar gegevens erin.
Wat ik nu graag zou willen hebben is dat als ik op 1 button druk, dat hij dan bij 1 bepaalde rij het oude getal + 1 doet.
Maar alleen bij de cel waar ook echt een getal in staat.
Ik heb al diverse dingen geprobeerd, maar op het moment dat ik de button druk, doet hij ook bij de lege cellen (waar geen cijfers in staan) een +1.
Iemand enig idee om dit op te lossen?
Na wat aanpassingen en vergeten de oude code op te slaan, voegt hij nu alleen maar een +1 bij de cellen waar niets in staat, het moet juist nou net andersom...
De getallen tussen D6 en D14 verschillen tussen 0 t/m 900
Hierbij de code die ik gebruik:

Sub Rechthoek1_Klikken()
    For Each c In Worksheets("Banking").Range("D6:D14").Cells
         If c.Value >= 0 And Not c.Value <> Empty Then
        c.Value = c.Value + 1
        End If
    Next
End Sub

Iemand die me hiermee kan helpen ?

 

[kokkie20]

Hallo,
als ik dat doe dan gaat hij alsnog de lege velden een +1 geven.
Heb hem iets aangepast nu heb nu dit:

Sub Rechthoek1_Klikken()
    For Each c In Worksheets("Banking").Range("D6:D14").Cells
         If c.Text > 0 Then
        c.Value = c.Value + 1
        End If
    Next
End Sub

Nu doet hij alles wat een waarde boven de 0 heeft (Maar sommige velden hebben het getal 0 ook erin staan).
Heb als bijlage een afbeelding toegevoegd, misschien dat het dan iets makkelijker is.
Zoals je kunt zien in de onderste rij staat er 0, en op het moment dat ik de button druk dan blijft hij op 0 staan, terwijl die dan eigenlijk naar 1 moet springen.

 

[hoogteijling]

Sub Rechthoek1_Klikken()
    For Each c In Worksheets("Banking").Range("D6:D14").Cells
         If c.Text => 0 Then
        c.Value = c.Value + 1
        End If
    Next
End Sub

 

[kokkie20]

Hallo,
Bedankt voor je antwoord, maar op het moment dat ik dat zo doe dan gaat hij weer die lege cellen onder "Periods" ook een 1 geven, terwijl er eigenlijk helemaal niets in die cellen staan ?
Ok heb het eigenlijk met een simpele oplossing kunnen oplossen.
Ben niet zo goed in vba en dat soort dingen maar na wat uitzoek werk kwam ik op dit uit:

Sub Rechthoek1_Klikken()
    For Each c In Worksheets("Banking").Range("D6:D14").Cells
         If c.Text >= 0 And Not c.Text = "" Then
        c.Value = c.Value + 1
        End If
    Next
End Sub

En nu werkt hij goed, toch bedankt voor je hulp !!!!