|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Mit Textfeld den Inhalt dursuchen und anzeigen lassen |
29.07.2015 17:21:09 |
Gast50977 |
|
|
|
30.07.2015 16:36:49 |
XZY |
|
|
|
31.07.2015 07:25:25 |
Gast46614 |
|
|
|
31.07.2015 07:25:51 |
Gast74027 |
|
|
|
31.07.2015 08:48:29 |
XYZ |
|
|
Von:
Gast50977 |
Datum:
29.07.2015 17:21:09 |
Views:
1216 |
Rating:
|
Antwort:
|
Thema:
Mit Textfeld den Inhalt dursuchen und anzeigen lassen |
|
Guten Abend liebe Leut :)
Ich bin zur Zeit daran beschäftigt eine Suchfunktion zu entwickeln, welche mir nach einem Eintrag in eine TextBox ,den Inhalt in der Tabelle findet und die Zeile in der Tabelle markiert.
Bis jetzt habe ich mir folgendes zusammen geschrieben. Irgendwo befindet sich allerdings ein Fehler.
Bitte bitte helft mir weiter!!! Ich finde diesen einfach nicht, meine VBA-Kentnisse sind nicht ausreichend dafür :(
Ich habe mir folgendes zusammen geschrieben:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim Wort As String
Dim Treffer As Long
Set ws = Worksheets("Daten")
letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("A1:AI" & letztezeile)
Set c = .Find(TextBox36.Text, LookIn:=xlValues, After:=ActiveCell, LookAt:=xlWhole)
If Not c Is Nothing Then
c.EntireRow.Select
Else: MsgBox "Konnte den Eintrag nicht finden"
End If
End With
TextBox36.SetFocus
End Sub
Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Vielen Dank für eure schnelle Hilfe!!!! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Mit Textfeld den Inhalt dursuchen und anzeigen lassen |
29.07.2015 17:21:09 |
Gast50977 |
|
|
|
30.07.2015 16:36:49 |
XZY |
|
|
|
31.07.2015 07:25:25 |
Gast46614 |
|
|
|
31.07.2015 07:25:51 |
Gast74027 |
|
|
|
31.07.2015 08:48:29 |
XYZ |
|
|