Kopiering af formler

Sub xFormula()

start1 = 2 ' start1=start række  - Ret B til aktuel kolonne

For t = 2 To 6
Cells(start1, "B").Formula = "=1801!" & Chr(64 + t) & "22"
Cells(start1 + 1, "B").Formula = "=1801!" & Chr(64 + t) & "24"
start1 = start1 + 2
Next

start2 = 2

For t = 2 To 6 ' start2=start række  - Ret C til aktuel kolonne

Cells(start2, "C").Formula = "=1801!" & Chr(64 + t) & "27"
Cells(start2 + 1, "C").Formula = "=1801!" & Chr(64 + t) & "29"
start2 = start2 + 2
Next

'osv osv

End Sub

Jeg er blank i forhold til dit svar. :-)
Bruger dansk excel.

Det er en Visual Basic Code "Makro"
er du bekendt med dem ?

Nej desværre... Jeg er totalt novice.

I arket taster du ALT + F11 (dette er VBA editor)
I menuen Insert vælger du Module
Så indsætter du vba-koden i den store hvide boks til højre
vba-Koden er alt imellem Sub xFormula() og End Sub
begge linier inclusive

Tilbage i arket taster du ALT + F8 og vælger xFormula
og klikker på Run/Start

formlerne indsættes i området B2:C11

Jeg må have forklaret mig forkert. :-) Prøver lige igen.

Vi har kolonne C i ark 2, som skal trække info fra ark 1.
Ark 2 skal konverteres til en csv-fil, så jeg kan trække noget info fra skemaet over i min outlook-kalender.

Det starter her:

C12's formel hedder =1801!b7
C13's formel hedder =1801!b9
C14's formel hedder =1801!c7
C15's formel hedder =1801!c9
C16's formel hedder =1801!d7
C17's formel hedder =1801!d9
C18's formel hedder =1801!e7
C19's formel hedder =1801!e9
C20's formel hedder =1801!f7
C21's formel hedder =1801!f9

-------------Ovnstående er 1 uge-------------

C22's formel hedder =1801!b12
C23's formel hedder =1801!b14
C24's formel hedder =1801!c12
C25's formel hedder =1801!c14
C26's formel hedder =1801!d12
C27's formel hedder =1801!d14
C28's formel hedder =1801!e12
C29's formel hedder =1801!e14
C30's formel hedder =1801!f12
C31's formel hedder =1801!f14

---------Ovenstående er 1 uge-------------

Og sådan fortsætter det til og med C231. :-)

DVS. For hver uge stiger intervallet i formlen med 5.
Fra C32-C41 hedder den skiftevis 1801!b17 og 1801!b19

Giver det mening?

Slet den første kode og erstat den med denne :

Sub zFormula()
start1 = 12

For t = 7 To 116 Step 5
For r = 2 To 6
Cells(start1, "C").Formula = "=1801!" & Chr(64 + r) & t
Cells(start1 + 1, "C").Formula = "=1801!" & Chr(64 + r) & t + 2
start1 = start1 + 2
Next
Next

End Sub

Det virker! Ville ønske jeg kunne gennemskue den ovenstående formel. Men jeg fatter simpelthen ikke hvad det er du har skrevet.
Plejer ellers nok at kunne gennemskue det og lære af det. :-)

Mange tak for hjælpen!

velbekom

Chr(65) returnerer bogstavet A (65 er tegnets ascii kode)
Chr(64+r) returnerer bogstavet B hvis r har værdien 2
altså 64+r som er 2 = 66 som er ascii-koden for B
Så tilføjes variablen t som i første gennemløb har værdien 7
"=1801!" siger sig selv, som er Arknavnet, hertil tilføjes ovenstående
fundne værdier  B og 7