Skrevet man. d. 13. august 2012 kl. 15:29:45| #1

IT-GuFFe (10.180 point)

Her er en idé til hvordan det kan gøres via VBA.

Sub Lodret()
Kolonne = 1
Række = 2
SvarKolonne = 5

Do Until Len(Cells(1, Kolonne).Text) = 0
    Cells(Række, SvarKolonne) = Cells(1, Kolonne).Value
    Kolonne = Kolonne + 1
    Række = Række + 1
Loop
End Sub

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet man. d. 13. august 2012 kl. 15:34:42| #2

IT-GuFFe (10.180 point)

Her er lige så den linker til cellen istedet

Sub Lodret()
Kolonne = 1
Række = 2
SvarKolonne = 5

Do Until Len(Cells(1, Kolonne).Text) = 0
    Cells(Række, SvarKolonne).Formula = "=" & Cells(1, Kolonne).Address
    Kolonne = Kolonne + 1
    Række = Række + 1
Loop
End Sub

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet man. d. 13. august 2012 kl. 23:14:58| #3

jens48 (22.780 point)

Hvis du vil lave det uden VBA kan denne formel klare det:

=INDIRECT(IF(ROW()>26;CHAR(INT(ROW()/26)+64)&CHAR((ROW()/26-INT(ROW()/26))*26+64);CHAR(ROW()+64))&1)

Der er en begrænsning: der må højst være 2 bogstaver i kolonnenavnet (altså ikke større end ZZ). Hvis der kun er et bogstav i kolonnenavnet et formelen noget simplere:

=INDIRECT(CHAR(ROW()+64)&1)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tor. d. 16. august 2012 kl. 14:55:47| #4

CJU (2.335 point)

Til IT-Guffe,

Jeg beklager at jeg ikke fik skrevet at jeg foretrækker at lave det VBA.

Jens48, Dit forslag virker fint hvis jeg indsætter det i et lille test ark. Men ikke i min store matrix.
Hvad betyder tallene 26 og 64?

Min matrix er fra H82 til BP140

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tor. d. 16. august 2012 kl. 18:42:34| #5

jens48 (22.780 point)

26 er antallet af karakterer i alfabetet (det engelske, som også bruges til at navngive kolonnerne) og 64 er tilføjet rækketallet for at få det til at give det rette bogstav (=CHAR(65) giver "A". Der bruges ASCII karakterer)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 17. august 2012 kl. 14:49:28| #6

CJU (2.335 point)

Jeg kan desværre ikke få det til at virke.

Må jeg maile dig mit ark så du kan indsætte din formel i en af cellerne.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 17. august 2012 kl. 18:50:27| #7

jens48 (22.780 point)

Ja, send det til kober(snabela)mail.dk

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tor. d. 23. august 2012 kl. 23:25:21| #8

jens48 (22.780 point)

Formelen blev en anelse mere kompliceret, men da du har meddelt at det virker, som det skal er her et svar.

=INDIRECT((IF(ROW()>26;CHAR(INT(ROW()/26)+64-IF(ROW()/26=INT(ROW()/26);1;))&CHAR((ROW()/26-INT(ROW()/26))*26+64+IF(ROW()/26=INT(ROW()/26);26;))&COLUMN();CHAR(ROW()+64)&COLUMN())))

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tor. d. 23. august 2012 kl. 23:47:26| #9

jens48 (22.780 point)

Det kan laves en del enklere, hvis R1C1 reference stil bruges. Så ser formelen således ud:

=INDIRECT("R"&COLUMN()&"C"&ROW();FALSE)

Anmeld misbrug

Skriv et svar | Skriv en kommentar