Macro

[Rap261]

Macro voor celverwijzing naar blad twee

Hallo,

Ik heb de volgende vraag:

Ik heb een macro voor het opzoeken van tekst via een tekstbox+commandbutton.
Dit werkt goed alleen wil ik nu dat de tekst die ik in voer in de textbox gevonden wordt op het tweede tabblad en niet op de "Active sheet".

Welke aanpassing in de marco moet ik maken hiervoor?
"Active sheet" aanpassen in "Sheets(1)" heeft niet geholpen.
Hieronder de marco

Private Sub CommandButton1_Click()
If IsEmpty(ActiveSheet.TextBox1.Value) = False Then
With ActiveSheet.Range("A1:a10")
Set dg = .Find(ActiveSheet.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not dg Is Nothing Then
Range(dg.Address).Activate
Else
MsgBox TextBox1.Text & " niet gevonden."
End If
End With
End If
End Sub

 

[ReneDirks]

.sheet(1) is de 1e sheet, sheet(2) is de tweede... lastig he? soms beginnen we bij 0 te tellen, en soms bij 1

 

[Rap261]

Macro voor celverwijzing naar blad twee

Rene,

Wanneer ik Sheet(2) of Sheets(2) gebruik werkt de Macro nog steeds niet.
Ik krijg de melding:

If Not c Is Nothing Then
c.Select

Waarbij c.Select geel is opgelicht.
Zie prtscreen