Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Benötige Hilfe bei Fehler im Code!
#1
Hallo liebe Excelgemeinde,


benötige mal wieder eure Hilfe bei einen Code:

Code:
Private Sub ListBox1_Click()                                'Listbox Auswahl
Dim sSearch As String
Dim rngID As Range
Dim Bild  As Object
Dim strFile As String
CommandButton6.Visible = True
CommandButton4.Visible = True
If ListBox1.ListCount > 1 Then

    sSearch = ListBox1.List(ListBox1.ListIndex, 0) 'Der ausgewählte Listeneintrag an die Variable übergeben
    Set rngID = ThisWorkbook.Sheets("Datenbank").Columns("A:A").Find(What:=sSearch, LookAt:=xlWhole, LookIn:=xlValues) 'In Spalte A nach dem Wert in der Variable suchen und festhalten
    If Not rngID Is Nothing Then 'Wenn nicht nicht gefunden
        strFile = ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & rngID.Value & ".jpg"
           If Dir(strFile) <> "" Then
            On Error GoTo fehler

            Set Bild = LoadPicture(ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & rngID.Value & ".jpg")
            Image1.Picture = Bild
            Image1.Visible = True
            Image1.PictureSizeMode = 3 'Bildgöße apassen
            i = rngID.Row
fehler:
        If Err Then MsgBox "Kein Bild oder Bild fehlerhaft! Bitte Bild des Artikels" & " " & rngID.Value & " " & "prüfen!"
        On Error GoTo 0
        Else
            Set Bild = LoadPicture(ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & "keinBild" & ".jpg")
            Image1.Picture = Bild
            Image1.Visible = True
            Image1.PictureSizeMode = 3 'Bildgöße apassen
            i = rngID.Row
        End If

    Else
        MsgBox sSearch & " wurde nicht gefunden."
    Exit Sub
    End If                                                  ' Auswahl
   End If
   i = ListBox1.ListIndex + 2
   'Beep
   With ThisWorkbook.Sheets("Datenbank")
   TextBox4.Text = .Cells(i, 1).Value       'A
   TextBox3.Text = .Cells(i, 2).Value       'B
   TextBox1.Text = .Cells(i, 3).Value       'C
   TextBox2.Text = .Cells(i, 4).Value       'D
   TextBox5.Text = .Cells(i, 5).Value       'E
   TextBox6.Text = .Cells(i, 6).Value       'F
   TextBox7.Text = .Cells(i, 7).Value       'G
   TextBox8.Text = .Cells(i, 8).Value       'H
   TextBox9.Text = .Cells(i, 9).Value       'I
   TextBox10.Text = .Cells(i, 10).Value     'J
   TextBox11.Text = .Cells(i, 11).Value     'K
   TextBox12.Text = .Cells(i, 12).Value     'L
   TextBox13.Text = .Cells(i, 13).Value     'M
   TextBox14.Text = .Cells(i, 14).Value     'N
   TextBox15.Text = .Cells(i, 15).Value     'O
   TextBox16.Text = .Cells(i, 16).Value     'P
   TextBox17.Text = .Cells(i, 17).Value     'Q
   TextBox17.Value = Format(TextBox17.Value, "####0.00 €")
   TextBox18.Text = .Cells(i, 18).Value     'R
   TextBox18.Value = Format(TextBox18.Value, "####0.00 €")
   TextBox19.Text = .Cells(i, 19).Value     'S
   TextBox19.Value = Format(TextBox19.Value, "####0.00 €")
   TextBox20.Text = .Cells(i, 20).Value     'T
   TextBox20.Value = Format(TextBox20.Value, "####0.00 €")
   TextBox21.Text = .Cells(i, 21).Value     'U
   TextBox22.Text = .Cells(i, 22).Value     'V
   TextBox23.Text = .Cells(i, 23).Value     'W
   TextBox24.Text = .Cells(i, 24).Value     'X
   TextBox25.Text = .Cells(i, 25).Value     'Y
   TextBox26.Text = .Cells(i, 26).Value     'Z
   TextBox27.Text = .Cells(i, 27).Value     'AA
   TextBox28.Text = .Cells(i, 28).Value     'AB
   TextBox29.Text = .Cells(i, 29).Value     'AC
   TextBox30.Text = .Cells(i, 30).Value     'AD
   TextBox31.Text = .Cells(i, 31).Value     'AE
   TextBox32.Text = .Cells(i, 32).Value     'AF
   TextBox33.Text = .Cells(i, 33).Value     'AG
   TextBox34.Text = .Cells(i, 34).Value     'AH
   TextBox35.Text = .Cells(i, 35).Value     'AI
   TextBox36.Text = .Cells(i, 36).Value     'AJ
   TextBox37.Text = .Cells(i, 37).Value     'AK
   'TextBox38.Text = Cells(i, 38).Value     'AL
   TextBox39.Text = .Cells(i, 39).Value     'AM
   TextBox39.Value = Format(TextBox39.Value, "####0.00 €")
   TextBox40.Text = .Cells(i, 40).Value     'AN
   TextBox40.Value = Format(TextBox40.Value, "####0.00 €")
   TextBox41.Text = .Cells(i, 41).Value     'AO
   TextBox41.Value = Format(TextBox41.Value, "####0.00 €")
   TextBox42.Text = .Cells(i, 42).Value     'AP
   TextBox42.Value = Format(TextBox42.Value, "####0.00 €")
   'TextBox43.Text = Cells(i, 43).Value     'AQ
   'TextBox44.Text = Cells(i, 44).Value     'AR
   'TextBox45.Text = Cells(i, 45).Value     'AS
   'TextBox46.Text = Cells(i, 46).Value     'AT
   Label60.Caption = .Cells(i, 47).Value
   Label57.Caption = .Cells(i, 48).Value
   ControlsOnlyView
   'TextBox4.Enabled = False
   'CommandButton6.Visible = False
   'CommandButton4.Visible = False
   End With
