foutmelding 9

[wilbert1967]

hallo

ik krijg foutmelding Het subscript valt buiten het bereik (Fout 9)
bij deze regel

Windows("NCCW-HIPC").Activate

wat doe ik hier fout?
bijvoegde de hele macro

mvg wilbert

 

[snb]

Kijk eens naar ander topics en hoe daar VBA-code wordt gemaakt.
Vermijd select en activate in VBA-code.
Gebruik de macro-recorder alleen als basis, maar wiedt de code vervolgens tot het allernoodzakelijkste.
VBA houdt zelden van spaties, -, en andere niet-alfanumerieke tekens in namen van objekten (windows, sheets, ranges, etc).

 

[wilbert1967]

heeft u dan een passende methode voor de macro die er bij zit?

 

[snb]

voorbeeld:

Range("a1:U1")= split("naam-beide|datum-opvoer|onderwerp|status|soort|af te handelen|afhandelaar|intaker|urgentie|datum-rappel|prs-email|prs-geslacht|prs-geboortedatum|prs-adres|prs-postcode|prs-woonplaats|vhe-nummer|vhe-complexnummer|vhe-adres|vhe-postcode"
vhe-woonplaats","|")

Doet hetzelfde als:

Range("a1").Select
ActiveCell.FormulaR1C1 = "naam-beide"
Range("b1").Select
ActiveCell.FormulaR1C1 = "datum-opvoer "
Range("$C$1").Select
ActiveCell.FormulaR1C1 = "onderwerp "
Range("$D$1").Select
ActiveCell.FormulaR1C1 = "status "
Range("$E$1").Select
ActiveCell.FormulaR1C1 = "soort "
Range("$f$1").Select
ActiveCell.FormulaR1C1 = "af te handelen"
Range("$g$1").Select
ActiveCell.FormulaR1C1 = "afhandelaar"
Range("$H$1").Select
ActiveCell.FormulaR1C1 = "intaker "
Range("$i$1").Select
ActiveCell.FormulaR1C1 = "urgentie"
Range("$j$1").Select
ActiveCell.FormulaR1C1 = "datum-rappel"
Range("$K$1").Select
ActiveCell.FormulaR1C1 = "prs-email "
Range("$L$1").Select
ActiveCell.FormulaR1C1 = "prs-geslacht "
Range("$M$1").Select
ActiveCell.FormulaR1C1 = "prs-geboortedatum "
Range("$N$1").Select
ActiveCell.FormulaR1C1 = "prs-adres "
Range("$O$1").Select
ActiveCell.FormulaR1C1 = "prs-postcode "
Range("$P$1").Select
ActiveCell.FormulaR1C1 = "prs-woonplaats "
Range("$Q$1").Select
ActiveCell.FormulaR1C1 = "vhe-nummer "
Range("$R$1").Select
ActiveCell.FormulaR1C1 = "vhe-complexnummer "
Range("$S$1").Select
ActiveCell.FormulaR1C1 = "vhe-adres "
Range("$T$1").Select
ActiveCell.FormulaR1C1 = "vhe-postcode "
Range("$U$1").Select
ActiveCell.FormulaR1C1 = "vhe-woonplaats "

 

[Ginger]

ik krijg foutmelding Het subscript valt buiten het bereik (Fout 9)
bij deze regel

Windows("NCCW-HIPC").Activate

1. Is het betreffende workbook wel geopend?
2. Voeg 'ns .xls aan de bestandsnaam toe.

Groet, Leo

 

[wilbert1967]

hoi
bestand is geopend, dat zie ik op scherm
nccw-hipc heeft geen extensie.

mvg wilbert

 

[Wigi]

Dit is een non-issue, zoals reeds gezegd vermijd Activate.

 

[wilbert1967]

hallo

wat is dat beter dan Activate. ?

mvg

 

[Wigi]

Spreek een bestand en tabbladen onmiddellijk aan met de naam, bv. Workbooks("MijnBestand.xlsx").Worksheets("Blad1").Range("A1").Value = 5

Dit kan uiteraard ingekort worden, maar dit is de gedachtegang. Er zit een cascadesysteem in: Applicatie --> Workbook --> Worksheet --> Range