/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Betinget macro i Excel
Fra : Michael Lund Sørense~


Dato : 08-10-01 09:52

Hej Gruppe!

Jeg kunne godt tænke mig at lave en betinget macro i Excel.

Jeg har lavet en macro, men den må kun afvikles under en bestemt betingelse,
ellers går den i kage.
Arket skal være sorteret med en anden macro før den må bruges. Jeg har så
indsat en linie ind i sorterings macroen der sætter et 1-tal i celle BY2
(Range("BY2").Select ActiveCell.FormulaR1C1 = "1") og nu ønsker jeg at
spørge om den værdi er der, hvis ja må min macro afspilles og ved nej skal
der hoppes til en fejltekst.

Hvordan indsætter jeg en If Then Else sætning så den spørger på celle BY2 ?

Måske noget i stil med:

Range("BY2").Select
If ?? = "1" then "Macro1"
else "Macro2"

Macro 1 og Macro2 er lavet, jeg ønsker ikke at lave dem som Application.run
men insætter teksten direkte i stedet for "Macro1" og "Macro2".

Håber nogen kan hjælpe !

--
Hilsen

Michael Lund Sørensen
www.milux.dk




 
 
Michael Lund Sørense~ (08-10-2001)
Kommentar
Fra : Michael Lund Sørense~


Dato : 08-10-01 12:35

Nu er mit problem begrænset til at lave en blok

If Begin kode1 End Then
Begin kode2 End

Men Excel er ikke glad for Begin End
--
Hilsen

Michael Lund Sørensen
www.milux.dk

"Michael Lund Sørensen" <sletdette-milux@image.dk> wrote in message
news:pMdw7.6236$%D3.462693@news000.worldonline.dk...
> Hej Gruppe!
>
> Jeg kunne godt tænke mig at lave en betinget macro i Excel.
>
> Jeg har lavet en macro, men den må kun afvikles under en bestemt
betingelse,
> ellers går den i kage.
> Arket skal være sorteret med en anden macro før den må bruges. Jeg har så
> indsat en linie ind i sorterings macroen der sætter et 1-tal i celle BY2
> (Range("BY2").Select ActiveCell.FormulaR1C1 = "1") og nu ønsker jeg
at
> spørge om den værdi er der, hvis ja må min macro afspilles og ved nej skal
> der hoppes til en fejltekst.
>
> Hvordan indsætter jeg en If Then Else sætning så den spørger på celle BY2
?
>
> Måske noget i stil med:
>
> Range("BY2").Select
> If ?? = "1" then "Macro1"
> else "Macro2"
>
> Macro 1 og Macro2 er lavet, jeg ønsker ikke at lave dem som
Application.run
> men insætter teksten direkte i stedet for "Macro1" og "Macro2".
>
> Håber nogen kan hjælpe !
>
> --
> Hilsen
>
> Michael Lund Sørensen
> www.milux.dk
>
>
>



Harald Staff (08-10-2001)
Kommentar
Fra : Harald Staff


Dato : 08-10-01 12:47

Prøv

Sub Test()
If Range("BY2").Value = 1 Then
MsgBox "En er god"
Else
MsgBox "går i kage"
End If
End Sub

HTH. Beste hilsen Harald

Michael Lund Sørensen <sletdette-milux@image.dk> skrev i
news:R9gw7.6264$%D3.466756@news000.worldonline.dk...
> Nu er mit problem begrænset til at lave en blok
>
> If Begin kode1 End Then
> Begin kode2 End
>
> Men Excel er ikke glad for Begin End
> --
> Hilsen
>
> Michael Lund Sørensen
> www.milux.dk
>
> "Michael Lund Sørensen" <sletdette-milux@image.dk> wrote in message
> news:pMdw7.6236$%D3.462693@news000.worldonline.dk...
> > Hej Gruppe!
> >
> > Jeg kunne godt tænke mig at lave en betinget macro i Excel.
> >
> > Jeg har lavet en macro, men den må kun afvikles under en bestemt
> betingelse,
> > ellers går den i kage.
> > Arket skal være sorteret med en anden macro før den må bruges. Jeg har

> > indsat en linie ind i sorterings macroen der sætter et 1-tal i celle BY2
> > (Range("BY2").Select ActiveCell.FormulaR1C1 = "1") og nu ønsker jeg
> at
> > spørge om den værdi er der, hvis ja må min macro afspilles og ved nej
skal
> > der hoppes til en fejltekst.
> >
> > Hvordan indsætter jeg en If Then Else sætning så den spørger på celle
BY2
> ?
> >
> > Måske noget i stil med:
> >
> > Range("BY2").Select
> > If ?? = "1" then "Macro1"
> > else "Macro2"
> >
> > Macro 1 og Macro2 er lavet, jeg ønsker ikke at lave dem som
> Application.run
> > men insætter teksten direkte i stedet for "Macro1" og "Macro2".
> >
> > Håber nogen kan hjælpe !
> >
> > --
> > Hilsen
> >
> > Michael Lund Sørensen
> > www.milux.dk
> >
> >
> >
>
>



Michael Lund Sørense~ (08-10-2001)
Kommentar
Fra : Michael Lund Sørense~


Dato : 08-10-01 13:38

Jo tak det virker rigtigt fint!
Mit problem var at jeg flere gange fik "Else without If error"
Men det ligger jo i indrykket, tror jeg.

--
Hilsen

Michael Lund Sørensen
www.milux.dk

"Harald Staff" <harald.staff@nrk.no> wrote in message
news:9ps3mq$iaj$1@oslo-nntp.eunet.no...
> Prøv
>
> Sub Test()
> If Range("BY2").Value = 1 Then
> MsgBox "En er god"
> Else
> MsgBox "går i kage"
> End If
> End Sub
>
> HTH. Beste hilsen Harald
>
> Michael Lund Sørensen <sletdette-milux@image.dk> skrev i
> news:R9gw7.6264$%D3.466756@news000.worldonline.dk...
> > Nu er mit problem begrænset til at lave en blok
> >
> > If Begin kode1 End Then
> > Begin kode2 End
> >
> > Men Excel er ikke glad for Begin End
> > --
> > Hilsen
> >
> > Michael Lund Sørensen
> > www.milux.dk
> >
> > "Michael Lund Sørensen" <sletdette-milux@image.dk> wrote in message
> > news:pMdw7.6236$%D3.462693@news000.worldonline.dk...
> > > Hej Gruppe!
> > >
> > > Jeg kunne godt tænke mig at lave en betinget macro i Excel.
> > >
> > > Jeg har lavet en macro, men den må kun afvikles under en bestemt
> > betingelse,
> > > ellers går den i kage.
> > > Arket skal være sorteret med en anden macro før den må bruges. Jeg har
> så
> > > indsat en linie ind i sorterings macroen der sætter et 1-tal i celle
BY2
> > > (Range("BY2").Select ActiveCell.FormulaR1C1 = "1") og nu ønsker
jeg
> > at
> > > spørge om den værdi er der, hvis ja må min macro afspilles og ved nej
> skal
> > > der hoppes til en fejltekst.
> > >
> > > Hvordan indsætter jeg en If Then Else sætning så den spørger på celle
> BY2
> > ?
> > >
> > > Måske noget i stil med:
> > >
> > > Range("BY2").Select
> > > If ?? = "1" then "Macro1"
> > > else "Macro2"
> > >
> > > Macro 1 og Macro2 er lavet, jeg ønsker ikke at lave dem som
> > Application.run
> > > men insætter teksten direkte i stedet for "Macro1" og "Macro2".
> > >
> > > Håber nogen kan hjælpe !
> > >
> > > --
> > > Hilsen
> > >
> > > Michael Lund Sørensen
> > > www.milux.dk
> > >
> > >
> > >
> >
> >
>
>



Harald Staff (08-10-2001)
Kommentar
Fra : Harald Staff


Dato : 08-10-01 19:33

Hei Michael

Neppe innrykk, det er kun kosmetisk. Linjeskift er mer kritisk.

Beste hilsen Harald

"Michael Lund Sørensen" <sletdette-milux@image.dk> wrote in message
news:O4hw7.6269$%D3.468745@news000.worldonline.dk...
> Jo tak det virker rigtigt fint!
> Mit problem var at jeg flere gange fik "Else without If error"
> Men det ligger jo i indrykket, tror jeg.




Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408930
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste