Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Listbox-suche | Herbers Excel-Forum


Betrifft: Listbox-suche von: fritz
Geschrieben am: 31.01.2010 11:08:56

Hallo schönen Sonntag,

kann mir bitte jemand weiterhelfen.
Ich habe in einer Listbox die Werte der Tabelle1 eingelesen. Nun möchte ich durch Doppelklick auf einen Eintrag in der Listbox diesen Eintrag in der Tabelle1 suchen und markieren.

danke
fritz

  

Betrifft: noch ein bar Fragen... von: Tino
Geschrieben am: 31.01.2010 11:11:35

Hallo,
wo steht dieser Eintrag in der Tabelle1, in Spalte A, B oder sonst wo?
Was sind dies für Daten, Zahlen oder Text?

Gruß Tino


  

Betrifft: und wo ist die ListBox? ... von: Tino
Geschrieben am: 31.01.2010 11:13:18

Hallo,
ist diese auf einer Userform oder auf einer Tabelle?

Gruß Tino


  

Betrifft: AW: noch ein bar Fragen... von: fritz
Geschrieben am: 31.01.2010 11:15:05

Ich lese aus der Tabelle1 die Spalten A-E ein und bei den daten handelt es sich um einen Text

lg


  

Betrifft: AW: noch ein bar Fragen... von: Tino
Geschrieben am: 31.01.2010 11:20:17

Hallo,
teste mal diesen Code.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim varRow
With Sheets("Tabelle1")
    varRow = Application.Match(ListBox1.List(, 0), .Columns(1), 0)
    If IsNumeric(varRow) Then
        Application.Goto .Cells(varRow, 1), True
    End If
End With
End Sub
Gruß Tino


  

Betrifft: AW: Listbox-suche von: Reinhard
Geschrieben am: 31.01.2010 11:15:56

Hallo Fritz,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.CountIf(Columns(1), ListBox1.Value) > 0 Then
   Cells(Application.Match(ListBox1.Value, Columns(1), 0), 1).Select
End If
End Sub

Gruß
Reinhard


  

Betrifft: AW: Listbox-suche von: fritz
Geschrieben am: 31.01.2010 11:27:08

Danke Reinhard und Tino,

Der Code funktioniert- mein Sonntag ist gerettet.

lg


  

Betrifft: AW: Listbox-suche von: fritz
Geschrieben am: 31.01.2010 11:36:23

Hallo,

jetz hat sich doch noch ein Problem aufgetan.
also in der Listbox ist die Tabelle1 eingelesn und ich kann durch doppelklick den wert in der Tabelle1 auch finden.
gibts einen code mit dem ich disen wert auch in der Tabelle2 suchen kann?

lg


  

Betrifft: AW: Listbox-suche von: Tino
Geschrieben am: 31.01.2010 11:46:01

Hallo,
mach bei meinem Code aus der Tabelle1 einfach die Tabelle2.

Gruß Tino


  

Betrifft: AW: Listbox-suche von: fritz
Geschrieben am: 31.01.2010 12:10:34

bin leider kein Profi
was muss ich bei dem Code ändern damit er mir die tabelle zwei duchsucht?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.CountIf(Columns(1), ListBox1.Value) > 0 Then
   Cells(Application.Match(ListBox1.Value, Columns(1), 0), 1).Select
End If
End Sub
lg


  

Betrifft: habe geschrieben "in meinem Code"! ;-) von: Tino
Geschrieben am: 31.01.2010 12:40:51

Hallo,
so müsste er funktionieren.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim varRow
With Sheets("Tabelle2")
    varRow = Application.Match(ListBox1.List(, 0), .Columns(1), 0)
    If IsNumeric(varRow) Then
        Application.Goto .Cells(varRow, 1), True
    End If
End With
End Sub
Gruß Tino


  

Betrifft: AW: Listbox-suche von: fritz
Geschrieben am: 31.01.2010 13:05:48

Danke Tino- fuktioniert super


  

Betrifft: Na dann - abgeschlossen! owT von: Luc:-?
Geschrieben am: 31.01.2010 14:07:27

:-?