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
> > >
> > >
> > >
> >
> >
>
>