Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Zelle in Spalte suchen
20.12.2008 12:30:20 Christian
NotSolved
22.12.2008 13:28:35 Holger
NotSolved
22.12.2008 13:30:23 Holger
NotSolved
05.01.2009 14:59:29 Christian
NotSolved
22.12.2008 17:49:52 Kalle
NotSolved

Ansicht des Beitrags:
Von:
Christian
Datum:
20.12.2008 12:30:20
Views:
1001
Rating: Antwort:
  Ja
Thema:
VBA Zelle in Spalte suchen
Schönen guten Tag,

ich habe das Problem, dass ich eine Suchfunktion für eine Kundendatentabelle erstellen möchte, mein Code jedoch nicht funktioniert!

Die Werte (Namen) nach denen gesucht werden soll stehen in der 5. Spalte.

Das Suchkriterium wird in eine Textbox in einer UserForm eingegeben und über einen Button soll dann nach dem Wert gesucht werden.

Ideal wäre natürlich wenn er auch nur nach anfangsbuchstaben sucht und diese dann markiert (auswählt).

Also der Code ist folgender:

Option Explicit
Dim i As Long
Dim str_Suchstring As String
Dim str_Zelleninhalt As String

Sub cmdsuchen_Click() 'Button'

str_Suchstring = txtsuchen.Value

If str_Suchstring = "" Then
Exit Sub
End If
i = 0
For i = 1 To 500
str_Zelleninhalt = Cells(i, 5)
If str_Suchstring = str_Zelleninhalt Then
Cells(i, 5).Select
Else
MsgBox ("Keine übereinstimmenden Daten gefunden")

End If
Next i
End Sub

Ich hoffe jemand kann mir einen Schubs in die richrige Richtung geben, damit der Code funktioniert!!

Vielen Dank schon mal im Voraus und gemütliche Feiertage!!

Mfg Christian

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Zelle in Spalte suchen
20.12.2008 12:30:20 Christian
NotSolved
22.12.2008 13:28:35 Holger
NotSolved
22.12.2008 13:30:23 Holger
NotSolved
05.01.2009 14:59:29 Christian
NotSolved
22.12.2008 17:49:52 Kalle
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar