Hessel de Walle's Blog

Drie zilveren lepels Recentelijk zijn er een drietal lepels opgedoken met daarop het familiewapen van de Haga's. De laatste van de drie bevatte de initialen SL SH , verwijzend naar Simon Lamberti (stamvader van de Haga's) en Simkje Hendriks. De zilversmid van de laatste lepel is Fedde Edema van Sneek; de lepel is op zijn vroegst uit 1704. Er is nog een tweede lepel bekend met dezelfde initialen en familiewapens. Deze is van zilversmid Hidsert Jans Lauswolt (Heerenveen/Sneek) en stamt uit het laatste kwart van de zeventiende eeuw. Simon Lamberti en nageslacht Simon Lambert was de zoon van Lambert Franses en Jaeckemyntie Lamberts . Het huwelijk van de ouders is niet te vinden. Hij moet rond 1630 geboren zijn. Onduidelijk is waar. We vinden wel de doopdatum van zijn broer Tobias : 28 maart 1640. Deze Tobias wordt te Sneek gedoopt. Vader Lambert Franses legt in 1638 de eed af om burger van Sneek te worden. Hij wordt drapier (lakenhandelaar) genoemd, afkomstig uit Huer...

I made a waterfall chart after the model of  +Jon Peltier . After adding another two lines and linking them to the secondary axis I was able to create a double waterfall chart. Here are my data: Values End Before After Values End Before After Initial € 500,00 € 500,00 Initial            100            100 First € 100,00 € 500,00 € 600,00 First               20             100             120 Second € 200,00 € 600,00 € 400,00 Second             -10          ...

Ran into a problem of moving files contained in several zip files to different folders. This is part of the code I used. It moves the files out of a zip file called test.zip  (any name + .zip would do) in folder d:\data\start to a destination folder called d:\data\end. It would also work if d:\data\start contained more zip files. Sub zipcopier()     Dim fs As Object, f As Object     Dim FileInFolder As Object, sh As Object, ZipFile As Object, fileInZip As Object     Dim FolderTo As Variant, FolderFrom As Variant     FolderTo = "d:\data\end"     FolderFrom = "d:\data\start"     Set fs = CreateObject("Scripting.FileSystemObject")     Set f = fs.GetFolder(FolderFrom)          'procedure for zip-files     For Each FileInFolder In f.Files         If Right(FileInFolder.Name, 4) = ".zip" Then             Set sh = ...

Bij Excel kan bij grote bestanden de snelheid een probleem worden. Het is vaak lastig vast te stellen waar het precies aan ligt. In bijgaand bestand heb ik een aantal voorbeelden vergeleken. Kunnen we nu beter namen gebruiken of juist niet? Is de functie INDEX sneller of langzamer dan VERT.ZOEKEN ? En zo nog wat voorbeelden. Kunnen we het een en ander testen? Jawel! De voorbeelden zijn op snelheid van uitvoering te vergelijken met behulp van VBA routines die aan te roepen zijn met knoppen. Bijbehorende bestand  ExcelBerekening.xlsm  is te downloaden via: https://drive.google.com/folderview?id=0B7HgkOwFZtdZVmhRQUZFM28yc1U&usp=sharing Voor verder  Excel  tips klik  hier .

Via my newspaper we discovered these chart on  http://www.people-press.org/2014/06/12/political-polarization-in-the-american-public/ We just wondered how to do this in Excel. Here is what we created: We did not have the right data, so we just estimated the figures: 1994 2014 Democrats Republicans Democrats Republicans Liberal11 0,4 0,0 4,1 0,0 Liberal10 1,4 0,1 5,3 0,4 Liberal09 1,6 0,2 5,8 0,6 Liberal08 2,8 1,3 6,8 0,8 Liberal07 3,2 1,9 7,0 1,2 Liberal06 5,6 2,3 7,2 1,6 Liberal05 6,2 3,0 7,4 2,4 Liberal04 7,6 4,2 7,8 9 4,0 Liberal03 8,0 4,9 7,6 4,4 Liberal02 8,4 6,1 7,2 4,8 Liberal01 8,2 9 6,4 6,0 5,...

Om vanuit Excel met VBA een e-mail te versturen is niet zo ingewikkeld. Code is overal te vinden. Ik toon hier een voorbeeld van de website van Ron de Bruin: Sub Mail_small_Text_Outlook() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Working in Office 2000-2013     Dim OutApp As Object     Dim OutMail As Object     Dim strbody As String     Set OutApp = CreateObject("Outlook.Application")     Set OutMail = OutApp.CreateItem(0)     strbody = "Hi there" & vbNewLine & vbNewLine & _               "This is line 1" & vbNewLine & _               "This is line 2" & vbNewLine & _               "This is line 3" & vbNewLine & _               "This is line 4"     On Error Resume Next     With OutMail ...

Ik ga dit jaar meedoen aan de stepelfstedentocht. Een zware tocht startend in Bolsward over totaal zo'n 230 kilometers. Op deze plek ga ik verslag doen van de voorbereiding en van de tocht zelf. Zaterdag 10 januari Vandaag kunnen de huursteps opgehaald worden in Bolsward. Klokslag 1 uur ben ik daar. Ik rij terug met twee steps achterin de auto, ééntje voor mij en ééntje voor mijn buurjongen. Mijn buurjongen is een circusartiest en heeft beloofd om of lopend op zijn handen over de streep te komen of fietsend op zijn éénwieler. Actiefoto: Zondag 11 januari Mijn conditie is flink aangetast door een stevige griep maar dat weerhoudt mij er niet van de step uit te proberen. Eerst maar even een kilometer of vier. Het valt niet mee: ik zal de conditie weer rustig moeten opbouwen. Op Youtube bestudeer ik nog een aantal filmpjes van voorgaande jaren. Leerzaam voor techniek en uitrusting. Zo lijkt het me raadzaam een triatlon stuur te monteren. Extra handgrepen komen ook van ...