Jasper

Super! dit lijkt goed te werken! als ik nu add doe maakt die een pagina aan. daarna vul ik de volgende naam en cijfers in en druk ik weer add dan maakt die die aan :D. kan je ook eerst meerdere namen invullen en dan in een keer meer tabbladen maken? (nu werkt die op volgorde. De laatste die ik ingevuld heb maakt die een tabblad van aan) en kan ik ook cellen uitsluiten voor het maken van een blad. dat bijvoorbeeld cel A1, A10, A30 uitgesloten zijn van het maken van een tabblad. Hier wil ik namelijk en tekst plaatsen waar de groepsverdeling gescheiden wordt.

Goedemorgen forum, Ik ben druk bezig met een bestand en was gaan kijken naar de mogelijkheden om automatisch en nieuw tabblad te generen aan de hand van ingevoerde waardes. Ik heb het volgende gevonden: Daar gebruiken ze deze code: Sub add_new_sheet() Dim sheet_name_to_create As String Dim sh As Worksheet, nsh As Worksheet ' nsh = sheet_name_to_create Dim nrng As Range Dim cont As Worksheet Dim oRng As Range sheet_name_to_create = ActiveCell.Value Set oRng = ActiveCell Set sh = Sheets("blad1") For rep = 1 To (Worksheets.Count) If LCase(Sheets(rep).Name) = LCase(sheet_name_to_create) Then MsgBox "this sheet already exists" Exit Sub End If Next Sheets("markbreakdown").Visible = True Sheets("markbreakdown").Copy after:=Sheets(Sheets.Count) ActiveWindow.ActiveSheet.Name = sheet_name_to_create Sheets("markbreakdown").Visible = False sh.Activate sh.Hyperlinks.Add oRng, "", "'" & sheet_name_to_create & "'!A1", _ "Go to " & sheet_name_to_create, sheet_name_to_create Set oRng = Nothing End Sub Nou heb ik die overgenomen en getest maar lukt het nog niet helemaal. Ik krijg de fout: Fout 9 tijdens uitvoering: het subscript valt buiten het bereik (als ik zelf het tabblad kees aanmaakt en wil toevoegen via de knop dan ziet hij wel dat die al bestaat) tevens is dit ook maar en begin van wat ik eigenlijk zou willen. Hier neemt ze dus en blad als voorbeeld en die kopieert ze deze inclusief de basis gegevens. Naar mijn idee zou het werken dat ik en naam invul. de naam zal dan gebruikt worden als de naam van het nieuwe tabblad. tevens kopieert hij de naam naar en cel op het aangemaakte blad. verder wens ik niet alleen de naam mee te nemen maar ook drie waardes die ik achter de naam in cellen in vul. is dit mogelijk ? Voorbeeld: Test tabbladen .xlsm

het gaat ook fout als het document en tijdje in gebruik is. ik krijg en foutmelding op Set myShp = ActiveSheet.Shapes("Drop Down 1") van het tweede stuk (J6 J17)

ik heb nu : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myShp As Shape, Drp As Single If Not (Intersect(Target, [I6,I17]) Is Nothing) Then If Target.Validation.Type = xlValidateList Then Set myShp = ActiveSheet.Shapes("Drop Down 1") Drp = myShp.Width - Target.Width myShp.Width = Sheets("Lijsten").[A:A].Width myShp.Left = Target.Left - myShp.Width / 2 + Drp * 2 End If End If If Not (Intersect(Target, [J6,J17]) Is Nothing) Then If Target.Validation.Type = xlValidateList Then Set myShp = ActiveSheet.Shapes("Drop Down 1") Drp = myShp.Width - Target.Width myShp.Width = Sheets("Lijsten").[C:C].Width myShp.Left = Target.Left - myShp.Width / 2 + Drp * 2 End If End If If Not (Intersect(Target, [K6,K17]) Is Nothing) Then If Target.Validation.Type = xlValidateList Then Set myShp = ActiveSheet.Shapes("Drop Down 1") Drp = myShp.Width - Target.Width myShp.Width = Sheets("Lijsten").[E:E].Width myShp.Left = Target.Left - myShp.Width / 2 + Drp * 2 End If End If Set myShp = Nothing End Sub

het is inmiddels gelukt. gekke is wel zodra ik het excel bestand save dan werkt de macro niet goed meer. Dan sluit ik het en open ik het bestand weer dan is alles weer in orde

nee klein bedrijf in Zuid Holland waar ik en projectje voor doe. En heb deze methode gevonden op internet.

stap 1 invullen risicograaf met de gevaren die voor kunnen komen en hun classificatie Hierna per blad het gevaar invullen als de risico index hoger is dan 20 daar vullen we dan de risicoreductie maatregelen in en bepalen we opnieuw het risico

super! zie dat het nog wel fout kan gaan als je op het eerste pijltje klikt wat je te zien krijgt. daarna krijg je en pijl iets verder naar rechts te zien. Als je die gebruikt kan ik inderdaad alles goed lezen. om dit op de andere cellen toe te passen en op de pagina van de risico inventarisatie wat moet ik dan doen? ben benieuwd hoe ik dit zelf kan maken. is het dan en kwestie van die cellen erbij zetten in de regel If Intersect(Target, [I6,I17]) Is Nothing Then Exit Sub en dit stukje ook voor de risico inventarisatie toe te passen en daar de juiste cellen in te zetten?

Goedemiddag Forum, Ik ben druk bezig in excel maar heb het volgende probleem. Ik kan de breedte van en cel niet aanpassen i.v.m. het afdrukbeleid maar daardoor wordt mijn pulldown menu niet volledig weergegeven. De tekst wordt ingekort bij het laten zien van het pulldown menu. als ik iets aanklik komt er en getal i.p.v.. tekst dus is het in het scherm heen probleem zie bijgevoegde afbeelding. Is hier wat aan te doen?????

ja dat klopt! omdat het niet werkte zoals het weergegeven staat in de risicograaf. De tekst en het getal moesten in een eigen cel staan. Het blad risico inventarisatie moeten we zelf in gaan vullen. als je bij de waarde het pulldown menu ziet dan kan daar en keuze gemaakt worden voor de ernst blootstelling en waarschijnlijkheid. daaruit komt dan en totaal waarde. als de cel onder risico index dan en andere kleur wordt dan groen moeten we er een blad voor invullen om het risico te reduceren door verschillende maatregelen

Thanx!

Hier en opzet van wat we willen doen. Het idee is: op het blad Risico inventarisatie vullen we de mogelijke gevaren in. stel beknelling. Dan geven wij daar en waarde aan hoe gevaarlijk dit is. Daaruit komt en nummer en die moeten we reduceren als het geel oranje of rood wordt. dan kom je uit bij blad 1 (heb je er dan per machine meerdere van) deze vullen we volledig in. Uiteindelijk moeten al deze bladen en de inventarisatie in een word document verzameld worden als technisch dossier. machinerichtlijn TEST.xlsm er zit een verborgen blad in met de gegevens voor de pulldown menu's

Mijn Excel ervaring is niet zo uitgebreid dus ben daar nog niet mee aan de slag gegaan. Tevens moeten we na het invullen het tabel de verschillende pagina's toevoegen in een word document. Korte vraag nog extra ik maak gebruik van pulldown lijsten. Nadeel is alleen als de cel te smal is geeft Excel ook niet de hele lijst weer (tekst wordt niet volledig weergegeven) is het mogelijk zonder de cel breedte aan te passen de lijst wel volledig te laten zien.

Goedemiddag Forum leden. Ik ben druk bezig met een document dat ingevuld moet worden door collega's Het is een bestand met meerdere tabbladen waarbij ze elk tabblad gegevens kunnen invullen (steeds de zelfde pagina). De pagina is zo gemaakt dat als ik onder het kopje beeld de optie pagina indeling activeer het een nette pagina weergeeft. Nou is mijn vraag kan ik het document zo maken dat je dus ook echt alleen die pagina ziet. Nu zie je nog suggestie pagina's in het zelfde blad die je kan gaan gebruiken (licht grijs) dit wil ik eigenlijk niet laten zien Ik hoor graag van jullie mvg Jasper

Super heel erg bedankt voor je tijd! Zijn er nou dingen waarvan je zegt voor iets meer geld heb je en beter systeem voor de komende 2 a 3 jaar?

Ja dat is zeker het plan

iemand?

Beste Forumleden, Ik ben van plan en nieuwe pc te kopen.. nou werd mij de volgende aangeraden: http://www.informatique.nl/201433/informatique-inhome-elite-w10.html Nou wil ik ook de mogelijkheid van zelf samenstellen nagaan. Waarvoor heb ik een PC nodig? - De pc is nodig voor werkdoeleinden Excel en fotobewerking Wat is mijn budget? - 800 tot 1000 euro Een merkcomputer of een samenstelling? - samenstelling Ga ik overklokken? - Nee Ga ik later upgraden? - Ja wel het plan Heb ik al die nieuwe functies wel nodig? - USB 3.0 Ga ik zelf assembleren? - Laten assembleren Heb ik een besturingssysteem nodig? - Windows 7 of windows 10. Ga ik zelf installeren? -kan zelf Heb ik een voorkeur aan onderdelen? - nee Heb ik nog randapparatuur nodig? - Nee Heb ik specifieke wensen? -Nee Woon je in Nederland of België, wil je bestellen bij een specifieke (web)winkel? - Nederland Kunnen jullie me hierbij helpen? Ik hoor graag van jullie of er wat valt samen te stellen wat beter is dan de voorgestelde pc. Tenzij jullie al zeggen dat die pc al niks is en het budget te weinig is voor wat ik wil. Bedankt alvast

Private Sub CommandButton1_Click() If CheckBox_Basis.Value = True Then Range("B19") = 1 Else If CheckBox_Basis.Value = Not True Then Range("B19") = 0 End If If Checkbox_Brug.Value = "Brug automatisch" Then Range("B22") = "Brug automatisch" Else If Checkbox_Brug.Value = "Brug handbediend" Then Range("B22") = "Brug handbediend" Else If Checkbox_Brug.Value = "Brug handbediend snelontluchter" Then Range("B22") = "Brug handbediend snelontluchter" Else If Checkbox_Brug.Value = "Geen" Then Range("B22") = "Geen" End If End Sub Hier krijg ik nu dan de fout Blok IF zonder end If

Ik heb en keuzelijst gebruikt. de opties waar je uit kan kiezen heb ik opgeslagen als en lijst met namen. De namen onder elkaar gezet. alle cellen geselecteerd en toen de naam gegeven aan die groep cellen. (gebruikte ik ook zo in excel blad zelf bij en pulldownmenu)

Srry ik was denk niet helemaal duidelijk. De checkboxen werken goed Maar het gaat fout bij de pulldownmenu's Hier heb ik meerdere opties waar je uit kunt kiezen en dan klik je en bepaalde aan If Pulldownmenu_Brug.Value = "Brug automatisch" Then Range("B22") = "Brug automatisch" End If If Pulldownmenu_Brug.Value = "Brug handbediend" Then Range("B22") = " Brug handbediend" End If Bijvoorbeel Brug handbediend. De naam die ik aan het pulldown menu had gegeven was verwarrend sorry Nu gewijzigd naar pulldownmenu_Brug

ik heb deels checkboxen en deels keuzemenu's. Nou gaan de checkboxen goed als ik daar en vinkje klik dan komt er en een in en cel te staan. nou wil ik in en cel tekst laten komen alleen dan krijg ik de volgende fout: Fout 424 tijdens uitvoering: Object vereist Dit is me code: If Checkbox_Brug.Value = "Brug automatisch" Then Range("B22") = "Brug automatisch" End If If Checkbox_Brug.Value = "Brug handbediend" Then Range("B22") = " Brug handbediend" End If

Super dat werkt!

cellen staan op standaard. En hier gebruik ik excel 2016

ik krijg ook niet echt en fout melding. maar je krijgt en groen driehoekje in de cel en dan met de optie om het getal op te slaan als tekst of te converteren naar en getal