keuzelijst in macro

[W Bloemendal]

Hallo

ik heb een macro met een invulbox(zie onderstaande macro)
nu is mijn vraag of ik de invulbox kan krijgen met een keuze lijst.

wim



Sub boren()

Application.ScreenUpdating = False

Dim BLAD As String
Dim i As Integer
Dim X As Integer
Dim Machnr As String
Dim zoek As String
Dim Y As Integer
Dim GEVONDEN As Boolean

If ActiveWindow.RangeSelection.Columns.Count = 256 And ActiveWindow.RangeSelection.Cells.Count = 256 Then

aantal = "9"
Y = InputBox("geef Machine nr", "Machine")

If Y < 1 Or Y > 9 Then MsgBox "Geen goede Machine nr", vbExclamation: End

Machnr = "Machine" & Y

For i = 1 To 2
If i = 1 Then BLAD = "boorlijst"
If i = 2 Then BLAD = "UITGEGEVEN"
Sheets(BLAD).Select
ActiveSheet.Unprotect
Next i


Selection.Copy
Application.Goto Reference:=Machnr
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("UITGEGEVEN").Select
Selection.Delete Shift:=xlUp
Sheets("Boorlijst").Select

For X = 1 To 2
If X = 1 Then BLAD = "boorlijst"
If X = 2 Then BLAD = "UITGEGEVEN"
Sheets(BLAD).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
Next X

Else
MsgBox "Geen goede selectie", vbExclamation
End If

 

[etri]

Voor zover ik weet kun je geen combobox of listbox (beide zijn keuzelijsten) plaatsen in een inputbox. Wel kun je natuurlijk een eigen formulier maken met een keuzelijst.
Dus in plaats van een inputbox aan te roepen, zou je een formulier kunnen tonen.

 

[Wigi]

Misschien als je duidelijker omschrijft wat je precies wil, dat er dan nog wel een en ander uit de bus komt.

 

[W Bloemendal]

het is de bedoeling dat ik een invulbox krijg waarin een lijstje komt waar ik iets van kan aanklikken en dat de macro daar dan verder mee gaat.

wim

 

[Ginger]

Wim, je zal een form moeten opzetten in VBA met daarop je listbox (met waarden). Als je dan ergens (uiteraard op het goede moment) dit form in je code laat 'verschijnen', kan je de keuze (= een variabele) via een select case statement uitvragen en dus de loop van je code bepalen.
Persoonlijk zou ik eerder voor kiezen om een form te maken met option buttons in een frame. De gebruiker heeft dan in 1 keer een overzicht van de keuzes...

Groet, Leo

 

[Wigi]

Persoonlijk zou ik eerder voor kiezen om een form te maken met option buttons in een frame. De gebruiker heeft dan in 1 keer een overzicht van de keuzes...

Dat zou idd goed zijn bij een vast aantal opties, en telkens dezelfde opties. Bij veranderend aantal zou een listbox wellicht beter zijn. (evt. een combobox).