VBA Suchen
26.10.2007 13:32:00
Frank
ich versuche mich in VBA dank der Hilfe des Forums bin ich mit meinen Sheet bis auf
eine Kleinigkeit fast fertig.
Ich möchte statt nur in Spalte "A" wo die Bezeichnungen stehen auch in Spalte "B"
wo die Artikelnummern aufgelistet suchen.
Durch meine Änderung:
Set rngSource = Sheets(Blatt).Range("A3:A65536")
in
Set rngSource = Sheets(Blatt).Range("A3:B65536")
werden in der ListBox die Artikel nicht mehr richtig aufgeführt.
Könnte mir bitte jemand behilflich sein
Gruss
Frank
Option Explicit
Private Sub CommandButton1_Click()
Dim rng As Range, rngSource As Range
Dim strFirst As String, Blatt As String
'Tabellenname und Bereich in dem gesucht wird. - Anpassen
Blatt = ComboBox1
Set rngSource = Sheets(Blatt).Range("A3:A65536")
With ListBox1
.Clear
Range("C9") = ""
Range("C12:H12") = ""
Range("B15") = ""
If TextBox1 "" Then
Set rng = rngSource.Find(TextBox1.Text, LookAt:=xlPart)
If Not rng Is Nothing Then
strFirst = rng.Address
Do
.AddItem rng.Text
.List(.ListCount - 1, 1) = rng.Offset(0, 1).Text
.List(.ListCount - 1, 2) = rng.Offset(0, 2).Text
.List(.ListCount - 1, 3) = rng.Offset(0, 3).Text
Set rng = rngSource.FindNext(rng)
Loop While Not rng Is Nothing And rng.Address strFirst
End If
If .ListCount > 0 Then
Range("B15") = .ListCount & " Treffer"
Else
Range("B15") = "Kein Treffer"
End If
End If
End With
Set rng = Nothing
Set rngSource = Nothing
End Sub
Private Sub CommandButton2_Click()
TextBox1 = ""
End Sub
Private Sub Label2_Click()
End Sub
Private Sub ListBox1_Click()
Range("C9") = ListBox1.Text
Range("C12") = ListBox1.List(ListBox1.ListIndex, 2)
Range("F12") = ListBox1.List(ListBox1.ListIndex, 1)
Range("H12") = ListBox1.List(ListBox1.ListIndex, 3)
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then CommandButton1_Click
End Sub