Probleem met Exellwerkblad.

[Voice]

Hallo, Ik heb een Exell werkblad die vrij vele berekeningen en vooral veel gegevens moet ophalen op het WEB.
Dit heeft altijd prima gewerkt tot vandaag. Wanneer ik het werkblad wil bijwerken krijg ik volgende melding:
Methode Range van object_Worksheet is mislukt. Wanneer ik op OK druk krijg ik een nieuwe melding nl:
Typen komen niet met elkaar overeen.
Wordt waarschijnlijk moeilijk om dit op te lossen, maar je weet maar nooit dat er een Exell specialist op Seniorennet zit.
Alvast bedankt voor de moeite.

[franç]

De foutmelding is afkomstig van een macro. Als je de bewuste macro hier plaatst, valt er misschien iets meer van te zeggen. De vraag is ook HOE je gegevens van de website binnenhaalt in Excel, via Kopiëren-Plakken, of op een andere manier?

[Voice]

@ Franc, Bedankt voor de reactie. Ik zou niet weten over welke macro(s) het gaat. Dat Exell-blad dient om mijn beleggingen bij te houden. Er staat dus een knop "bijwerken" op, wanneer je die aanklikt worden allerlei gegevens binnengehaald van de MorningStar website. Vooreerst de wisselkoersen en dan de koers (waarde) van de fondsen die ingevoerd zijn op het werkblad.
Is er een manier om de slecht werkende macro op te zoeken? Nadat ik die melding had gekregen heb ik een nieuw bestand aangemaakt en hierbij gegevens van het defecte bestand gekopieerd en geplakt in het nieuwe. Tussenin heb ik de werking van het nieuwe bestand af en toe gecontroleerd en alles leek te lukken. Toen het nieuwe bestand klaar was heb ik het dan opnieuw laten bijwerken maar dat lukte niet meer en kreeg ik opnieuw die meldingen.

[franç]

Het Excelbestand waar de knop "Bijwerken" in staat, dat moet toch ergens vandaan komen? Heeft iemand je dat ter beschikkking gesteld? De knop "Bijwerken", die staat standaard niet in een werkblad. En het is waarschijnlijk die knop die een macro in werking stelt.
- Druk eens (als het Excelbestand geopend is) de toetsen ALT-F11 (dwz: de linker-ALT-toets ingedrukt houden terwijl je op F11 drukt), je komt dan in de vba-editor.
- Dubbelklik in de linkerkolom op de naam van het blad (bv. 'Blad1') waarin de knop "Bijwerken" staat en kijk of er aan de rechterkant wat staat. Indien jam kopieer dat en plaats het hier.
- Kijk ook of aan de linkerkant een module staat. Indien ja, dubbelklik er dan op en als je aan de rechterkant een macro ziet, kopieer die dan en plaats de code hier.

[Voice]

Beste, hieronder hetgeen ik te zien krijg als ik de 1e handeling uitvoer. Ik heb er ook een screenshot van meegestuurd. Ik kan geen "module" terugvinden.
Dat bestand kan gedownload worden op "mijnkapitaal.be" en noemt Francky-Matic. Eventjes dacht ik dat het om dezelfde persoon ging. Uw naam is franc en Francky is de persoon die het bestand gemaakt heeft. Zal wel te ver gezocht zijn zeker?
Als het te moeilijk is of wordt zal ik het bestand nog eens downloaden en alle gegevens opnieuw invullen en hopelijk zit de fout niet in het originele bestand.


Private Sub cmdBijwerken_Click()
Call ThisWorkbook.Update
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngTableFondsen As Range
Dim rngTableTransactionIn As Range
Dim rngTabletransactionOut As Range
Dim sISIN As String

On Error Resume Next

Set rngTableFondsen = Range("Fondsen")
Set rngTableTransactionIn = Range("TransactiesIn")
Set rngTabletransactionOut = Range("TransactiesOut")

If Not Application.Intersect(ActiveCell, rngTableFondsen.Cells) Is Nothing Then

If Application.WorksheetFunction.Subtotal(3, Range("Fondsen[ISIN]")) = 1 Then
Call rngTableFondsen.AutoFilter(Range("Fondsen[ISIN]").Column)
Call rngTableTransactionIn.AutoFilter(Range("TransactiesIn[ISIN]").Column)
Call rngTabletransactionOut.AutoFilter(Range("TransactiesOut[ISIN]").Column)
Else
sISIN = ActiveSheet.Cells(ActiveCell.Row, Range("Fondsen[ISIN]").Column)

Call rngTableFondsen.AutoFilter(Range("Fondsen[ISIN]").Column, sISIN)
Call rngTableTransactionIn.AutoFilter(Range("TransactiesIn[ISIN]").Column, sISIN)
Call rngTabletransactionOut.AutoFilter(Range("TransactiesOut[ISIN]").Column, sISIN)
End If
End If

Cancel = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If [SelectedRow] <> "" Then
[SelectedRow] = Target.Row
End If

End Sub

[franç]

Zonder het bestand met gegevens te kunnen inzien waarin zich het probleem voordoet, is de oorzaak van de fout moeilijk aan te wijzen. Als de foutmelding verschijnt, bekijk dan de vba-code eens, de regel met de fout wordt doorgaans gemarkeerd.
Je kunt (denk ik) je probleem best voorleggen aan de beheerders van de website waarvan je het bestand gedownload hebt. Jij bent waarschijnlijk niet de enige die met de vermelde foutmelding te maken krijgt.

[Voice]

ok, zal ik doen. Toch bedankt voor de moeite.

[Sony]

Voice,

ThisWorkbook.Update is een Excel bestand.
staat die in dezelfde map ?

Sony