Office: Eintrag in ListBox klickbar machen

Hi Leute,

hier ist auch wieder mein nächstes Problem.
Und zwar habe ich eine Listbox befüllt. Ich suche ein Wort in einer Spalte und die Ergebnisse dazu werden mir in der Listbox angezeigt.

Was ich möchte ist, wenn ich auf einen Eintrag in der ListBox klicke soll die dazugehörige Zeile im ExcelSheet markiert werden und es soll in die Zeile gesprungen werden. Es würde auch ohne Markierung gehen hauptsache es springt in die Zeile die das Ergebnis enthält.

Mein Code zum befüllen sieht so aus:

Code:

Der Code welchen ich für das vorhaben gefunden habe ist der folgende:

Code:

Als Fehler bekomme ich aber immer Laufzeitfehler13: Typen unverträglich in der Codezeile myRow = ws.Rows(myRow).EntireRow.Select

Was kann da falsch sein?

VG
boulala

:)

 

schreibe in eine ausgeblendete Spalte die Zeile.

 

Also den zweiten Code nicht benutzen sondern in den ersten Code "ListBox1.List(i,3) = " ergänzen?

Mir fehlt da aber auch leider der Code der dahin müsste. Sobald ich das reinprogrammiert habe wird der Eintrag "klickbar"?

 

bei mir ist der Eintrag auch ohne diese Teil auswählbar.
ListBox1.List(i, 3) = rngFind.row

 

Hey Hajo,

ich habe das jetzt mal so gemacht wie du gesagt hast.
Leider funktioniert es nicht, wenn ich in der ListBox auf ein Ergebnis klicke, dass es in der Exceltabelle ausgewählt wird.

Wenn du Lust hast schau dir mal das angehängte Beispiel an. Klick auf Suchen und es sind mehrere Suchfelder da, gib einfach mal bei FX "USD" ein.
Wenn du dann auf ein Ergebnis klickst wirst du sehen dass es nicht klappt.

 

ich vermute mal Du wertest die Zeilennummer in der Listbox nicht aus.

 

es gibt auch kein ListBox Click Ereignis.
Wie ich sehe sind die muss man meine Tipps auch nicht umsetzen.
Ich bin dann raus.

 

Wenn man die Datei öffnet und den VBA Editor anwählt sieht man ganz unten im Code einen auskommentierten Teil, den ich im Internet gefunden habe.
Jedoch klappt es leider wie im Post ganz oben beschrieben.

Vielleicht kennt jemand eine Lösung.

Danke dir Hajo, dass du es dir angeschaut hast!

 

Hallo

wenn man den Code wieder einkommentiert wird doch die Zeile markiert
was möchtest du denn noch erreichen?

MfG Tom

 

Wenn du den Code einkommentierst

Code:

Dann kannst du in der ListBox auf einen Eintrag klicken und dieser wird dann im Excelsheet auch markiert? Also die ganze Zeile?
Bei mir kommt der Fehler Laufzeitfehler13: Typen unverträglich in der Codezeile myRow = ws.Rows(myRow).EntireRow.Select

 

Hallo

diesen Code der unten auskommentiert war
Code:

ich habe nur nachträglich noch Unload Me ergänzt
habe das mit xl2010 und Excel 2003 getestet

MfG Tom

 

Das ist ja sowas von mysteriös *biggrin.gif* *biggrin.gif* *biggrin.gif*
Ich habe es gefühlt 100mal ausprobiert und immer kam der Fehler.
Jetzt kommentiere ich es wieder rein und siehe da es funktioniert.
man man man...

Aber danke dir!!!

@Hajo es liegt wirklich daran die Zeilennummer zu verwenden in der ListBox. Danke für den Tipp!

 

Hallo nochmal

so mysteriös ist das nicht wenn du den Code aus deinem ersten Code getestet hast
diese Zeile:
Code:

bedeutet Spalte 5 in deiner Listbox
du hast aber nur 4
in der Datei hattest du jetzt aber diesen drin
Code:

MfG Tom

 

Ja ich hatte es auch mal auf 1, 2 und drei.
Naja einen Fehler werde ich definitiv gemacht haben.
Danke an dich da ich deine Zeile mit der 3 drüberkopiert habe und dann ging es.