Rap261
Gebruiker
- Lid geworden
- 2 sep 2008
- Berichten
- 273
Goedemiddag,
Ik zit met het volgende:
Wanneer ik data/tekst wil zoeken in een excel bestand d.m.v. een tekstbox, vindt excel alleen een resultaat als de data/tekst het eerste gegeven is wat in de cel staat. Hieronder een voorbeeld:
"programmeren is een vak apart"
"Een vak apart is programmeren"
Wanneer ik "programmeren" invoer in de tekstbox wordt alleen de regel gevonden met de tekst "programmeren is een vak apart"
M.a.v. wanneer het stuk tekst dat gevonden moet worden niet aan het begin van de cel staat, wordt dit niet gevonden.
Hieronder de macro die ik gebruik.
Wie kan mij een update geven of uitleggen hoe ik dit aan kan passen?
Spoed is gevraagd
Alvast bedankt voor jullie hulp
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
Ik zit met het volgende:
Wanneer ik data/tekst wil zoeken in een excel bestand d.m.v. een tekstbox, vindt excel alleen een resultaat als de data/tekst het eerste gegeven is wat in de cel staat. Hieronder een voorbeeld:
"programmeren is een vak apart"
"Een vak apart is programmeren"
Wanneer ik "programmeren" invoer in de tekstbox wordt alleen de regel gevonden met de tekst "programmeren is een vak apart"
M.a.v. wanneer het stuk tekst dat gevonden moet worden niet aan het begin van de cel staat, wordt dit niet gevonden.
Hieronder de macro die ik gebruik.
Wie kan mij een update geven of uitleggen hoe ik dit aan kan passen?
Spoed is gevraagd
Alvast bedankt voor jullie hulp
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