Office: ComboBox Eintrag suchen

akshara · 3. September 2010

Moin moin

Bin wieder auf suche nach Hilfe.
Suche den Inhalt einer ComboBox. Folgendes Problem taucht auf, wenn ich einen Inhalt in der Spalte habe mit Elbe und einen Inhalt mit Engelbert, zeigt er mir beide Namen in der ListBox. Trotz Value? *confused.gif*
Die Spalten werden vorher sortiert. Wenn ich nur nach Engelbert suche, wird auch nur der Eintrag angezeigt.

Code:

Private Sub ComboBox1_Change()
'Suche Lieferant'
Dim arr() As Variant, C As Variant
Dim firstAddress As String
Dim Y As Boolean
Dim iRowU As Integer
With Worksheets("Material").Range("B1:B65536")
Set C = .Find((ComboBox1.Value), LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Y = True
Do
'C.Interior.Pattern = xlPatternGray34
ReDim Preserve arr(1 To 8, 0 To iRowU)
arr(1, iRowU) = .Cells(C.Row, 1) 'b
iRowU = iRowU + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address firstAddress
End If
End With
If Y = False Then
MsgBox "kein Eintrag gefunden"
Else
ListBox1.Column = arr
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Vorraus vielen dank
Gruß Sven

:)

jinx · 4. September 2010

Moin, Sven,

erfindest Du gerade das Rad neu? *wink.gif*

ad 1.: statt Worksheets("Material").Range("B1:B65536") Worksheets("Material").Range("B1:B" & Rows.Count), wobei ein Objekt für den Bereich sicherlich für die Schreibarbeit und Verkürzung der Ansprache von Vorteil wäre.

Code:

'---------------------------------------------------------------------------------------
' Module : Database Form
' DateTime : 31/08/2005 10:55
' DateTime : 20/02/2009 18:35 Änderung
' Author : Roy Cox
' Purpose : Data entry form for Excel, with Search facility
'---------------------------------------------------------------------------------------
Option Explicit
Dim MyArray(250, 10)
Public MyData As Range, c As Range

Private Sub cmbFindAll_Click()

Dim strErsteFundstelle As String
Dim strSuchbegriff As String 'was soll gefunden werden
Dim rngSuchbereich As Range 'Bereich, in dem gesucht werden soll
Dim fndA, fndB, fndC, fndD, fndE, fndF, fndG, fndH, fndI, fndJ As String
Dim head1, head2, head3, head4, head5, head6, head7, head8, head9, head10 As String 'Überschriften der Liste
Dim i As Integer
Dim lngSpalte As Long
Dim lngZähler As Long

Tabelle1.Activate
Erase MyArray
i = 1
With Me
.ListBox1.List() = MyArray
For lngZähler = 3 To 9
.Controls("TextBox" & lngZähler).Value = vbNullString
Next lngZähler
If Trim(.TextBox1.Value) "" Then
strSuchbegriff = Trim(.TextBox1.Value)
.TextBox2.Value = ""
lngSpalte = 1
ElseIf Trim(.TextBox2.Value) "" Then
strSuchbegriff = Trim(.TextBox2.Value)
.TextBox1.Value = ""
lngSpalte = 2
Else
MsgBox "Kein Suchbegriff bei Kreditorennummer oder Firmenname angegeben!", vbExclamation, "Abbruch"
Exit Sub
End If
End With
Set rngSuchbereich = Tabelle1.Range(Cells(8, lngSpalte).Address, Cells(Rows.Count, lngSpalte).End(xlUp).Address)
With rngSuchbereich
Set c = .Find(strSuchbegriff, After:=rngSuchbereich.Cells(rngSuchbereich.Cells.Count), LookIn:=xlValues)
If Not c Is Nothing Then 'found it
c.Select

'load the headings
head1 = Range("A7").Value
head2 = Range("B7").Value
head3 = Range("C7").Value
head4 = Range("D7").Value
head5 = Range("E7").Value
head6 = Range("F7").Value
head7 = Range("G7").Value
head8 = Range("H7").Value
head9 = Range("I7").Value
head10 = Range("J7").Value

With Me.ListBox1
MyArray(0, 0) = head1
MyArray(0, 1) = head2
MyArray(0, 2) = head3
MyArray(0, 3) = head4
MyArray(0, 4) = head5
MyArray(0, 5) = head6
MyArray(0, 6) = head7
MyArray(0, 7) = head8
MyArray(0, 8) = head9
MyArray(0, 9) = head10
End With

strErsteFundstelle = c.Address

Do
'Load details into Listbox
fndA = Cells(c.Row, 1).Value
fndB = Cells(c.Row, 2).Value
fndC = Cells(c.Row, 3).Value
fndD = Cells(c.Row, 4).Value
fndE = Cells(c.Row, 5).Value
fndF = Cells(c.Row, 6).Value
fndG = Cells(c.Row, 7).Value
fndH = Cells(c.Row, 8).Value
fndI = Cells(c.Row, 9).Value
fndJ = Cells(c.Row, 10).Value
MyArray(i, 0) = fndA
MyArray(i, 1) = fndB
MyArray(i, 2) = fndC
MyArray(i, 3) = fndD
MyArray(i, 4) = fndE
MyArray(i, 5) = fndF
MyArray(i, 6) = fndG
MyArray(i, 7) = fndH
MyArray(i, 8) = fndI
MyArray(i, 9) = fndJ
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address strErsteFundstelle
Else
MsgBox "Der Suchbegriff wurde nicht gefunden!" & vbCrLf & "Überprüfen Sie bitte die Schreibweise.", vbInformation, "Hinweis"
End If
End With
'Load data into LISTBOX
Me.ListBox1.List() = MyArray
With Me
.cmbAmend.Enabled = True 'allow amendment or
.cmbDelete.Enabled = False 'allow record deletion
.cmbAdd.Enabled = True 'don't want duplicate
End With
Set rngSuchbereich = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beispiel ist modifiziert und weicht vom Original ab.

akshara · 5. September 2010

Moin jinx

Wenn ein Rad nicht dreht, fahre ich halt anders.*Smilie
Danke für Deine Antwort und den Code. In Deinem Code befinden sich ja genug Objekte.*entsetzt Macht die Sache für mich nicht immer Übersichtlicher.
Ob gekürzt oder ungekürzt, gleiches Phänomen. Elbe und Engelbert wird in der ListBox angezeigt. Genauso in einer anderen Spalte, Anschlußkabel und Hochvolt Anschlußkabel. *rolleyes.gif*
Tip mit Rows.Count, vielen Dank, typisch Waldbewohner.

Gruß Sven

akshara · 5. September 2010

Moin moin

@jinx, vielen Dank für Deine Hilfe.
So langsam sollte ich einsehen, daß ein bescheidenes Wissen wohl einen Nutzfaktor hat, aber Unverstand auch Fehler auslöst. *grins Richtig deklarieren.

Code:

Set c = .Find(what:=ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für Deine Mühe, wünsche einen angenehmen Tag*bye

Sven

Office: ComboBox Eintrag suchen

ComboBox Eintrag suchen

ComboBox Eintrag suchen

ComboBox Eintrag suchen

ComboBox Eintrag suchen - Similar Threads - ComboBox Eintrag

Auswahl Combobox mit Tabelle vergleichen und Daten in nächste Zelle eintragen

Zeile von selektiertem Eintrag in Combobox

Auswahl über Combobox dann werte eintragen in zeile auswahl combobox

Doppelte Einträge in einer ComboBox verhindern

VBA Combobox Eintrag automatisch markieren

In Combobox laden ohne Doppelte Einträge Sortiert

Nur Einträge aus Combobox wählen