Opret talrække

Private Sub CommandButton1_Click()
Dim Lav, Hoj, Spring
Lav = Range("A1").Value
Hoj = Range("A2").Value
Spring = Range("A3").Value

Do While Lav < Hoj
    Tal = Tal + 1
    Range("B" & Tal).Value = Lav + Spring
    Lav = Lav + Spring
Loop
End Sub

En lille rettelse. Den gik en over 10 ved tal der ikke gik op i 10

Private Sub CommandButton1_Click()
Dim Lav, Hoj, Spring
Lav = Range("A1").Value
Hoj = Range("A2").Value
Spring = Range("A3").Value
Do While 1
    Tal = Tal + 1
    If Lav + Spring > Hoj Then Exit Sub
        Range("B" & Tal).Value = Lav + Spring
    Lav = Lav + Spring
Loop
End Sub

Hvor skriver jeg koden?

denne gang har jeg opdateret men denne bruger en indbygget funktion :-)

Sub Macro3()
  Dim Lav, Hoj, Spring
  Lav = Range("A1").Value
  Hoj = Range("A2").Value
  Spring = Range("A3").Value
 
  Range("F1") = Lav
  Range("F1").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=Spring, Stop:=Hoj
End Sub

bak: Jeg har endnu rigtig meget at lære ;-)

tranborg -med mit eksempel: Fremkald værktøjslinien "Kontrolelementer" i Excel. Der kommer en menu med forskellige objekter frem. Klik på nr. 4 i venstre kolonne af "Kontrolelementer", den der ved mouseover hedder "kommandoknap", og ligner en knap. Placér den et sted på arket. Dobbeltklik på knappen, og erstat koden

Private Sub CommandButton1_Click()
End Sub

med det jeg skrev. Klik på øverste venstre knap på værktøjslinien "kommandoknap", den med en lineal, trekant og blyant. Udfyld værdier i cellerne A1, A2 og A3 og klik på knappen. resultatet kommer i celle B1 og ned.

bak: Skal koden "smides" ind som akyhne beskriver? If so Hvor fremkommer mit resultat?

akyhne: Den laveste værdi kommer ikke med i talrækken. Desuden "mangler" jeg at den gamle talrække slettes når der beregnes en ny talrække.

Hvis du skal bruge bak's kode:

I Excel: Tryk Alt+F11. Du kommer ind i VBA vinduet
I venstre øverste felt står der sikkert

Ark1(Ark1)
Ark2(Ark2)
Ark3(Ark3)

Højreklik på en af disse, og vælg Insert -> Module.
Indsæt bak's kode i denne (Module 1)
Luk VBA editoren, eller skift over til Excel.
Går til "Funktioner" -> "Makro" -> "Makroer".
I vinduet der dukker op skulle der gerne stå macro3.
Markér den og klik afspil.

Private Sub CommandButton1_Click()
Dim Lav, Hoj, Spring
Dim Tal
Tal = 1
Columns("B:B").ClearContents
Lav = Range("A1").Value
Hoj = Range("A2").Value
Spring = Range("A3").Value
Range("B1").Value = Lav
Do While 1
    Tal = Tal + 1
    If Lav + Spring > Hoj Then Exit Sub
    Range("B" & Tal).Value = Lav + Spring
    Lav = Lav + Spring
Loop
End Sub

Tak for hjælpen

Private Sub CommandButton1_Click()
End Sub

og

Sub Macro3()
End Sub

fortæller bare hvad der aktiverer makroen. Alt hvad der står derimellem er koden. Så du kan som udgangspunkt sagtens bruge bak's kode på en knap(commandbutton), og omvendt.

Koden
Private Sub CommandButton1_Click()
End Sub

skal dog stå i et af arkene med en tilhørende knap, og koden
Sub Macro3()
End Sub

i et modul.

Velbekomme. Og du vil vel gerne have et svar fra os.

Ellers kan jeg vel ikke udele point?