Help, excel error 53 (loading userform) <== problem solved
 

Yes, you're right.
After hours of looking, suddenly i notice the problem.
It was a stupid problem; but my problem ;-)

The code in userform Maatvoering:

Private Sub UserForm_Initialize()

filenaam = Range("C100")
If filenaam = "Geen" Then
MsgBox "Selecteer eerst de juiste poort / hekwerk!" & Chr$(13) & _
"anders valt er niets te berekenen."
Exit Sub
End If

filenaam = "C:\CALCULATIE\" & filenaam & "A.bmp"
Image1.Picture = LoadPicture(filenaam)

In the name of the file cel "C100" there was a (how do you call it ??) a double space ??, but the image picture on the harddisk had only one space.

Range (C100) contents "Hek 100" (double space) ; filename on disk 'Hek 100" (one space)'
THat was the problem.

RB Smissaert and , thanks for thinking about this problem.

================================================== ======================

Is there some code in the UserForm_Activate() or UserForm_Initialize ()
events that may have to do with this?
Put a Stop before Load Maatvoering and step through your code with F8.

RBS


"Kc" wrote in message
ll.nl...
Hi all,

Sorry for my bad englisch.
I wrote a program in Excel that only calls a form to load when in range
"C100" the word "Geen" excist.

Private Sub CommandButton9_Click()
If Range("C100").Value = "Geen" Then
MsgBox "Selecteer eerst een poort of en hek, anders werkt het
programma niet ;-)"
Exit Sub
End If

Load Maatvoering
Maatvoering.Show
End Sub



--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-

Help, excel error 53 (loading userform) <== problem solve
 

No problem, Kc. Glad you found the glitch. We have all been down that road.

"Kc" wrote:

Yes, you're right.
After hours of looking, suddenly i notice the problem.
It was a stupid problem; but my problem ;-)

The code in userform Maatvoering:

Private Sub UserForm_Initialize()

filenaam = Range("C100")
If filenaam = "Geen" Then
MsgBox "Selecteer eerst de juiste poort / hekwerk!" & Chr$(13) & _
"anders valt er niets te berekenen."
Exit Sub
End If

filenaam = "C:\CALCULATIE\" & filenaam & "A.bmp"
Image1.Picture = LoadPicture(filenaam)

In the name of the file cel "C100" there was a (how do you call it ??) a double space ??, but the image picture on the harddisk had only one space.

Range (C100) contents "Hek 100" (double space) ; filename on disk 'Hek 100" (one space)'
THat was the problem.

RB Smissaert and , thanks for thinking about this problem.

================================================== ======================

Is there some code in the UserForm_Activate() or UserForm_Initialize ()
events that may have to do with this?
Put a Stop before Load Maatvoering and step through your code with F8.

RBS


"Kc" wrote in message
ll.nl...
Hi all,

Sorry for my bad englisch.
I wrote a program in Excel that only calls a form to load when in range
"C100" the word "Geen" excist.

Private Sub CommandButton9_Click()
If Range("C100").Value = "Geen" Then
MsgBox "Selecteer eerst een poort of en hek, anders werkt het
programma niet ;-)"
Exit Sub
End If

Load Maatvoering
Maatvoering.Show
End Sub



--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-