Adri,
nu heb ik ondertussen op ' blad knooppunten' getest met een listbox te maken die ook de desbetreffende afbeeldingen kan tonen. (google...): naam linker kolom verbonden met afbeelding rechterkolom.
Daar vind ik in je laatste bijlage niets van terug. Anderzijds, als experiment kan het de moeite zijn, maar ik vond ergens dat je ritten en je afbeeldingen dezelfde nummering aanhouden. Dan ga je toch en een behoorlijke omweg maken, en je bestand nog zwaarder belasten met die extra werkbladen.
Listbox op je blad DataIngeven en deze vullen met macro is wel een goed idee (al zou ik nog altijd eerder pleiten om gewoon een nummer in te vullen - of bij nader inzien zelfs niets, want je kan ook het nummer uit "Rit" pakken).
Listbox dus. Vermits je daar al een gelinkte cel hebt in voorzien kan je bij kopiëren naar Lijst de afbeelding onmiddellijk op de juiste plaats laten terechtkomen.
als ik het met comment doe, kan ik die dan ook een bepaalde plaats zetten/schikken?
knooppunten en meteo afbeeldingen mogen niet overlappen.
Kwestie van smaak, maar om het visueel een beetje aantrekkelijk te houden zou ik "Weer" wat lager op Lijst laten terechtkomen, dan kan je daar Meteovista als commentaar aanhangen en knooppunten aan "Rit".
De code om dat te automatiseren heb je al, dus nog enkel de cel bepalen :
In Sub Button20_Click() heb je zelf al dit gezet :
Application.Goto Reference:=Worksheets("Lijst").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), Scroll:=True
Daarmee ga je naar de linkerbovenhoek van de range waar je de gegevens wil plakken. In elk geval zou de opmerking in kolom B komen. Voor de rijen voor Meteovista en knooppunten tel je er, afhankelijk van je keuze, de nodige rijen bij.
En de code die je onder "Toon knooppunten" en "Meteovista" hebt staan voeg je toe aan Button20_Click.
Vervolgens mogen die knoppen en code weg.
Dit alles aangenomen dat, maar daar twijfel ik niet aan, je een tweede listbox voor Meteovista zal maken.
Mvg,
pitufo