Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Suchen mit ComboBox


Betrifft: Suchen mit ComboBox von: René
Geschrieben am: 23.09.2017 18:52:04

Hallo zusammen,

ich möchte mit einer Combobox eine Spalte durchsuchen. Bei Eingabe von einer Zahl gefolgt von einem Buchstaben ist alles ok. Eine reine Zahlenreihe blendet die eingebaute MsgBox ein. Mit Hilfe des Internets habe ich mir folgendes gebastelt. Was habe ich falsch gemacht?

VG René

Private Sub ComboBox1_Change()

Application.ScreenUpdating = False

Set Rng = Worksheets("Tabelle1").Columns(4) _
      .Find(what:=ComboBox1.Text, LookAt:=xlWhole, LookIn:=xlValues)
      
   If Not Rng Is Nothing Then
   
   Application.Goto Rng
   
Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
   
Application.ScreenUpdating = True

End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set wks = ActiveSheet
  iRowT = 1
   iRowL = Cells(Rows.Count, 4).End(xlUp).Row
   Workbooks.Add
   For iRow = 3 To iRowL
       vRow = Application.Match(wks.Cells(iRow, 4).Value, Columns(1), 0)
       If IsError(vRow) Then
         iRowT = iRowT + 1
         Cells(iRowT, 1).Value = wks.Cells(iRow, 4).Value
       End If
   Next iRow
   Range("A1").CurrentRegion.Sort _
      key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
   With ComboBox1
      .List = Range("A1").CurrentRegion.Value
      If .ListCount > 0 Then .ListIndex = -1
   End With
   ActiveWorkbook.Close savechanges:=False
End Sub

  

Betrifft: AW: Suchen mit ComboBox von: onur
Geschrieben am: 23.09.2017 19:58:52

Ich habe keine Ahnung, was der Code genau machen soll, was du genau willst und WAS in deinen Augen mit "falsch gemacht" gemeint ist.


  

Betrifft: AW: Suchen mit ComboBox von: MB12
Geschrieben am: 23.09.2017 20:04:33

Hallo René,

du suchst nur nach Text.

Probier mal

.Find(ComboBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)

Ich hoffe, das funktioniert.

Gruß, Margarete


  

Betrifft: AW: Suchen mit ComboBox von: René
Geschrieben am: 23.09.2017 20:57:55

Hallo Margarete,

hat leider nicht funktioniert, aber danke für den Tipp.

Gruß René


Beiträge aus den Excel-Beispielen zum Thema "Suchen mit ComboBox"