rudi d.

Je kan zelfs alles in 1 if structuur zetten.
 
 If Range("A1").Value = 1 Then
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    Selection.EntireColumn.Hidden = True
    Columns("M:M").Select
    Selection.EntireColumn.Hidden = True
    Columns("O:O").Select
    Selection.EntireColumn.Hidden = True
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = True     
 Else
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = False
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = False
    Columns("H:H").Select
    Selection.EntireColumn.Hidden = False
    Columns("M:M").Select
    Selection.EntireColumn.Hidden = False
    Columns("O:O").Select
    Selection.EntireColumn.Hidden = False
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = False
 End If
 
Het selecteren en verbergen (of weer zichtbaar maken) van de rijen kan je ook hierin onderbrengen.

Select is zelden nodig in VBA.
Dit zou voldoende moeten zijn:
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 1 Then Range("2:11").EntireRow.Hidden = True Range("D1, F1,H1, M1, O1, Q1").EntireColumn.Hidden = True Else Range("2:11").EntireRow.Hidden = False Range("D1, F1,H1, M1, O1, Q1").EntireColumn.Hidden = False End If End Sub  

Zonder dank hé, is graag gedaan.
Gezien je huidige opstelling is hier natuurlijk geen dubbele NAT meer, je krijgt immers een publiek IP adres op je router en dus één NAT, wat eigenlijk elke router doet. 
Laat maar weten als wij je verder kunnen helpen, zo niet kan een Mod dit afsluiten.
Enne... succes met de Quad recorder!

Is me gelukt door in mijn router het lan Ip adres terug te veranderen naar 0.1, zowel router en TN modem gereboot. Geen dubbel NAT meer!
Nu nog wat verder zoeken want de quad recorder staat niet tussen dse wired en wireles clients, niet in de router en niet bij advanced ip scanner. Maar dit gaat me wel lukken, dat is iets intern. Merci voor de hulp en het geduld!

Je router krijgt nu wel degelijk een extern (WAN) IP adres.
 
Dit kan je nagaan in Mijn Telenet :
- Onder geavanceerde instellingen, WAN configuratie, zie je het WAN IP adres van je Telenet modem.
- Bij verbonden toestellen zie je het MAC adres van je router én het WAN adres ervan. (Toon IP adres). 
 
Ik denk dat je nu de nodige poorten kan open zetten in je router, tenminste als je camera's in hetzelfde LAN netwerk zitten, zoals ingesteld door je router.

Foto zegt meer dan woorden, maar ziet er mij normaal uit.

Dat kan maar er is een manier om meteen windows 10 clean te hebben staan.
Je kunt Windows tegenwoordig gewoon installeren vanaf een usb-stick. Daarvoor hebt wel een installatiebestand van Windows 10 nodig. Microsoft stelt een programma ter beschikking dat je helpt bij het downloaden van Windows én het maken van een usb-stick. Download hier het Windows 10-hulpprogramma.
Tip: Vergeet niet om een back-up van je persoonlijke bestanden te maken voor je Windows 10 opnieuw installeert.
Wanneer je de software hebt gedownload en gestart, verschijnt er een keuzemenu waarin je kiest voor Installatiemedium (…) voor een andere pc maken. Wanneer je klikt op Volgende adviseert het programma welke versie van Windows er moet worden gedownload. Het is verstandig om hier niets aan te wijzigen.
Kies in de volgende stap voor USB-flashstation en kies het station van de usb-stick. Het programma downloadt nu de juiste versie van Windows en maakt de usb-stick zo dat het systeem die kan zien als een opstartschijf.
Windows 10-installatie starten
Om de installatieprocedure van Windows 10 te kunnen starten, steek je eerst de usb-stick in de pc. Wanneer je de pc nu opnieuw start, is het zaak om dat te doen vanaf de usb-stick waarop het installatiebestand staat. Je start dus niet op vanaf het C-station waarop Windows staat.
Hoe dat precies gaat, verschilt per computer. De ene pc herkent het opstartmedium automatisch en vraagt tijdens het opstarten of je dat wilt gebruiken. Bij andere computers moet je zelf op een toets drukken tijdens het opstarten. Welke toets, dat staat vermeld op het eerste opstartscherm. Krijg je helemaal geen vragen en start de computer Windows op, ga dan naar de volgende stap.
Opstarten vanaf usb-stick
De manier waarop de computer opstart gaat tegenwoordig eigenlijk bijna altijd goed. Is dat bij jou niet het geval, dan moet de computer worden gedwongen om vanaf de usb-stick op te starten. Vroeger deden we dat door in het bios van de computer de opstartvolgorde aan te passen. Tegenwoordig kan het gelukkig ook gewoon vanuit Windows.
Klik op de startknop en vervolgens op Instellingen. Onder het tabblad Systeemherstel vind je het kopje Geavanceerde opstartopties. Wanneer je op deze knop klikt, wordt Windows afgesloten en kun je aangeven vanaf welk station er moet worden opgestart. Wanneer je hebt gekozen voor de usb-stick start de computer opnieuw op, vanaf het juiste station.
Installatieprocedure afronden
Wanneer de installatie is gestart, krijg je een menu te zien waarin je de taal en het toetsenbord kunt selecteren. Staat dit goed, klik dan op Volgende en daarna op Windows installeren. Als er om een productcode wordt gevraagd, vul deze dan in als je die hebt. Heb je die code niet, klik dan op Ik heb geen productcode. Kies vervolgens de versie van Windows die je wilt installeren en klik op Volgende. Je moet hierbij wel kiezen voor dezelfde versie die al was geïnstalleerd.
Je kunt nu kiezen voor Upgrade of Aangepast. Wij kiezen in dit geval voor Aangepast. Kies nu het station waarop je Windows wilt installeren (het station met tekst Primair onder het kopje Type). Klik op Formatteren. Let op: je gaat nu alles van de harde schijf verwijderen. Dit is onomkeerbaar! Klik op Volgende. De installatie voltooit zichzelf nu helemaal volledig.
Wanneer dit proces klaar is, is het alsof je je computer net uit de winkel hebt opgehaald!
Bron: Windows 10 installeren vanaf usb-stick doe je zo | How To | Computer!Totaal (computertotaal.nl)
 
