Hallo,
Ik heb een vraag over het zoeken met VBA over een geheel Excel bestand met meerdere tabbladen.
in een bestand met meerdere tabbladen heb ik op de homepage een textbox en commandbutton geplaatst.
Doormiddel van een waarde die in de textbox staat, via de commandbutton, moeten meerdere tabbladen worden doorzocht.
Als de waarde gevonden is moet het tabblad worden geopend en de waarde die gezocht word moet worden gehiglight.
ik heb al een vba gemaakt maar kan alleen de waarde zoeken op het tabblad dat actief is(homepage)
zouden jullie mij kunnen helpen zodat dit wel werkt.
alvast bedankt.
hieronder de vba code
Private Sub CommandButton1_Click()
'
' ZoekOp Macro
'
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim eerstegevonden As String
'
'On Error Resume Next
aantal = ActiveWorkbook.Worksheets.Count
zoek = TextBox1.Value
Sheets("Homepage").Activate
Range("a1").Select
For i = 1 To aantal
bladnr = "blad" + Format(i)
'Sheets(bladnr).Activate
Range("a1").Select
If Not Cells.FindNext(After:=ActiveCell) Is Nothing Then
eerstegevonden = Cells.Find(zoek).Address
Cells.Find(What:=zoek, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Interior.ColorIndex = 4
'While Cells.FindNext(After:=ActiveCell).Address <> eerstegevonden
'Cells.FindNext(After:=ActiveCell).Activate
Cells.Interior.Color = RGB(255, 255, 255)
ActiveCell.Interior.ColorIndex = 4
'Wend
End If
Next
End Sub
Ik heb een vraag over het zoeken met VBA over een geheel Excel bestand met meerdere tabbladen.
in een bestand met meerdere tabbladen heb ik op de homepage een textbox en commandbutton geplaatst.
Doormiddel van een waarde die in de textbox staat, via de commandbutton, moeten meerdere tabbladen worden doorzocht.
Als de waarde gevonden is moet het tabblad worden geopend en de waarde die gezocht word moet worden gehiglight.
ik heb al een vba gemaakt maar kan alleen de waarde zoeken op het tabblad dat actief is(homepage)
zouden jullie mij kunnen helpen zodat dit wel werkt.
alvast bedankt.
hieronder de vba code
Private Sub CommandButton1_Click()
'
' ZoekOp Macro
'
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim eerstegevonden As String
'
'On Error Resume Next
aantal = ActiveWorkbook.Worksheets.Count
zoek = TextBox1.Value
Sheets("Homepage").Activate
Range("a1").Select
For i = 1 To aantal
bladnr = "blad" + Format(i)
'Sheets(bladnr).Activate
Range("a1").Select
If Not Cells.FindNext(After:=ActiveCell) Is Nothing Then
eerstegevonden = Cells.Find(zoek).Address
Cells.Find(What:=zoek, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Interior.ColorIndex = 4
'While Cells.FindNext(After:=ActiveCell).Address <> eerstegevonden
'Cells.FindNext(After:=ActiveCell).Activate
Cells.Interior.Color = RGB(255, 255, 255)
ActiveCell.Interior.ColorIndex = 4
'Wend
End If
Next
End Sub