Hej,

Har ett problem som jag inte hittar lösningen på. Problemet kan förklaras så här:

Antal (variabel): 3 "cell A1"


resultat (funktion): "A1" (3)
"A1-1" (2)
"A1-2" (1)


Problemet är att jag kan inte få funktionen att bara skriva ut svaren på de rader som baseras på värdet i A1.

Om "A1" = 5 så vill jag att den skriver ut:

Antal (variabel): 5 cell "A1"


resultat (funktion): "A1" (5)
"A1-1" (4)
"A1-2" (3)
"A1-3" (2)
"A1-4" (1)


Vill alltså ha en funktion som f(x) = A1-n (där n = 0, 1, 2,... (A1-1))



Nån som fattar vad jag är ute efter som som har en lösning?


mvh,
Fredrik

Hmm, du menar en funktion som returnerar ett integer värde.

Det var ett tag sen jag höll på med Excel så det kan vara lite fel.
<code>
Function F(N As Integer) As Integer
F=CInt(Range("A1").FormulaRCD1) - N
End Function

Jag antar att jag inte förstod frågan(?)

/Jörgen

nja, det är jag jag som inte kan förklara....

Får jag svar på detta så fixar jag resten:

Varibel exemple 4
Nu vill jag att Excel sks skriva ut:
1
2
3
4


Hade mitt exempel varit 5 så
1
2
3
4
5

Troligtvis ganska lätt att lösa men... hmm jag kommer inte på hur.

/Fredrik

"Skriva ut" - innebär detta att du vill fylla celler med det?

Isf:

Antingen får du ha formler i cellerna (antar att du inte vill ha det) som ser ut så här:

A1: din varibel

A2 och framåt:

=OM(RAD()-1<=$A$1;RAD()-1;"")

-

Annars får du ha ett makro som triggas varje gång A1 ändras. Nånting i stil med:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim i As Long
i = Target.Value
Columns("A").Delete
Range("A1") = i
For i = 1 To Range("A1")
Cells(i + 1, "A") = i
Next
End If
End Sub

Tack tack,
Tror precis att du löst mitt problem.


mvh,
Fredrik