menu minimaliseren

[matizje]

Hallo,

Wij hebben hier op het werk een calculatie in excel met invoervelden.
In 1e instanties krijg je dmv een macro een menu met invoervelden.
Nu vind ik het welk makkelijk om deze te kunnen minimaliseren om in je werkblad te kunnen kijken/bewerken om
vervolgens weer verder te gaan met je menu met invoervelden.
Het bestaande menu/invoervelden heeft alleen de mogelijkheid om deze af te sluiten dmv het welbekende X rechtsboven.
Hoe kan ik hier ook het welbekende streepje voor minimaliseren krijgen?
Alvast bedankt

ronald

 

[Eddy495]

Hallo Ronald,

Dit kan met de functie groeperen. Gegevens -> overzicht -> groeperen. Ik zat er er laatst ook mee te worstelen, scheelt een hoop ..

Succes ermee!

 

[gast0660]

Hoi,
Ik denk dat je zoiets zoekt?
Greetz

 

[matizje]

ja dat is wat ik zoek maar hoe voeg ik deze optie nu toe ah bestaande menu

alvast bedankt

dit is de programma code

Dim keuze() As String
Dim i, imax, ikeuze, keus As Single
Private Sub cb1_Click()
If LB1.ListIndex >= 0 Then
keus = LB1.ListIndex
If idelen = 9 Then
If keus <> 9 Then MsgBox "Maximaal aantal onderdelen bereikt"
keus = imax
Else
If LB1.ListIndex <> imax Then
idelen = idelen + 1
onderdeel(idelen) = keuze(LB1.ListIndex)
''MsgBox onderdeel(idelen)
End If
End If
Hoofdmenu.Hide
lb1_fill
If keus = 0 Then Bordes_recht.Show
If keus = 1 Then Bordes_rond.Show
If keus = 2 Then Hekwerk_Recht.Show
If keus = 3 Then Kooi.Show
If keus = 4 Then Losse_delen.Show
If keus = 5 Then Losse_materialen.Show
If keus = 6 Then Muurleuning.Show
If keus = 7 Then Spiltrap.Show
If keus = 8 Then trap_recht.Show
If keus = 9 Then Kostenoverzicht.Show
End If
End Sub
Private Sub UserForm_Initialize()
lb1_fill
End Sub
Sub lb1_fill()
imax = 9
''ímax is maximum aantal moglijkheden
ReDim keuze(imax)
keuze(0) = "Bordes recht"
keuze(1) = "Bordes rond"
keuze(2) = "Hekwerk recht"
keuze(3) = "Kooi"
keuze(4) = "Losse delen"
keuze(5) = "Losse materialen"
keuze(6) = "Muurleuning"
keuze(7) = "Spiltrap"
keuze(8) = "Trap recht"
keuze(9) = "Einde invoer materiaal"
LB1.Clear
LB1.List() = keuze
End Sub

 

[VenA]

Plaats svp de code tussen code tags. Een voorbeeldbestandje met de formulieren erin lijkt mij ook wel handig.

 

[gast0660]

Hoi,
Tja voorlopig moet ik VenA gelijk geven op de twee punten

 

[matizje]

voorbeeld bestand

Hallo,

sorry voor het onvolledig aanleveren van de gegevens.
Ik heb een voorbeeld bestand toegevoegd.
Het gaat mij om het formulier "start". Als je mij de aanpassing van deze zou kunnen uitleggen dan lukt me rest vd formulieren hopelijk zelf.
Ben lerende met dit gedeelte van Excel

alvast bedankt
Bekijk bijlage voorbeeld.rar

 

[gast0660]

Hoi,
aangepast vbtje,
vergeet niet Min en Max in de caption van uw formulieren te plaatsen.
Greetz