fout melding line 13 niet weergeven

[Ed Raket]

fout melding line 13 : wat doe ik fout ?


Beste forum leden,
Ik ben nog maar net met vba programeren begonnen en heb het volgende geprogrameerd.
Het is een vbatje om volgnrs uit te printen daar middel van eigen ingave.
Alleen bij het gedeelte waar je het aantal in moet vullen en vanaf welk nummer gaat er iets fout.
Dwz als je niets invult of annuleert krijg je de volgende fout melding.
Fout 13 tijdens uitvoering:
typen komen niet met elkaar overeen

Wat doe ik fout ?
ook als ik gebruik maak van if gaat het fout

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    weeknr = InputBox("weeknr invoeren ")
    Cells(16, 1) = weeknr
    If weeknr > 52 Then
    weeknrwrong
    Exit Sub
    End If
    If weeknr < 1 Then
    weeknrwrong
    Exit Sub
    End If
    honderdnr = InputBox("100nr invoeren")
    Cells(16, 2) = honderdnr
    If honderdnr > 9 Then
    honderdnrwrong
    Exit Sub
    End If
    If honderdnr < 1 Then
    honderdnrwrong
    Exit Sub
    End If
    Hoeveel = InputBox("Hoeveel bladen wil je Printen")
    nummer = InputBox("Vanaf welk nummer je beginnen")
    For i = 0 To Hoeveel - 1
    [color=green]'De 0 moet hier echt staan omdat de volgnr bij nul beginnen[/color]
    Cells(16, 3) = nummer
    nummer = nummer + 1
    ActiveSheet.PrintOut
    Application.ScreenUpdating = True
    Next
    End Sub
Private Sub weeknrwrong()
MsgBox "weeknr moet tussen de 1 en 52 zijn", vbCritical + vbInformation, "Let op!!!!!!!"
End Sub
Private Sub honderdnrwrong()
MsgBox "honderd nr moet tussen de 1 en 9 zijn", vbCritical + vbInformation, "Let op!!!!!!!"
End Sub

Niet echt belanrijk maar wel leuk om te weten
is het mogelijk bij een inputbox meerdere regels te maken
en een vbinformation aan toe tevoegen behalve dan activeworkbook.author


met vriendelijk groet Ed

 

[Hans123]

Het soort variabele dat je krijgt met een inputbox is een string en geen getal. Indien je hiermee gaat rekenen "snapt" excel meestal wel dat je een getal bedoeld.
De oplossing kan zijn om de input van de inputbox om te zetten naar een getal door neer te zetten met Cint voor omzetting naar een integer of Cdbl voor een double.

Om meerder input te maken kun je beter gebruik maken van een userform.


Wat je jezelf eigenlijk zou moeten aanleren is om variabelen te declareren, dan zullen dit soort fouten minder voorkomen.

Indien je een waarde wilt toekennen aan een cel gebruik dan de toevoeging .value
(Cell(16,1).value = .....) In dit geval kun je ook eenvoudig gebruik maken van Range("B16").value=....
Cell geeft namelijk een object aan met verschillende eigenschappen en methoden waarvan .value er slechts 1 van is.

 

[Ed Raket]

terug van weg

Ik ben er even tussen uit geweest maar ben weer terug,

zo als ik al zei ik ben ik nog maar net met vba bezig
en ik heb er dus nog niet zo veel verstand van en een formulier maken kan ik niet
nu is het misschien teveel gevraagd maar kan iemand dat voor mij doen.

bijvoorbaat dank

 

[Demeter]

Ed,

Kijk hier eens:
http://www.contextures.com/xlUserForm01.html

Groet,
Ferenc

ps.
Tip: ook handig om je code te laten inspringen, wordt het beter leesbaar

 

[Ed Raket]

mezelf userform maken geleerd nu de rest nog

Ik ben deze hele zondag bezig geweest om tot dit userformpje te komen.
Ik mag wel zeggen dat ik erg trots op mezelf ben.
Het heeft mee een echtelijke ruzie gekost om dat ik de hele dag achter die #$%& computer zat maar ik heb het er voor over.

maar nu kom ik toch echt niet verder
Kn er dan niemand me helpen om tot het zelfde effect te komen als in de eerste vraag ??

ik hoop echt dat er iemand is want ik wordt nu een beetje moedeloos

was getekend

Ed Raket

 

[Ed Raket]

aan moderators

kan een van jullie de vraag zaanpassen naar een die meer toepasselijk is
b.v. ritnr's maken met userform
bij voorbaat dank

 

[Demeter]

Ed,

Probeer deze eens:

Private Sub btnprinten_Click()

    If txtweeknr < 1 Or txtweeknr > 52 Then
        Me.Hide
        MsgBox "week nr moet tussen de 1 en 52 zijn", vbCritical + vbInformation, "Let op!!!!!!!"
        Exit Sub
    Else
        Range("A3") = txtweeknr
    End If

    If txthonderdnr < 1 Or txthonderdnr > 9 Then
        Me.Hide
        MsgBox "honderd nr moet tussen de 1 en 9 zijn", vbCritical + vbInformation, "Let op!!!!!!!"
        Exit Sub
    Else
        Range("B3") = txthonderdnr
    End If
    
    Range("C3") = txttotwelknr
    
'ActiveSheet.PrintOut

End Sub

groet,
Ferenc

ps.
let ook op de opmaak van de code, is deze niet beter leesbaar?

 

[Demeter]

Ed,

Wat wil je eigenlijk maken.
Kan er niet echt kaas van eten.

Groet,
Ferenc

 

[Ed Raket]

kijk het morgen na

Demeter
bedankt maar ik kijk het morgen na ik ga nu slapen
en ja het ziet er inderdaad beter uit

 

[Ed Raket]

Beste Demeter (ferenc) en alle andere

Ik wil opvolgende ritnr's genereren
Kijk bij het bestandje 1stepoging en klik op "dit formulier printen"
en kijk wat er gebeurt.
Tip: Typ bij de inputbox "Hoeveel bladen wil je Printen" een niet al te hoog nr in
dit is namelijk het aantal wat er uit je printer komt.

ik wil het zelfde bereiken bij het bestand met het userform (2depoging)
maar krijg het niet voor elkaar

Het mag ook zo zijn dat dit het eind nr is
bv dat je 50 en 20 invult en dat het aantal te printen bladen 30 is

Demeter ik hoop dat je er nu kaas van kan eten

 

[Demeter]

Ed,

Kijk hier eens het attachment.

Groet,
Ferenc

 

[Ed Raket]

Bedankt Demeter

:thumb:
Geweldig het werkt ik heb nog een paar aanpassingen gemaakt maar super.
als ik thuis ben dan upload ik het bestandje.

 

[Demeter]

Graag gedaan.

Kan je de vraag op opgelost zetten, dan behouden we het overzicht?

Groet,
Ferenc