Hent en celleværdi ind i en macro.

Public Sub kopier()
Const antalCelle = "A1"                'celle for antal
Dim tekst As String, antal As Integer
    tekst = ActiveCell.Text
    antal = Range(antalCelle)
   
    For x = 1 To antal - 1
        ActiveCell.Select              'testen i den aktive celle kopieres antal - 1 gange
        Selection.Offset(x, 0) = tekst
    Next x
End Sub

Mange tak for dit hurtige svar.  Det er lidt for kompliceret for mig.

Når jeg i en macro skriver:  Dim antal as integer -- ønsker jeg blot at antal tildeles en værdi fra en bestemt celle(kunne være A1).

Hvilken kommando skal jeg skrive: ?????  antal = ????? eller hvad.

Jeg har styr på at få gentaget udskriften flere gange når jeg blot i macroen bruger et fast antal gange som for eksempel for i = 1 to 5 ---- så virker min macro. Men antal kan variere fra 100 til 500.

Selv tak - lidt mere forklaring t/VBA-koden:

- Den celle hvor det ønskede antal skrives i er A1
- I en tilfældig anden celle skrives teksten, der ønskes gentaget
- Antal aflæses fra den anførte celle (A1) og tildelesen variabel kaldet antal
- Det ønskede tekst hentes fra den celle, hvor teksten er indtastet og tildeles variablen tekst
- Det er disse variabler, der anvendes i gentagelsen (For..Next)
- Rækken beregnes ud fra den første række med en forskydning nedad (Offset(Række, Kolonne) for hvert gentagelse

Hvis det kan hjælpe så kan jeg sende mit eksempel. Send en mail til min @-adresse (se under min profil)

Lykkedes det?

Det Lykkedes

Fint..