Rap261
Gebruiker
- Lid geworden
- 2 sep 2008
- Berichten
- 273
Hoi,
Je kent ze wel, die zoek opties op internet pagina's. Een TextBox waar je tekst invuld met daarnaast een knop. Druk die in en de tekst wordt gevonden.
Hier een script wat onder een CommandButton wordt gehangen om de tekst in de TekstBox te vinden in het werkblad.
De regel With ActiveSheet.Range("A:A") dien je aan te passen naar eigen wens.
("A:A") geeft aan dat er alleen in kolom A gezocht wordt. Verander dit door b.v.:
("A1:A10") Voor een zoekbereik in de range A1 tot en met A10
("A:B") Voor een zoekbereik in de kolommen A en B
Hieronder het script voor dezelfde optie alleen dan met een "Find next" optie erbij.
Meerdere van dezelfde woorden in het bestand? blijf dan op de knop klikken
Succes!
Je kent ze wel, die zoek opties op internet pagina's. Een TextBox waar je tekst invuld met daarnaast een knop. Druk die in en de tekst wordt gevonden.
Hier een script wat onder een CommandButton wordt gehangen om de tekst in de TekstBox te vinden in het werkblad.
Code:
Private Sub CommandButton1_Click()
If IsEmpty(ActiveSheet.TextBox1.Value) = False Then
With ActiveSheet.Range("A:A")
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
De regel With ActiveSheet.Range("A:A") dien je aan te passen naar eigen wens.
("A:A") geeft aan dat er alleen in kolom A gezocht wordt. Verander dit door b.v.:
("A1:A10") Voor een zoekbereik in de range A1 tot en met A10
("A:B") Voor een zoekbereik in de kolommen A en B
Hieronder het script voor dezelfde optie alleen dan met een "Find next" optie erbij.
Meerdere van dezelfde woorden in het bestand? blijf dan op de knop klikken
Code:
Private Sub CommandButton1_Click()
Dim Zoekletter As String
Dim Results As Range
Dim c As Range
Dim ans As Variant
If Trim(TextBox1) <> "" Then
Zoekletter = UCase("*" & TextBox1.Text & "*")
With ActiveSheet.Columns("A:A")
Set c = .Find(What:=Zoekletter, LookIn:=xlValues, _
lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not c Is Nothing Then
c.Select
TextBox1 = ""
Else
MsgBox TextBox1.Text & " niet gevonden."
End If
End With
Else
Cells.FindNext(After:=ActiveCell).Activate
End If
End Sub
Succes!