Søg
Avatar billede kim1a Ekspert
03. maj 2012 - 16:09 Der er 4 kommentarer og
1 løsning

VBA: referere til en celle dynamisk

Følgende er udpluk fra min VBA løsning:
Dim Lagerdage As Integer
Lagerdage = Application.WorksheetFunction.Match("Lagerdage", Range("A1:EE1"), 0)

Dette fortæller mig hvilken kolonne (nr) der står Lagerdage i A1:EE1

Nu har jeg så brug for at Excel/VBA indsætter en funktion der siger =if([kolonnen der står lagerdage i]3>90;"gør noget";"fint")

Hvordan referer jeg til dette i VBA?

Jeg roder med:
ActiveCell.FormulaR1C1 = "=IF - men kan ikke få RLagerdageC3 til at give mening.

Jeg forsøger hvergang selv at Google først, og dernæst VBAs hjælp (som jeg iøvrigt finder utrolig dårlig) - men det er jo tit små ting jeg mangler for at forstå "sproget".
Avatar billede store-morten Ekspert
03. maj 2012 - 18:30 #1
Måske
Sub test()
Dim KolTal As Integer
KolTal = Application.WorksheetFunction.Match("Lagerdage", Range("A1:EE1"), 0)

KolBog = Mid(Range("A1").Offset(0, (KolTal) - 1).Address, 2, _
InStr(2, Range("A1").Offset(0, (KolTal) - 1).Address, "$") - 2)

If Range(KolBog & "3").Value > 90 Then
ActiveCell.Value = "Større end 90"
Else
ActiveCell.Value = "Mindre end 90"
End If

End Sub
Avatar billede kim1a Ekspert
03. maj 2012 - 18:42 #2
Hvis vi antager at Lagerdage er kolonne BD

Det er vigtigt at den indsætter en formel i Excel der siger:
=if(BD3>90;"Falsk";"sandt") formlen hedder naturligvis noget længere og andet, men for eksemplets skyld.

Min begrænsede kendskab til VBA gør at jeg gætter på dette ikke ikke - men tværtimod indsætter resultatet - jeg forstår at det i sidste ende giver det samme, men jeg har flere formler som i så fald ville kræve mere af mig, end hvis jeg lærer at få den indsætte relative referencer i en formel.
Avatar billede store-morten Ekspert
03. maj 2012 - 19:00 #3
Jeg kunne ikke få det til at du ;-(

Men nu ;-) Prøv:
Sub test()
Dim KolTal As Integer
KolTal = Application.WorksheetFunction.Match("Lagerdage", Range("A1:EE1"), 0)

KolBog = Mid(Range("A1").Offset(0, (KolTal) - 1).Address, 2, _
InStr(2, Range("A1").Offset(0, (KolTal) - 1).Address, "$") - 2)

ActiveCell.Formula = "=IF(" & KolBog & "3>90,""Større end 90"",""Mindre end 90"")"

End Sub
Avatar billede kim1a Ekspert
07. maj 2012 - 10:22 #4
Super løsning - tak for hjælpen - husk at smide et svar.
Avatar billede store-morten Ekspert
07. maj 2012 - 17:19 #5
Velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:32 Jeg kan ikke opdatere min iPad til ios 26.4.1. Af Bettina i Apps til iOS
I dag 08:32 Office pakke LTSC vs Retail? Af Don G i Office & Kontorpakker
I går 21:19 Lydindstilling Prosonic TV Af TageArent i Fjernsyn & projektorer
I går 15:37 Sort skærm Af mort1 i Windows
09/0412:32 iPadOS 26.4.1 kan ikke opdatere Af claes57 i Apps til iOS
White papers
Flere white papers »