---

Hej

Jeg skriver følgende :

Sub OpdFaelP()
Dim i, FaelP

OpdDato

FaelP = Sheets("Faste").Range("B3")

Sheets("Varme-Vand").Select
Range("B5").Select
ActiveCell.Offset(Rowoffset:=0, ColumnOffset:=StartInd).Activate

For i = 1 To 12 - StartInd
Selection.Value = FaelP
ActiveCell.Offset(Rowoffset:=0, ColumnOffset:=1).Activate
Next

End Sub

men får følgende compile fejl : "sub or function not defined"


Er der nogen der vd hvad der går galt her ???



På forhånd tak

Allan Bredahl

---

Har du en sub eller funktion der hedder OpdDato ellers er det her fejlen
ligger.

MVH Carsten

"Allan Bredahl" <a@bredahl.org> skrev i en meddelelse
news:xAVL6.3633$h4.1194425@news101.telia.com...
> Hej
>
> Jeg skriver følgende :
>
> Sub OpdFaelP()
> Dim i, FaelP
>
> OpdDato
>
> FaelP = Sheets("Faste").Range("B3")
>
> Sheets("Varme-Vand").Select
> Range("B5").Select
> ActiveCell.Offset(Rowoffset:=0, ColumnOffset:=StartInd).Activate
>
> For i = 1 To 12 - StartInd
> Selection.Value = FaelP
> ActiveCell.Offset(Rowoffset:=0, ColumnOffset:=1).Activate
> Next
>
> End Sub
>
> men får følgende compile fejl : "sub or function not defined"
>
>
> Er der nogen der vd hvad der går galt her ???
>
>
>
> På forhånd tak
>
> Allan Bredahl
>
>
>

---

hrrhmm...hvordan skulle vi kunne finde fejlen med kun en del af koden??

---

Nååh ja det er jo klart, men problemet var at den markerede den første linie
når fejlen opstod, og et var egentlig det der forvirrede mig, da jeg troede
at det var Sub OpdFaelP() der var problemer med ...


mvh


Allan Bredahl


"Allan R." <warlock@ostenfeld.dk> wrote in message
news:9dph0k$e9j$1@eising.k-net.dk...
> hrrhmm...hvordan skulle vi kunne finde fejlen med kun en del af koden??
>
>