• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA compileerfout na update naar 2007

Status
Niet open voor verdere reacties.

Chiel001

Gebruiker
Lid geworden
16 dec 2008
Berichten
41
Nadat ik van Excel 2003 ben overgegaan op 2007 krijg in de volgende foutmelding als ik betreffende worksheet activeer:

'Compileerfout: Kan het project of de bibliotheek niet vinden'

Private Sub Worksheet_Activate()
'Converteer naar hoofdletters
Dim Rng As Range
For Each Rng In Worksheets("Januari").Range("O6:Z25")
If Rng.HasFormula = False Then
Rng.Value = StrConv(Rng.Value, vbProperCase)
End If
Next Rng
End Sub

Tevens ontvang ik dezelfde compileer foutmelding bij onderstaande:

'Afsluiten zonder op te slaan middels button Afsluiten
Sub CommandButton3()
Application.DisplayAlerts = False
Afsluiten = MsgBox("Afsluiten zonder op te slaan ?", vbQuestion + vbYesNo, "Afsluiten Forecast bestand")
If Afsluiten = vbYes Then
BooleanForClosing = True
ActiveWorkbook.Close
Application.DisplayAlerts = True
IsClosed = True
Else
Range("C10").Activate
Cancel = True
End If
End Sub

Nogmaals, in Excel 2003 werkt dit alles prima.

Wie o wie kan mij helpen met bovenstaande; alvast bedankt !
 
Dit is al voldoende:

Code:
Private Sub Worksheet_Activate()
For Each cl In sheets("Januari").Range("O6:Z25").specialcells(2,xlTextValues)
  cl= StrConv(cl, vbProperCase)
Next
End Sub

Kijk eens hoe het getal voor vbProperCase als argument werkt.

Bij de knop is dit voldoende:
Code:
Sub CommandButton3()
  Application.DisplayAlerts = False
  If  MsgBox("Afsluiten zonder op te slaan ?", vbQuestion + vbYesNo, "Afsluiten Forecast bestand") = vbYes Then    ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub
 
Laatst bewerkt:
snb,
bedankt voor je snelle hulp.
Probleem met de Afsluit button is hiermee opgelost. :thumb:

Krijg echter volgende melding bij andere issue:

'Compileerfout: Kan het project of de bibliotheek niet vinden'

Private Sub Worksheet_Activate()
'Converteer naar hoofdletters
Dim cl As Range
For Each cl In Sheets("Januari").Range("O6:Z25").SpecialCells(2, xlTextValues)
cl = StrConv(cl, vbProperCase)
Next
End Sub

Enig idee ??
 
Laatst bewerkt:
Zoek eens in de hulpfunktie van de VBEditor naar strconv.
 
Uiteraard ben ik daar begonnen met zoeken, maar vind daar geen uitleg waaruit ik (als VBA leek) kan opmaken wat er mis gaat...

Wie kan mij (middels een voorbeeld) aangeven hoe dit te verhelpen ? Alvast bedankt !

07/01: Oplossing uiteindelijk gevonden op http://support.microsoft.com/kb/283806/nl
Werkt weer 100% !
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan