hjælp til Excel

D3 er dropdown menu
A09;AZ10 er to rækker, som skal indsættes under.

Men nu sætter jeg den =0, men hvis så 2 bliver lavet, skal den vel bare mulitipliceres, så alle "tilfælde" er med. altså fra 1-55 i mit tilfælde

Kan du sende filen eller en model heraf - så er det vist nemmere at forstå.
@-adresse under min profil.

Hej,

Du kan ikke bare lave en kode for det?

Jeg foretækker at se hvad jeg har med at gøre.

Men så må du vente på andre..

jeg forsøger lige at sende den til dig.

VBA-koden er placeret under Ark1

Const udgangsCelle = "A6"
Dim antalLinjer As Integer

Const skemaStartRæk = 6
Const skemaStartKol = "AO"
Const skemaSlutKol = "AZ"

Const totalRæk = 7
Const totalKolTabel = "D,F,H,K"

Public Sub indsætAntalLinjer()
    Application.ScreenUpdating = False
   
    antalLinjer = Range("D3") * 2
    indsætlinjer Range(udgangsCelle).Row
   
    Range(skemaStartKol & CStr(skemaStartRæk + antalLinjer) & ":" & skemaSlutKol & CStr(skemaStartRæk + antalLinjer * 2) - 1).Select
    Selection.Copy
   
    Range(udgangsCelle).Select
    ActiveSheet.Paste
   
    indsætTotalFormler
   
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
Private Sub indsætlinjer(række)                    'gør plads
    For a = 1 To antalLinjer
        Rows(CStr(række) & ":" & CStr(række)).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next a
End Sub
Private Sub indsætTotalFormler()
Dim tabel As Variant, kol As String, t As Integer, formel As String
    tabel = Split(totalKolTabel, ",")
   
    For t = 0 To UBound(tabel)
        kol = tabel(t)
        formel = "=SUM(" & kol & CStr(skemaStartRæk) & ":" & kol & CStr(skemaStartRæk + antalLinjer - 1) & ")"
       
        Range(kol & CStr(totalRæk + antalLinjer)).Formula = formel
    Next t
End Sub

tusind tak :)