Søg
Avatar billede erehjbe Nybegynder
11. april 2003 - 14:27 Der er 7 kommentarer og
1 løsning

Cellen ved siden af

Hvis man har fundet adressen på en celle ved hjælp af
adr2 = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

Hvordan finder man så cellen ved siden af til højre, og neden under.
Avatar billede jkrons Professor
11. april 2003 - 14:32 #1
adr2 = ActiveCell.Offset(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Avatar billede jkrons Professor
11. april 2003 - 14:32 #2
Hvis aktivcelle er A1 giver koden B2 som svar.
Avatar billede erehjbe Nybegynder
11. april 2003 - 14:43 #3
Kan jeg udvide lidt ?

With Worksheets("2003").Range("a1:a1000")
Set c = .Find(afd, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
End With

Problemet er at jeg finder en celle ud fra en activ celle (afd)
adr1 er den første celle med afd.
Nu vil jeg gerne ha' cellen ved siden af.
Skal bruges til starten på en range.
Avatar billede erehjbe Nybegynder
11. april 2003 - 14:44 #4
Du har selvfølgelig allerede tjent pointsene !
Avatar billede jkrons Professor
11. april 2003 - 14:50 #5
Cellen ved siden af
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)

kan du finde med

adr2 = c.offset(0,1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Så bliver den samlede kode noget i stil med:

With Worksheets("ark1").Range("a1:a1000")
Set c = .Find(adr, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
adr2 = c.Offset(0, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Debug.Print adr2
End If
End With
Avatar billede jkrons Professor
11. april 2003 - 14:51 #6
Sorry! Debug.Print skulle selfølgelig ikke have været med.
Avatar billede erehjbe Nybegynder
11. april 2003 - 15:22 #7
Jeg takker igen
Avatar billede jkrons Professor
11. april 2003 - 15:23 #8
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
Frys linier Af johnnylassen i Excel 1 07/12/202513:12 07/12/202513:17
I excel Hent data fra et regneark til et andet regneark Af jørn meyer i Excel 10 06/12/202519:49 08/12/202520:10
Kan man oprette datavalidering i en celle på baggrund af datavalidering i anden celle? Af Holle i Excel 3 05/12/202511:47 05/12/202521:23
Arbejdskort/ serviceoverblik Af ABE15 i Excel 1 05/12/202511:39 05/12/202512:45
Formlen Subtotal Af boro23 i Excel 12 05/12/202510:34 08/12/202513:24
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 går 23:48 Google Ads visning af annonce kun i dagtimer Af Strawberry i Søgemaskiner
I går 19:12 Sært problem med 5G netværk Af indicator72 i Wifi
12/1221:05 Klokkeslætsformat kort/langt Af ErikHg i Windows
12/1211:53 Fjernelse af irriterende pop up vindue Af ErikHg i Windows
12/1211:28 Sortering i mapper Af Malm i Windows
White papers
Flere white papers »