Compileerfout verwacht instructie einde

[Judithdoek]

Hallo,

Bij onderstaande code krijg ik de melding: Compileerfout verwacht instructie einde.

.VMC.Value = Year(Date) & "-" & Format(Int(Right(.VMC).Value, 4)) + 1, "#0000")

VMC waar ik naar verwijs is een textbox in een userform.

Kan iemand helpen?

 

[VenA]

Ja hoor. Vooral met de uitgeklede code

 

[edmoor]

Maar er eens dit van:

.VMC.Text = Year(Date) & "-" & Format(Int(Right(.VMC.Text, 4)) + 1, "#0000")

 

[OctaFish]

Kan sowieso simpeler:

.VMC.Value = Year(Date) & Right("-0000" & (Int(.VMC).Value)+ 1), 5)

 

[snb]

Lijkt me iets té . . .

 

[OctaFish]

Niet getest zo, dus zou kunnen. Ik doe het eigenlijk altijd zo:

 .VMC.Value = Year(Date) & "-" & Right("0000" & cInt(.VMC.Value) + 1), 4)

En dat is zéker niet te….

 

[snb]

Ik vond deze nogal spannend: Int(.VMC).Value

 

[Judithdoek]

Niet getest zo, dus zou kunnen. Ik doe het eigenlijk altijd zo:

 .VMC.Value = Year(Date) & "-" & Right("0000" & cInt(.VMC.Value) + 1), 4)

En dat is zéker niet te….

Ik krijg bij bovenstaande code dezelfde foutmelding.

 

[Judithdoek]

en bij alle andere codes die hier boven staan krijg ik nog steeds dezelfde foutmelding

 

[edmoor]

Lees dan #2 nog eens.

 

[snb]

Zonder de kontekst (de rest van de code) blijft het gissen:

VMC = Year(Date) & format(1 + VMC, "-0000")

 

[Judithdoek]

Bedankt, de laatste code werkt

Nou krijg ik de volgende foutmelding: Fout 9, subscript valt buiten het bereik.

De code waar de foutmelding vandaan komt is gearceerd.

Onderstaand de code

Private Sub CommandButton1_Click()
ReDim ar(1 To 1, 1 To 5)
  With VMC_Invoer
    If VMC.Value = "" Then VMC.Value = 0
      ar(1, 1) = [VMC]
      ar(1, 2) = [NAAM]
      ar(1, 3) = [Bev_Door1]
      ar(1, 4) = [Klantnaam]
      ar(1, 5) = [Soort_afspraak1]
   VMC = Year(Date) & Format(1 + VMC, "-0000")
  End With
 [COLOR="#FF0000"] With Workbooks("H:\06 Project\03 Volledige automatisatie\Dashboard\OVERZICHT.xlsm")
  .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(ar, 2)) = ar
  End With[/COLOR]
End Sub

 

[snb]

Wat krijg je met

Sub M_snb()
   for each it in workbooks
     msgbox it.name
   next
End Sub

Trek daaruit je conclusie.
Overigens is jouw variabele arr overbodig.