End Sub
Mit diesem Code ist es mir möglich in einer Userform durck klicken in der Listbox1 Artikelnummer auszuwählen und die entsprechenden Daten dazu in die Userform zu holen und das dazugehörige Bild wird jeweils geladen! Solange ich in Listbox zwischen den ARtikeln hin und her klicke funktioniert es einwandfrei. Wenn ich aber mal auf das Bild das geladen ist klicke und dann wieder ein anderer Artikel in der Listbox auswähle, dann werde zwar die Daten dazu geladen jedoch das Bild ändert sich dann nicht mehr! Irgendwo ist da ein Fehler im Code und ich komme nicht drau wo!?

Vielleicht hat jemand eine Idee?


Vielen Dank
LG
Alexandra
to top
#2
Hallo zusammen,


habs hinbekommen:

habe noch ein :

image1.Enable = False

am Anfang des Codes eingefügt und nun funktioniert es!


Vielen Dank
VG
Alexandra
to top
#3
Hallo Alexandra,

ändert sich das, wenn Du zusätzlich diese Zeile einfügst?

Code:
Image1.Enabled = False

Gruß Uwe
to top
#4
Hallo Uwe,


schau mal auf die Uhrzeit wo wir geschrieben haben Smile


Vielen Dank für dein Vorschlag, wie du in mein Post sehen kannst war das genau das richtige!


Danke
VG
Alexandra
to top
#5
Hallo Alexandra,

das ist Timing. 21

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
cysu11
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Fehler in VBA-Code: PDF speichern-Button MrHoef 2 39 18.01.2017, 11:42
Letzter Beitrag: MrHoef
  VBA Fehler 400 hbboy15 5 105 16.01.2017, 16:42
Letzter Beitrag: hbboy15
  Fehler #NV in Zelle Uwe 8 143 11.01.2017, 14:29
Letzter Beitrag: Rabe
  Benötige Alternative für Zufallswerte Somma 1 45 10.01.2017, 19:49
Letzter Beitrag: Ego
  Hilfe beim Code "Schleife von bis" michel34497 2 115 16.11.2016, 17:55
Letzter Beitrag: michel34497
  Fehler in Formel//HILFE! Svenja94 5 138 11.11.2016, 12:23
Letzter Beitrag: Svenja94
  Ich finde den Fehler nicht Usedom 8 271 09.11.2016, 14:07
Letzter Beitrag: snb
  excel summewenn, zählenwenns Fehler MeKeMo 1 133 06.11.2016, 13:00
Letzter Beitrag: shift-del
  Benötige Hilfe bei Bedingungen mit EDATUM maytn 5 143 24.10.2016, 15:34
Letzter Beitrag: RPP63
  "Fehler"-Berechnung in Excel Biologist 2 300 24.08.2016, 08:14
Letzter Beitrag: Biologist

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste