resultaat invulveld vba in aangepast formaat weergeven

  • Onderwerp starter Onderwerp starter 1978
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
1

1978

Gebruiker
Lid geworden
21 jun 2012
Berichten
10
Goede avond,

Ik zou graag willen dat het resultaat van een invulveld weergegeven wordt in het volgende formaat "##"."##"."####)
Ik weet dat het iets met .NumberFormat is, of Selection.NumberFormat, maar weet niet precies hoe ik die moet weg schrijven.

Wie kan me helpen?

Bedankt Jeroen

Sub zoeken2()
Sheets("tht lijst").Visible = True
Sheets("tht lijst").Select
Dim Z As String
Z = InputBox("toets het artikelnummer in wat je wilt verwijderen op deze manier: 00.00.0000 (dus let op de punten)", "ARTIKEL VERWIJDEREN")
Cells.Find(What:=Z, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
With ActiveCell
If .Row > 7 Then
If MsgBox("Weet je zeker dat je dit artikel wilt verwijderen?" & " " & Cells(.Row, 3), vbYesNo) = vbYes Then .EntireRow.ClearContents
End If
End With
Call verwerk
Sheets("tht lijst").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
 
een inputbox kan je voor zover ik weet geen invul formaat meegeven.
 
@ edmoor,

Ik krijg de foutmelding:

Compileerfout

Kan het project of de bibliotheek niet vinden

Wat nu?
 
Laat de gebruiker alleen de cijfers invullen en doe dan direct na de inputbox het volgende:
Code: 
Z = Mid(Z, 1, 2) & "." & Mid(Z, 3, 2) & "." & Mid(Z, 5, 4) & ")"
 
1978 zei:
@ edmoor,

Ik krijg de foutmelding:

Compileerfout

Kan het project of de bibliotheek niet vinden

Wat nu?
Klik om te vergroten...

Foutje van mij, sorry.
Ik had net m'n bericht verwijderd en een nieuwe geplaatst.
Probeer dat eens.
 
Laat eens zien hoe je dat er nu in hebt staan.
 
Sub zoeken2()
Sheets("tht lijst").Visible = True
Sheets("tht lijst").Select
Dim Z As String
Z = InputBox("toets het artikelnummer in wat je wilt verwijderen op deze manier: 00.00.0000 (dus let op de punten)", "ARTIKEL VERWIJDEREN")
Z = Mid(Z, 1, 2) & "." & Mid(Z, 3, 2) & "." & Mid(Z, 5, 4) & ")"

Cells.Find(What:=Z, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True _
, SearchFormat:=False).Activate
With ActiveCell
If .Row > 7 Then
If MsgBox("Weet je zeker dat je dit artikel wilt verwijderen?" & " " & Cells(.Row, 3), vbYesNo) = vbYes Then .EntireRow.ClearContents
End If
End With
Call verwerk
Sheets("tht lijst").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
 
Dat is in ieder geval goed. Kun je wel de mid() functie gebruiken in VBA?
Dat werkt normaal gesproken overal.
 
Hij geeft dan aan verwacht variabele, wat zou die mid functie doen dan?
 
Met de MID() functie kun je een gedeelte uit een string halen: MID(variabele, startpositie, lengte)
Plaats anders je document eens.
 
Volgens mij heeft hij niet alle macro's mee genomen of bij jou wel?
 
Ik zie in ieder geval niet de macro die je in je bericht hebt staan, maar dat heeft niks met het plaatsen van het document als bijlage te maken.
Voor de rest ziet het er wel lekker uit :P
 
Er is aan de hand wat ik ongeveer in gedachten had. Er mist een bibliotheek die wel is aangevinkt.
Klik in de VBA editor in het menu op Extra en kies dan Verwijzingen.
Vink hier de ontbrekende Adobe Acrobat Browser Control Library uit:
Ontbreekt.jpg

Voeg daarna mijn voorbeeld regel toe, sla het document op en open hem dan weer om het te testen.
 
Ik krijg nu objectvariabele of blokvariabele With is niet ingesteld
 
Dan zul je in debug mode moeten kijken wat er mis gaat want dan klopt er syntactisch iets niet.
Kijk eens in Macro4, daar mist een _ teken om een regel te vervolgen.
Het staat dus los van mijn voorbeeldregel.

Compileer altijd je project na wijzigingen om op dat soort foutjes te controleren.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan