inderdaad softaid, en ook met meerdere keuzes maken in vervolglijst, gelinkte cellen op werkblad.......
dizzl, het probleem verwoorden is niet altijd makkelijk en ik zal het misschien inderdaad te ver zoeken.
maar als ik een probleem heb (in dit geval die listbox werkend te krijgen bij activeren van een nieuw workbook) probeer ik uit te zoeken of dit kan werken en als je aan 't graven bent.....
na veel zelf proberen, zoek ik dan de hulp van ervaren specialisten.
met dank aan jullie trouwens.
mijn vraag over die listbox blijft me dus nog bezighouden...
maar dit terzijde want ondertussen heb ik de raad van redhead ter harte genomen.
ik maak een copie van mijn hoofd-workbook.
maar eerst verwijder ik enkele sheets die de anderen niet moeten zien.
ik zal ook proberen commandbuttons... van bepaalde sheets niet te laten zien in de copie.
ik maakte ook een tweede startformulier met alleen de buttons bestemd voor de vrienden.(in vbaProject startfrm slepen naar nieuw project, hernoemen in properties en terug slepen naar vbaProject workbook).
zoiets als dit:
Private Sub CommandButton5_Click()
ActiveWorkbook.Save
Sheets("DataIngeven").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Tussenstops").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Eindstops").Select
ActiveWindow.SelectedSheets.Visible = False
ChDir "C:\Users\Staf\Desktop"
ActiveWorkbook.SaveAs "Book10"
Windows("Book10").Activate
Sheets("Lijst").Select
'Ga naar laatste niet lege cel in kolom A
Range("A65536").End(xlUp).Select
Startformulier2.Show
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Staf\Desktop\Book Fietsen Laatste - kopie2.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
hier kan ik dan nog altijd specifieke dingen uit een sheet (bv allerlei) naar toe copiëren met mijn eerdere oplossing.
indien jullie nog bedenkingen hebben (of simpelere oplossingen...) laat het aub weten.
bedankt.