Auteur Topic: foto laten opzoeken na intikken volgnummer (gelezen 2606 keer)

lco · « **Gepost op:** 01 mei 2026, 20:53:10 »

Hallo allemaal,

Ik zou graag een aanvulling hebben bij de lijst 2€ alfabetisch.
Ik heb een cel benoemd in kolom P1 naar "foto opzoeken".
Nu zou ik wanneer ik een nummer ingeef in kolom P2 de foto die bij het nummer past
Uit de lijst onder macro “details” wordt weergegeven in kolom P3.
Ps:ik weet niet of het mogelijk is,indien niet duidelijk genoeg laat maar weten

mvg,Luc

lco · « **Reactie #1 Gepost op:** 02 mei 2026, 11:52:58 »

Ik heb via AI een formule gevraagd maar ik krijg het juiste pad niet ingevuld.
kan iemamd mij daarbij helpen (ben niet zo sterk in vba).

ps:nieuwe bijlage met formule

mvg,Luc

SoftAid · « **Reactie #2 Gepost op:** 02 mei 2026, 12:58:18 »

Citaat van: lco op 01 mei 2026, 20:53:10

- Ik zou graag een aanvulling hebben bij de lijst 2€ alfabetisch.
- Ik heb een cel benoemd in kolom P1 naar "foto opzoeken".
- Nu zou ik wanneer ik een nummer ingeef in kolom P2 de foto die bij het nummer past uit de lijst onder macro “details” wordt weergegeven in kolom P3.

Hallo Luc,
- Een kolom "P1" bestaat niet. in een "Kolom"(P) kan je een Rij 1, Rij 2 enz hebben.
- Een cel (P1) "benoemen" naar "foto opzoeken" is hier zeker niet gebeurd. Waar staat de code?
- Een macro "Details" staat niet in jou werkboek. Wel een Userform met de naam "detailfrm"

Vraag, wat is de locatie van je afbeeldingen (van je munten)?

Citaat van: lco op 02 mei 2026, 11:52:58

Ik heb via AI een formule gevraagd maar ik krijg het juiste pad niet ingevuld.
kan iemamd mij daarbij helpen (ben niet zo sterk in vba).

Maak een screenprint van je verkenner "Desktop" en de mappen onder "Mijn 2€ verzameling - kopie\Foto's\en enkele namen van foto's zichtbaar. Hang die aan in je volgend bericht.

SoftAid

lco · « **Reactie #3 Gepost op:** 02 mei 2026, 13:48:58 »

SoftAid,

bedankt voor de reactie.

de locatie van de fotos staan in: > Deze pc (C:)>Documenten>excel>mijn 2€ verzameling>fotos
de namen van de fotos zijn enkel nummers van 1 tot 1200 en er komen er telkens bij.

ps:de fotos en de file"2€ lijsten aangepast)" moeten in de zelfde map staan "2€ verzameling"

mvg,Luc

SoftAid · « **Reactie #4 Gepost op:** 02 mei 2026, 16:34:28 »

Luc,

maak een screenprint van je verkenner "C:\Mijn 2€ verzameling\Fotos\" en met enkele namen van foto's zichtbaar. Hang die aan in je volgend bericht.

SoftAid

lco · « **Reactie #5 Gepost op:** 02 mei 2026, 18:59:30 »

SoftAid,

Ik krijg geen printscreen in mijn bericht alsook geen fotos.
Waarschijnlijk mijn probleem

update:is gelukt intussen

mvg,Luc

SoftAid · « **Reactie #6 Gepost op:** 02 mei 2026, 19:49:49 »

Bijlage posten

lco · « **Reactie #7 Gepost op:** 02 mei 2026, 20:02:29 »

softAid,

hierbij denk ik het gevraagde.

mvg,Luc

SoftAid · « **Reactie #8 Gepost op:** 02 mei 2026, 20:26:10 »

Luc,

verander, vervang deze lijn:

Code: [Selecteer]

Pad = "C:\bureaublad \ Mijn 2€ verzameling - kopie" \ Fotos \ " ' VERGEET DE LAATSTE \ NIET"
door deze:

Code: [Selecteer]

Pad = "C:\Documenten\Excel\Mijn 2€ verzameling\fotos\"

SoftAid

lco · « **Reactie #9 Gepost op:** 02 mei 2026, 21:52:51 »

SoftAid,
pad ingevuld, maar het werkt niet.

Sub FotoOphalen()
Dim Pad As String
Dim Bestandsnaam As String
Dim Foto As Picture
Dim DoelCel As Range

' Instellingen
Pad = "C:\Documenten\Excel\Mijn 2€ verzameling\fotos\"
Bestandsnaam = Range("P2").Value & ".jpg"
Set DoelCel = Range("P3")

' Oude foto's in P3 verwijderen
For Each Foto In ActiveSheet.Pictures
If Not Intersect(Foto.TopLeftCell, DoelCel) Is Nothing Then
Foto.Delete
End If
Next Foto

' Foto invoegen
On Error Resume Next
Set Foto = ActiveSheet.Pictures.Insert(Pad & Bestandsnaam)
On Error GoTo 0

If Not Foto Is Nothing Then
With Foto
.ShapeRange.LockAspectRatio = msoTrue
.Left = DoelCel.Left
.Top = DoelCel.Top
.Height = DoelCel.Height ' Past de hoogte aan de cel aan
End With
Else
MsgBox "Foto niet gevonden: " & Bestandsnaam
End If
End Sub

SoftAid · « **Reactie #10 Gepost op:** 03 mei 2026, 13:35:22 »

Hallo Luc,

de code die ik je had gegeven werkt wel, maar.... ik ging er van uit dat de Starter (OnChange voor deze code "Private Sub Worksheet_Change ()" al in je Sheet-code stond (Heeft AI je dat niet meegegeven?) en dan is er niets dat de macro start.
Net als een mooie auto krijgen, maar geen sleutel om hem te gebruiken

Goed, met die Starter-code werkt mijn macro. Maar ik heb dan toch nog wat verder gesleuteld omdat ik die afbeelding toch nog te klein vond. Nu staan er twee knoppen bij, eentje om de afbeelding te vergroten, eentje om hem terug te verkleinen. En je kan daar nog veel verder in gaan, maar bekijk voorlopig maar even het bestand in bijlage.

Groeten,

SoftAid

lco · « **Reactie #11 Gepost op:** 03 mei 2026, 20:15:34 »

SoftAid,

Bedankt voor de aanpassing ,dit is wat ik voor ogen had. $\o/$ $\o/$

ps:AI heeft inderdaad wat achterwege gelaten.

In bijlage wat ik er van gemaakt heb (pad aangepast voor mij)

mvg,Luc

SoftAid · « **Reactie #12 Gepost op:** 03 mei 2026, 22:05:33 »

Graag gedaan.

Wat bedoel je met "pad aangepast"? Dat stond toch juist op:

Code: [Selecteer]

Pad = "C:\Documenten\Excel\Mijn 2€ verzameling\fotos\"
En gebruik liefst geen Euro-tekens in bestands-namen. Zelfs niet in Pad-namen, mappen. Kan soms niet correct gelezen worden.

Groeten,

SoftAid

lco · « **Reactie #13 Gepost op:** 04 mei 2026, 10:44:48 »

SoftAid,

naam veranderd van: Pad = "D:\Excel\Excel_Oplossing\Munten\fotos\" naar
Pad = "c:\Documenten\Excel\Mijn 2€ verzameling\fotos\"

nogmaals bedankt voor de hulp

mvg,Luc

SoftAid · « **Reactie #14 Gepost op:** 04 mei 2026, 11:31:58 »

Citaat van: lco op 04 mei 2026, 10:44:48

naam veranderd van: Pad = "D:\Excel\Excel_Oplossing\Munten\fotos\" naar
Pad = "c:\Documenten\Excel\Mijn 2€ verzameling\fotos\"

Oh, ja. Jou pad stond er toch bij, dacht ik

. Even het ' weghalen is genoeg.

Zelf vind ik de aangeboden oplossing nog niet ideaal. Kan veel beter. ik zal het bekijken en proberen uit te werken. Je hoort wel van me.

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics