Begrænsninger i egne funktioner...
Mit spørgsmål går mest på om der er nogle begrænsninger på hvad man kan udføre med egne functions.Jeg har en function, skal åbne en anden fil (ReadOnly), og hente nogle data, fom functionen skal bruge til sit svar.
Min funktion:
Function IsFermenting(Tank As String, TimeStamp As Date)
Dim StartTime As Date, EndTime As Date, StartUpTime As Date, SlowDownTime As Date
Dim StartUpHours As Integer, SlowDownHours As Integer
Dim StartUpOutput As Integer, RunningOutput As Integer, SlowDownOutput As Integer
Dim FermStartData As Variant
Dim FermSlutData As Variant
Dim OpenFilePath As String, OpenWb As String, ShName As String
Dim FermSlutRowNr As Integer
OpenFilePath = "G:\Dokumentation\IM1Fermentation_Recovery\Fermentation\Alle planer oversigter Lister tegninger skilte\Gæringsplaner\"
OpenWb = "FermentingPlan.xls"
ShName = "FermentingPlan A"
Application.ScreenUpdating = False
If Not IsOpened(OpenWb) Then ' tjekker om filen er åben
Workbooks.Open Filename:=OpenFilePath & OpenWb, ReadOnly:=True ' åbner filen
MsgBox "File opened as ReadOnly"
Else
Windows(OpenFilePath).Activate
End If
FermSlutRowNr = Workbooks(OpenWb).Sheets(ShName).Range("SlutRow").Row
MsgBox FermSlutRowNr
FermStartData = Workbooks(OpenWb).Sheets(ShName).Range("F5:F" & FermSlutRowNr) ' Finder FermStartData og læser dem ind i et Array
FermSlutData = Workbooks(OpenWb).Sheets(ShName).Range("J5:J" & FermSlutRowNr) ' Finder FermSlutData og læser dem ind i et Array
ActiveWorkbook.Close False ' lukker Produktionsplan.xls igen
Application.ScreenUpdating = True
For i = 1 To UBound(FermStartData, 1)
MsgBox FermStartData(i, 1)
Next i
og så kommer der noget mere kode, som jeg ikke skla trætte Jer med...
End Function
Som det ses har jeg som test indbygget et par MsgBoxes, men det er kun den første der svarer, og når jeg har funktionskaldet i 2 celler, og starter beregning, så svares der altså 2 gange.
Er der nogle begrænsninger eller hvad er årsagen til at jeg kun får svar fra den første msgbox, der svarer på i hvilken række celles som jeg har navngivet "SlutRow" findes...
