Makro til forøgelse af værdier

If [a1] > 0 Then Range("c1:C6") = 1

hvorfor skal alle være 1 ??

Sub test()
If Range("A1") > 0 Then Range("C" & Range("A1")) = 1
End Sub

Sub Taltest()
Dim strValue As String, intValue As Integer
Dim LowLimit As Integer, HighLimit As Integer
LowLimit = 1
HighLimit = 6
strValue = Range("A1")
If IsNumeric(strValue) Then
    If CInt(strValue) / CSng(strValue) = 1 Then
        intValue = CInt(strValue)
        If intValue < LowLimit Or intValue > HighLimit Then
            'Tallet er uden for forventet grænse - skal der ske noget?
        Else
            Range("C" & intValue) = 1
        End If
    Else
        'Det er ikke et heltal - skal der ske noget?
    End If
Else
    'Det er ikke et tal - hvad skal der ske?
End If
End Sub

Har nok ikke udtrykt mig klart nok.
Ønsket er:
Når a1=1 så c1 = 1
Når a1=2 så c1 = 1 og c2 = 1
Når a1=3 så c1 = 1 og c2 = 1 og c3 = 1
Når a1=4 så c1 = 1 og c2 = 1 og c3 = 1 og c4 = 1
osv....
Håber dette hjælper på forståelsen.

Sub test()
  Range("C1:C50").ClearContents
  If Int(Range("A1")) > 0 Then Range("C1:C" & Int(Range("A1"))) = 1
End Sub

SÅDAN bak!
Det kører bare!!!
Et svar!

ok .-)