Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
intKolonneteller = 5<br />
ElseIf cmbGren.Value = "KVRT" Then<br />
intKolonneteller = 6<br />
Else<br />
'Brukeren har ikke valgt en gren, og får melding om dette<br />
MsgBox "Venligst velg en Forsvarsgren som finnes i kombinasjonsboksen"<br />
Exit Sub<br />
End If<br />
'Sletter listeboksen. Dette gjøres for å unngå at listeboksen beholder de gamle KOSTMOD<br />
avdelingene dersom brukere endrer gren<br />
lstKMNavn.Clear<br />
'Legger til KOSTMOD-avdelingen for grenen i listeboksen<br />
Do Until Cells(intRadTeller, intKolonneteller).Value = ""<br />
Me.lstKMNavn.AddItem Cells(intRadTeller, intKolonneteller).Value<br />
intRadTeller = intRadTeller + 1<br />
Loop<br />
38<br />
'Aktiverer arket grunnlag-støtte og slår på skjermoppdateringen<br />
Sheets("Grunnlag-støtte").Activate<br />
Application.ScreenUpdating = True<br />
A.7 Skjemaet frmUtfasing<br />
A.7.1 Hensikt<br />
Som nevnt i brukerveiledningen vil det i enkelte tilfeller være ønskelig å fase ut en byggekloss<br />
av strukturen før perioden er over. Skjemaet frmUtfasing gir brukeren denne muligheten. Under<br />
vises skjemaet slik det ser ut i Excel.<br />
Figur A.7 Skjemaet frmUtfasing i MORSK