Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Listbox doppelcklick Imagedatei
 29.12.2014 14:07:24 Kemal
Solved
29.12.2014 18:04:56 Gast93310
NotSolved
29.12.2014 19:53:29 Gast57579
NotSolved
29.12.2014 20:01:19 ramazankemal@web.de
NotSolved

Ansicht des Beitrags:
Von:
Kemal		 Datum:
29.12.2014 14:07:24		 Views:
1667		 Rating:
     
Antwort:
 Nein
Thema:
VBA Listbox doppelcklick Imagedatei

Hallo zusammen,

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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
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

hier ist meine Excel Tabelle

Betriebsmittelbezeichnung  Benennung ( Funktion,technische Daten) Bestellangaben Zeichnungsnummer, Sachnummer Hersteller,Lieferer Gewicht (KG) Planabschnitt Einbauort Altarnativ Neue SAP Nummer
32K 7-1 Hilfsschütz SH 8.71 , 77-138 V DC  910-302-783-99 AEG/FABEG 0,65 46/343 S1K13 38K 8-4 Schütz
32K 8-1  Hilfsschütz SH 04.22 , 77-138 V DC  910-302-191-99 AEG/FABEG 0,16                        32/067 S1K15 37K 5-3 345543
32K 9-1 Hilfsschütz SH 04.40, 77-138 V DC 910-302-051-99 AEG/FABEG 0,16 32057 S1k16 38K 7-6 323344

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Listbox doppelcklick Imagedatei
 29.12.2014 14:07:24 Kemal
Solved
29.12.2014 18:04:56 Gast93310
NotSolved
29.12.2014 19:53:29 Gast57579
NotSolved
29.12.2014 20:01:19 ramazankemal@web.de
NotSolved