Hent oplysninger fra tabel..

Kunne det være en ide med en userform, der indeholdt liste over armaturer via VBA?

det lyder meget smart.. hvis du ved noget om amarature så kender du garantert også NB metoden.. det er den jeg er igang med at lave i excel så jeg ikke skal til at lave det på papir hele tiden.. den liste du snakker om har den alle tallene over vedligeholdelses faktor og tilsmudsning? eller er det bare en liste over amarature

Nej - jeg ved ikke noget specielt om armaturer & NB-metoden.
Det jeg kunne forestille mig er følgende:

- datafil, hvor alle armaturer m/diverse data er lagret - f.eks. vedligh.faktor m.v., som du nævner.

- brugerfil, der ved aktivering viser en Userform (dialogboks) med en liste over alle armaturer i en listen (hentet automatisk fra datafilen).
Der skal så kunne vælges, hvilke data, der skal hentes fra datafilen - eller det kunne evt. bestemmes iflg. den kolonne man har markeret. Dette kunne lade sig gøre, såfremt data i de to nævnte filer, der placeret ens.

det er lige netop det jeg godt kunne tænke mig.. og gerne så at tabellerne ligger i sheet2

Datafil - data i ark2?

Prøver at lave en model - hvis muligt ville det være en hjælp - hvis du kunne sende datafil - eller noget der ligner ombygningen af denne - til: pb@supertekst-it.dk

PS: Har nu læst lidt om NB-metoden..

oki det gør jeg lige..

har du modtaget min mail?

Ja - er modtaget - men er lidt i tvivl - da det jo ligner det, som jeg benævner "brugerfilen" - eller har jeg misforstået noget?

lad os sige at jeg har en tabel med år ned af og armaratur type hen ad.. så vil jeg have 2 drop down menuer hvor jeg kan vælge 2år, og et armaratur type.. og så skal den så læse hvilken tilsmudsningsfaktor det så bliver

Rem KODE I ARK
Rem ==========
Private Sub Worksheet_Deactivate()
    Unload UserForm2
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$42" Then
        Load UserForm2
        UserForm2.Show 0
    End If
End Sub

Rem KODE I USERFORM
Rem ===============
Rem Kan justeres=================
Rem Celle for "Armaturtilsmudsning"
Const armTilsmuds = "H42"
   
Rem Start- Slut-række f/Armaturer
Const armStart = 50
Const armSlut = 55

Rem Default-Indstillinger for Udskiftningsinterval & Omgivelser
Const udskiftD = "op_2år"
Const omgivelserD = "op_middel"
Rem =============================
Dim Arm, Udskift, Omgiv

Private Sub ListBox1_Click()                        'Armatur valgt
    Arm = Me.ListBox1.ListIndex
    beregn
End Sub
Private Sub op_1år_Click()
    Udskift = 5
    beregn
End Sub
Private Sub op_2år_Click()
    Udskift = 8
    beregn
End Sub
Private Sub op_3år_Click()
    Udskift = 11
    beregn
End Sub
Private Sub op_4år_Click()
    Udskift = 14
    beregn
End Sub
Private Sub op_5år_Click()
    Udskift = 17
    beregn
End Sub
Private Sub op_ren_Click()
    Omgiv = 0
    beregn
End Sub
Private Sub op_middel_Click()
    Omgiv = 1
    beregn
End Sub
Private Sub op_snavset_Click()
    Omgiv = 2
    beregn
End Sub
Private Sub UserForm_activate()
    opbygArmaturliste
End Sub
Private Sub opbygArmaturliste()
    Me.ListBox1.Clear
   
    For ræk = armStart To armSlut
        Me.ListBox1.AddItem Cells(ræk, 1)
    Next ræk
   
    sætDefaults udskiftD
    sætDefaults omgivelserD
End Sub
Private Sub sætDefaults(ccNavn)
Dim cc
    Set cc = UserForm2.Controls(ccNavn)
    cc.Value = True
End Sub
Private Sub beregn()
Dim kRæk, kKol
Rem hvis armatur er valgt
    If Me.ListBox1.ListIndex <> -1 Then
Rem Beregn kooordinat
        kRæk = armStart + Arm
        kKol = Udskift + Omgiv
        Range(armTilsmuds).Value = Cells(kRæk, kKol)
    End If
End Sub
Private Sub UserForm_terminate()
    Range("H43").Activate
End Sub