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
  Hilfe beim Code "Schleife von bis" michel34497 2 67 16.11.2016, 17:55
Letzter Beitrag: michel34497
  Fehler in Formel//HILFE! Svenja94 5 83 11.11.2016, 12:23
Letzter Beitrag: Svenja94
  Ich finde den Fehler nicht Usedom 8 169 09.11.2016, 14:07
Letzter Beitrag: snb
  excel summewenn, zählenwenns Fehler MeKeMo 1 78 06.11.2016, 13:00
Letzter Beitrag: shift-del
  Benötige Hilfe bei Bedingungen mit EDATUM maytn 5 99 24.10.2016, 15:34
Letzter Beitrag: RPP63
  "Fehler"-Berechnung in Excel Biologist 2 229 24.08.2016, 08:14
Letzter Beitrag: Biologist
  Benötige dringend Hilfe / wenn Formel Datum LiRo 2 198 23.08.2016, 09:24
Letzter Beitrag: LiRo
  Benötige Hilfe für die Übersicht einer Preisliste Lord_Krishna 23 1.297 18.08.2016, 16:48
Letzter Beitrag: Lord_Krishna
  Fehler bei der Aktualisierung Fred B 3 273 14.07.2016, 11:22
Letzter Beitrag: Fred B
  WENN-Formel | Wo liegt der Fehler?! :-) Frantix27 14 588 29.06.2016, 11:26
Letzter Beitrag: BoskoBiati

Gehe zu:


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