|
<p> Hallo zusammen,</p> <p> 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.</p> <p> Public Betriebsmittelbezeichnung As Double<br /> Public Einbauort As Double<br /> Public NeueSAPNummer As Double<br /> <br /> <br /> <br /> Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)<br /> NeueSAPNummer = CDbl(ListBox1)<br /> <br /> End Sub<br /> <br /> Private Sub TextBox3_Change()<br /> Dim zeile As Integer<br /> <br /> [A2].Select<br /> zeile = 2<br /> <br /> <br /> ListBox1.ColumnCount = 9<br /> While ActiveCell <> ""<br /> If ActiveCell Like TextBox1 & "*" Then<br /> UserForm1.Caption = ActiveSheet.Name<br /> letzte_zeile = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row<br /> ListBox1.RowSource = "A2:I" & letzte_zeile<br /> ListBox1.ColumnWidths = "3cm;7cm;0cm;3cm;0cm;0cm;3cm;3cm;3cm"<br /> ListBox1.ColumnHeads = True<br /> ActiveCell.Offset(1, 0).Select </p> <p> <br /> Else<br /> ActiveCell.Offset(1, 0).Select <br /> zeile = zeile + 1<br /> ListBox.Clear<br /> End If<br /> Wend<br /> <br /> <br /> <br /> End Sub<br /> <br /> Private Sub UserForm_Initialize()<br /> Dim NeueSAPNummer As String<br /> Dim letzte_zeile As Integer<br /> UserForm1.Caption = ActiveSheet.Name<br /> <br /> 'letzte_zeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row<br /> letzte_zeile = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row<br /> <br /> 'Stammdaten mit RowSource einlesen<br /> ListBox1.RowSource = "A2:I" & letzte_zeile<br /> <br /> <br /> '4-spaltig<br /> ListBox1.ColumnCount = 9<br /> <br /> <br /> <br /> 'Spaltenbreite<br /> ListBox1.ColumnWidths = "3cm;7cm;0cm;3cm;0cm;0cm;3cm;3cm;3cm"<br /> <br /> <br /> 'Überschrift<br /> ListBox1.ColumnHeads = True<br /> <br /> <br /> <br /> [I2].Select<br /> While ActiveCell <> UserForm1.NeueSAPNummer </p> <p> ActiveCell.Offset(1, 0).Select '<br /> Wend<br /> zeile = ActiveCell.Row <br /> <br /> 'Bild Neue SAP Nummer Zuordnung<br /> <br /> <br /> If Cells(zeile, 2).Value <> "" Then <br /> NeueSAPNummer = Cells(zeile, 2)<br /> Else<br /> NeueSAPNummer = "quader"<br /> End If<br /> Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & NeueSAPNummer & ".jpg")<br /> zeile = ActiveCell.Row<br /> <br /> <br /> End Sub</p> <table border="0" cellpadding="0" cellspacing="0" width="1628"> <colgroup> <col /> <col /> <col /> <col /> <col /> <col /> <col span="2" /> <col /> </colgroup> <tbody> <tr height="20"> <td height="20" style="height:20px;width:211px;"> Betriebsmittelbezeichnung </td> <td style="width:283px;"> Benennung ( Funktion,technische Daten)</td> <td style="width:364px;"> Bestellangaben Zeichnungsnummer, Sachnummer</td> <td style="width:171px;"> Hersteller,Lieferer</td> <td style="width:143px;"> Gewicht (KG)</td> <td style="width:147px;"> Planabschnitt</td> <td style="width:80px;"> Einbauort</td> <td style="width:80px;"> Altarnativ</td> <td style="width:151px;"> Neue SAP Nummer</td> </tr> <tr height="20"> <td height="20" style="height:20px;"> 32K 7-1</td> <td> Hilfsschütz SH 8.71 , 77-138 V DC </td> <td> 910-302-783-99</td> <td> AEG/FABEG</td> <td align="right"> 0,65</td> <td> 46/343</td> <td> S1K13</td> <td> 38K 8-4</td> <td> Schütz</td> </tr> <tr height="20"> <td height="20" style="height:20px;"> 32K 8-1 </td> <td> Hilfsschütz SH 04.22 , 77-138 V DC </td> <td> 910-302-191-99</td> <td> AEG/FABEG</td> <td align="right"> 0,16</td> <td> 32/067</td> <td> S1K15</td> <td> 37K 5-3</td> <td align="right"> 345543</td> </tr> <tr height="20"> <td height="20" style="height:20px;"> 32K 9-1</td> <td> Hilfsschütz SH 04.40, 77-138 V DC</td> <td> 910-302-051-99</td> <td> AEG/FABEG</td> <td align="right"> 0,16</td> <td> 32057</td> <td> S1k16</td> <td> 38K 7-6</td> <td align="right"> 323344</td> </tr> </tbody> </table> <p> </p>
|