Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Vermijden van .select  (gelezen 17041 keer)

0 leden en 2 gasten bekijken dit topic.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Vermijden van .select
« Gepost op: 13 januari 2019, 07:28:20 »
Voor het stokpaardje van DotchieJack:

Ik blijf sukkelen met het vermijden van .select in mijn VBA-code.

Ik moet bijv. uit een tabblad "Instellingen" een aantal gegevens ophalen.
Ik zou dit doen alsvolgt, maar dan krijg ik op mijn donder van DotchieJack...
For i = 24 To 28
        Sheets("Instellingen").Select
        dagbegin = Day(.Cells(i, 7))
        maandbegin = Month(Cells(i, 7))
        jaarbegin = Year(Cells(i, 7))
    Next i

Hoe vermijd ik de .select
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Vermijden van .select
« Reactie #1 Gepost op: 13 januari 2019, 08:44:19 »
Citaat
dan krijg ik op mijn donder van DotchieJack
Zeker weten, geen kus van de juf en een bank achteruit. ;D ;D :D
Sub dotch()
With Sheets("Instellingen")
For i = 24 To 28
    dagbegin = Day(.Cells(i, 7))
    maandbegin = Month(.Cells(i, 7))
    jaarbegin = Year(.Cells(i, 7))
Next i
End With
End Sub
Let op de puntjes voor Cells.
Je hebt in je lijn dagbegin ook een puntje voor Cells gezet wat een foutmelding zal geven omdat je het blad hebt geselecteerd.

 


www.combell.com