Als je moet kiezen waar je het wilt installeren trek je een foto en stuur die door ik zal je helpen om geen andere dingen te wissen als die niet nodig zijn.

Ok ik raad dit aan.
 
1Maak een backup van de belangrijke bestanden. Zoals foto's 
 
Ga naar media creation tool en herinstal de pc met Windows 10.
 
Als je niet weet hoe dit moet laat iets weten dan geef ik daar een handleiding voor.

Dag Rudi d 
 
Een schone installatie van Windows kan wonderen doen. Ik zie ook dat je windows 8.1 hebt waarom geen 10 of 11? 
Als die nog traag blijft is linux ook wel wat lichter als windows.
 
Met vriendelijke groeten ict knechter.

Probeer het eens met de app Foto's. Die app zit standaard in Windows 10.
Open de app Foto's en typ een plaatsnaam in het zoekvak:

Windows Defender zit standaard in windows 10 en die is ook goed.
Met windows 10 heb je dus geen extra virusscanner meer nodig.
 
Je hebt natuurlijk altijd de keuze om een externe virusscanner te gebruiken en dan is Kaspersky geen slechte keuze.
Presteert goed en geeft weinig systeembelasting.
Panda geeft ook weinig belasting maar scoort iets minder in de tests dan Kaspersky.

sterkte met die actie.
een tip nog: loop na de deïnstallatie nog even handmatig door de verkenner om alles wat je aan mappen van avast tegenkomt handmatig te verwijderen. dus niet alleen in program files, program data maar zeker ook in de gebruikersmappen appdata local en roaming, en check dan ook even de appdata in all users.
daarna ccleaner het register verder laten opruimen (verwijdert alle avastmeldingen waarvoor geen relatie op de schijf kan worden vastgesteld.
en dan uiteraard weer netjes opnieuw opstarten.... 

Als het via de normale weg niet wil lukken is er een Avast verwijdertool.
Deze kan je hier downloaden om alle restanten te verwijderen.
Volg wel de instructies op de pagina.
 
Soms lukt het niet om Avast op de standaardmanier te verwijderen: via PROGRAMMA'S EN ONDERDELEN in het configuratiescherm. In dat geval kunt u ons deïnstallatieprogramma avastclear gebruiken.
Download avastclear.exe op uw computer Start Windows in Veilige Modus Open (voer uit) het deinstalleer-hulpprogramma Als u Avast in een andere dan in de standaardmap heeft geinstalleerd, navigeert u daar dan heen. (Opmerking: Weest u voorzichtig! De inhoud van elke map die u kiest zal worden gewist!) Klik REMOVE Herstart uw computer

Rechtsklik op je taakbalk en klik vervolgens op  Taakbeheer.
Klik op het tabblad Opstarten, maak hier een screenshot van en plaats deze in je volgende bericht.

Download en installeer Speccy.
Speccy is er ook in Nederlandstalige versie, bij de installatie (of update) kan je de taal wijzigen van Engels naar Nederlands ... als je op het driehoekje klikt, krijg je een uitrolmenu waarin je Nederlands kan selecteren.
 
Vink bij de installatie alle aangeboden extra's uit.
 

 
Start nu het programma en er zal een overzicht gemaakt worden van je hardware.
Als dit gereed is, selecteer je bovenaan "Bestand - Publiceer Snapshot" en vervolgens bevestig je die keuze met " Ja ".
In het venster dat nu opent krijg je een link te zien, kopieer nu die link en plak die in je volgende bericht. Zo krijgen we een gedetailleerd overzicht van je hardware.
 
 

Download CrystalDiskInfo naar het bureaublad (het downloaden begint automatisch een vijftal seconden nadat je op de link hebt geklikt !! ).
Dubbelklik op CrystalDiskInfoPortable_x.x.0.paf.exe en klik vervolgens op OK. Kies Nederlands en klik vervolgens op OK, nu wordt het programma uitgepakt in een nieuwe map op je bureaublad. Plaats nu een vinkje bij de optie CrystalDiskInfo Portable starten en klik op Voltooien. Of open de aangemaakte map en klik met de rechtermuisknop op CrystalDiskInfoPortable.exe en kies voor Als administrator uitvoeren. Wanneer het programma geopend is, zal het gegevens van je harde schijf tonen. Let op: Vergroot het venster zodat alle informatie goed zichtbaar is. Wat is het resultaat van deze test? ... maak er met het knipprogramma een afbeelding van, die kan je dan in je volgend bericht hier in je topic plaatsen.  

Je was de Event-code (de motor) vergeten te kopiëren naar de Bladmodule van Blad1.
 
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$100" Then If Target = vbNullString Then Exit Sub If Target < 0 Then Exit Sub Application.ScreenUpdating = False Range("F96:F98").ClearContents SolverReset SolverOK Range("$F$101"), 2, , Range("$F$96:$F$98"), 1 SolverAdd Range("$F$96:$F$98"), 4 SolverSolve True Application.ScreenUpdating = True End If End Sub  
Stelling berekenen(1).xlsm

Heb het voorbeeldbestandje wat aangepast. Blad2 verwijdert want dit was nog een manuele testsheet.
 
Waar je op moet letten als je het bestand gebruikt.
 
1) De Solver-addin moet geactiveerd zijn.
 
2) Macro's moeten ingeschakeld zijn.
 
3) In het VBA-project moet de verwijzing naar Solver aangevinkt zijn.
 
Door nu in B5 een getal typen en te bevestigen met Enter wijzigen de cellen in B1:B3 naar de gebruikte lengtes.
Solver_Sample(1).xlsm

Formule aangepast, jou document stond op handmatig berekenen
In rij 56 heb ik een UDF functie gezet , een andere optie
als in [B5] de gevel lengte word gewijzgd zal de er een nieuwe berekening zijn in rij 56
Kopie(jp) van Stelling berekenen.xlsm

We verwachten meestal een voorbeeld bij je vraag, hier mijn inbreng zoals ik het begrepen heb
VBrudi.xlsx

Over Unchecky

Unchecky is een handige en nuttige tool, die de computer beschermt tegen mogelijk ongewenste software en ervoor zorgt dat alléén het programma wordt geïnstalleerd welk u heeft gedownload.
Unchecky draait als een service op de achtergrond, herkent vele installatie processen en past de instellingen zo aan dat deze extra ongewenste zaken niet geïnstalleerd worden.

Unchecky schakelt de selectievakjes van ongerelateerde software automatisch uit. Plaats u per abuis bij een selectievakje toch een vinkje, dan wordt er een extra waarschuwing getoond.

Sommige freeware programma’s proberen soms extra software aan te bieden en Unchecky waarschuwt u van zo’n ongewenste aanbieding.
Unchecky houd zichzelf up-to-date.


Unchecky downloaden en installeren

Unchecky kunt u downloaden van: Unchecky - Keeps your checkboxes clear en klik vervolgens op




Unchecky installeren

Klik met de rechtermuisknop op unchecky_setup.exe en in het pull-down menu klik op Als administrator uitvoeren.



Klik op het puntpijltje bij Language en wijzig naar Nederlands.







In het volgende scherm klik op Uitvoeren



Klik vervolgens op Voltooid en herstart de computer zodat de wijzigingen worden opgeslagen.
Bij de installatie van Unchecky wordt het hosts bestand aangepast, er worden namelijk een aantal regels toegevoegd.




De werking van Unchecky

Na een herstart van de computer en het opstarten van Unchecky ziet u het volgende scherm, klik vervolgens op Instellingen



Vervolgens klik op Geavanceerde instellingen.




(ter informatie) In het Geavanceerde instellingen scherm lees u dat Unchecky automatisch update uitvoert en wijzigingen brengt is het hosts bestand.
⚠️ Vink de selectievakjes niet aan ⚠️
Klik vervolgens op OK




Ga naar Start ☞ Instellingen ☞ Configuratiescherm ☞ Systeembeheer ☞ Services

De Status van Unchecky service is Gestart en het Opstarttype staat op Automatisch.




Voorbeeld van Géén Unchecky installeren
 
Bij het installeren van freeware (bijvoorbeeld Unlocker) voordat u Unchecky heeft geïnstalleerd ziet u onderstaand scherm.

Standaard is het keuzerondje Quick (Recommended) aangevinkt, indien men niet alert is, klik men vervolgens op Volgende.
Het resultaat is dat Delta toolbar wordt geïnstalleerd.

In principe moet men een vinkje plaatsen bij het selectievakje Advance en vervolgens de vinkjes verwijderen bij: Install Delta toollbar, Make Delta my default search engine Make Delta my default homepage and new tab. Dan pas op Volgende klikken.
Daardoor wordt de Delta Toolbar meegeleverd maar niet geïnstalleerd.


  Onderstaande wordt opgemerkt door MBAM in de installer van Unlocker en vervolgens geblokkeerd en in quarantaine geplaatst.

PUP.Optional.Babylon.A, C:\Users\gebruikersnaam\Downloads\Unlocker1.9.2.exe, , 119d6f81cbb06ec83eb1f91d07fa53ad],
Bij het ledigen van de prullenmand wordt dat verwijderd.


Voorbeeld van WEL Unchecky installeren

Met Unchecky aan boord ziet het Unlocker installatie scherm er anders uit, het keuzerondje bij Advanced is aangevinkt en de vinkjes bij de selectievakjes bij:
Install Delta toollbar, Make Delta my default search engine Make Delta my default homepage and new tab zijn reeds uitgeschakeld door Unchecky.

Vervolgens kunt u gerust in het keuzerondje bij Advanced te klikken en vervolgens op Volgende om verder te gaan om Unlocker te installeren.





Vervolgens heeft MBAM niets opgemerkt, niets geblokkeerd en niets in quarantaine geplaatst.




⚠️ Zoals in het real life niets 100% zeker is, laat niet alles over aan een programma, uw dient vanzelfsprekend ook allert te blijven ⚠️

Mooi dat je het hebt kunnen oplossen en bedankt voor de feedback.
En dan kan hier zoals gevraagd een op.
 
Grt Dasle

Ik ben blijven zoeken, en het is uiteindelijk gelukt!
Zoals verwacht was het de juist instelling vinden, en hiervoor heeft het YouTube filmpje
me wel deels geholpen. Voor de rest was het juist invullen van de computernaam in de homepage van de printer zeer belangrijk, zeker wat betreft hoofdletters en tekens.
Wel wat tijd aan gespendeerd, maar met de hete dagen die we moesten trotseren was binnen blijven toch een must. 😉
Voor sommige mensen mss verloren tijd, maar voor mij weeral véél bijgeleerd! Ben pc gebruiker maar met heel veel interesse in de materie.
En dat heeft door de jaren gezorgd dat ik hier thuis alle pc-problemen aanpak en graag oplos, maar zeker ook met de hulp van internet en dit forum!
Merci allen voor de hulp!
 

Als ik het goed zie op de afbeeldingen zou dit 192.168.0.112 kunnen zijn maar is een beetje onduidelijk.

Contacteer de dienst "service" van SMA in Mechelen via service(at)sma-benelux.com.
Deze zijn zeer behulpzaam.