Ophalen gegevens uit een verborgen pagina in Excel

Status
Niet open voor verdere reacties.

Streuby

Gebruiker
Lid geworden
23 okt 2019
Berichten
11
Hallo, ik zou graag uit een verborgen pagina gegevens ophalen in excel met VBA.

Ik gebruik daarvoor bv. volgende functie:

Code:
    Worksheets("Toestellen").Activate
    Set G = Cells.Find(What:=P, After:=Range("A1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
 
 'Als waarde niet gevonden wordt, kent VBa de waarde "Is nothing" toe aan variabele G
 'Als waarde gevonden is zal de variabele G overeenstemmen met de rij waarin de waarde
 'werd gevonden.
    
    If G Is Nothing Then Return
    If P = G Then GoSub Goed
    
 Return
 
Ncompleet:

    TxtTag.TabKeyBehavior = True
    C = False
    
    Return

Zolang Worksheets("Toestellen") zichtbaar is, werkt deze code perfect, maar ik zou graag deze pagina verborgen hebben.

Heeft er iemand een oplossing?

Mvg, Streuby
 
Maak er dit van:
Code:
With Sheets("Toestellen")
    Set G = .Cells.Find(P, .Range("A1"), , xlPart)
End With
 
Beste edmoor, bedankt voor uw snelle reactie.
Ik heb uw voorgestelde oplossing geprobeerd, maar ik krijg volgende melding: Sheets("Toestellen")=<Methode Sheets van Object_Global is mislukt>
 
Is voldoende:

Code:
Sub M_snb()
   MsgBox Sheets("Toestellen").Cells.Find("abc", , , 2).Address
End Sub

als vind check:

Code:
Sub M_snb()
   MsgBox Sheet1.Cells.Find("abc", , , 2) Is Nothing
End Sub
 
Laatst bewerkt:
Bedankt voor de reacties.

Blijkbaar lag het probleem elders en werkte de - door mij gebruikte - programmacode perfect.

ik had volgende code
Code:
Private Sub UserForm_Initialize()

    ThisWorkbook.Windows(1).Visible = False
    
End Sub

met het verbergen van de werkbladen verward.
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan