Avatar billede glofp Nybegynder
14. februar 2004 - 16:55 Der er 6 kommentarer og
1 løsning

Makro til indsættelse af argumenter mellem bestemte intervaller

Hej!
Jeg er igang med at lave en makro, som i en postnummer tabel skal kunne indsætte en "rute" indenfor et porstnr. interval. Eksempelvis skal der ved postnr. 1000 til 1250 stå rure 566, og fra 1251 til 2000 stå rute 127.

Jeg har forsøget med en If rutine, men denne kan åbenbart ikke udføre en rutine som "between".  Min makro er indsat herunder:

------------------

Sub løkke2()

Dim itæller, ponr1, ponr2, rute As Integer

ponr1 = Application.InputBox("Skriv fra postnr", , , , , , , 1)
ponr2 = Application.InputBox("Skriv til postnr", , , , , , , 1)
rute = Application.InputBox("Angiv Rutenr.", , , , , , , 1)

For itæller = 1 To 10
If Range("A" & itæller).Value = ponr1 Or Range("A" & itæller).Value <= ponr2 Then
Range("B" & itæller).Value = rute
End If
Next

End Sub

---------------

Jeg skal måske benytte en Case rutine, men denne kan jeg slet ikke få til at fungere.  PLEASE - help me.
Avatar billede kabbak Professor
14. februar 2004 - 16:58 #1
har du kun 10 postnummere, for du læser kun 10 celler. ?
Avatar billede glofp Nybegynder
14. februar 2004 - 17:00 #2
Nej, men dette er kun lavet som et forsøg, for postnummer tabellen er selvfølgelig fra 1000 til 9999 - men et eller andet sted skal jeg jo startem og det er nemmere at lege med kun 10 numre.
Avatar billede glofp Nybegynder
14. februar 2004 - 17:06 #3
Nej, men dette er kun lavet som et forsøg, for postnummer tabellen er selvfølgelig fra 1000 til 9999 - men et eller andet sted skal jeg jo startem og det er nemmere at lege med kun 10 numre
Avatar billede kabbak Professor
14. februar 2004 - 17:08 #4
Sub løkke2()

Dim itæller, ponr1, ponr2, rute As Integer

ponr1 = Application.InputBox("Skriv fra postnr", , , , , , , 1)
ponr2 = Application.InputBox("Skriv til postnr", , , , , , , 1)
rute = Application.InputBox("Angiv Rutenr.", , , , , , , 1)

For itæller = 1 To 10
If Range("A" & itæller).Value >= ponr1 And Range("A" & itæller).Value <= ponr2 Then
Range("B" & itæller).Value = rute
End If
Next

End Sub

sådan
Avatar billede glofp Nybegynder
14. februar 2004 - 17:11 #5
TAK - det var bare det
Avatar billede kabbak Professor
14. februar 2004 - 17:13 #6
så får du et svar fra mig.
Avatar billede kabbak Professor
14. februar 2004 - 17:51 #7
tak for point ;-))
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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.

Du kan også logge ind via nedenstående tjenester