Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und in gefundene Zelle gehen
 04.10.2011 14:59:41 Martin
NotSolved
04.10.2011 20:06:07 Till
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
04.10.2011 14:59:41		 Views:
1619		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und in gefundene Zelle gehen

Hallo, ich möchte über eine Userform einen festen Bereich (2 Tabellenblätter) nach einen Namen durchsuchen. In der Userform sollte nach jedem eintippen eines Buchstabens in der Listbox eine Auswahl der Treffer gezeigt werden, wenn möglich mit demTabellennamen (Tabelle 1 oder 2) wo es steht. Nach Doppelklick in der Listbox sollte jetzt automatisch die gefundene Zelle gewählt werden. Habe auch schon etwas gefunden, aber leider nicht ganz so wie ich es benötige. Hier mal der Code.

Option Explicit 

Dim x As Long 
Dim FaName As String 

Private Sub CommandButton1_Click() 
FaName = "" 
Unload Me 
End Sub 

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 
FaName = ListBox1.Value 
Sheets("Tabelle1").Range("D2").Value = FaName 
Unload Me 
End Sub 

Private Sub TextBox1_Change() 
Dim arr() As Variant 
Dim index As Long, iCount As Long 
x = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row, 65536) 
If TextBox1.Value = "" Then 
ListBox1.RowSource = "B5:B" & x 
Exit Sub 
End If 
ListBox1.RowSource = "" 
ListBox1.Clear 
For index = 5 To x 
If LCase(Left(Cells(index, 2), Len(TextBox1))) = LCase(TextBox1) Then 
If Sheets("Tabelle1").Cells(index, 2) <> "" Then 
On Error Resume Next 
ReDim Preserve arr(0, 0 To iCount) 
arr(0, iCount) = Cells(index, 2) 
iCount = iCount + 1 
ListBox1.Column = arr 
End If 
End If 
Next 
End Sub 

Private Sub UserForm_Initialize() 
x = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row, 65536) 
ListBox1.RowSource = "B5:B" & x 
End Sub 

Wäre sehr dankbar für eine Lösung

Gruß Martin

 

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Suchen und in gefundene Zelle gehen
 04.10.2011 14:59:41 Martin
NotSolved
04.10.2011 20:06:07 Till
NotSolved