Listbox mit doppelklick
29.12.2014 14:20:58
Kacmaz
ich habe ein Excel Tabelle gemacht wo die verschiedene Daten drine sind. Dann habe ich ein Userform hizugefügt wo ich über die Userform mir durch über ein Listbox mit Doppelklick auf eine Zeile auf den User Form über ein Imagebox mir ein Bild anzeigen möchte. Nach dem ich meine Userform starte passiert zuerst das was ich auch möchte Userform geht auf und in der List Boxt erscheint auch die Daten gleich. Aber wenn ich mit der Maus auf die gewünschte Zelle gehe kommt diese Meldung " Laufzeit Fehler typen unverträglich 13" dann erscheint Debbugen und zeigt mir die Zeile wo die Fehler ist "NeueSAPNummer = CDbl(ListBox1)" in gelb an. Ausserdem möchte ich gerne wenn über ein Textfeld eine suche starte das ich das was ich suche mir raus filtert. Wie vielleicht aus d. VBA code erkennen könnt versucht das hinzukriegen aber da passiert folgendes wenn ich in den Textfeld soweit irgend ein Zeichen schreibe geht die Excel Tabelle von anfang bis zu ende durch und passiert nicht. Da ich leider zuemlich bei VBA neuling bin brauche ich unbedinngt eure Hilfe Ich bedanke mich für Eure Bemühungen im Vorraus und wünsche euch ein guten Rutsch. Huer ist mein VBA Code und Mein Excel Tabelle.
Public Betriebsmittelbezeichnung As Double
Public Einbauort As Double
Public NeueSAPNummer As Double
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
NeueSAPNummer = CDbl(ListBox1)
End Sub
Private Sub TextBox3_Change()
Dim zeile As Integer
[A2].Select
zeile = 2
ListBox1.ColumnCount = 9
While ActiveCell ""
If ActiveCell Like TextBox1 & "*" Then
UserForm1.Caption = ActiveSheet.Name
letzte_zeile = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "A2:I" & letzte_zeile
ListBox1.ColumnWidths = "3cm;7cm;0cm;3cm;0cm;0cm;3cm;3cm;3cm"
ListBox1.ColumnHeads = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
zeile = zeile + 1
ListBox.Clear
End If
Wend
End Sub
Private Sub UserForm_Initialize()
Dim NeueSAPNummer As String
Dim letzte_zeile As Integer
UserForm1.Caption = ActiveSheet.Name
'letzte_zeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
letzte_zeile = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
'Stammdaten mit RowSource einlesen
ListBox1.RowSource = "A2:I" & letzte_zeile
'4-spaltig
ListBox1.ColumnCount = 9
'Spaltenbreite
ListBox1.ColumnWidths = "3cm;7cm;0cm;3cm;0cm;0cm;3cm;3cm;3cm"
'Überschrift
ListBox1.ColumnHeads = True
[I2].Select
While ActiveCell UserForm1.NeueSAPNummer
ActiveCell.Offset(1, 0).Select '
Wend
zeile = ActiveCell.Row
'Bild Neue SAP Nummer Zuordnung
If Cells(zeile, 2).Value "" Then
NeueSAPNummer = Cells(zeile, 2)
Else
NeueSAPNummer = "quader"
End If
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & NeueSAPNummer & ".jpg")
zeile = ActiveCell.Row
End Sub